Monkeybread Software - MBS FileMaker Plugin: ImageCapture

Components	All	New	MacOS		Windows		Linux		iOS
Examples	Mac & Win		Server	Client	Guides	Statistic	FMM	Blog	Deprecated	Old

MBS FileMaker Plugin Example Databases

ImageCapture

All examples are included with download of MBS FileMaker Plugin.

ImageCapture.fmp12

Overview
Tables	2
Relationships	0
Layouts	2
Scripts	7
Value Lists	0
Custom Functions	0
Custom Menus	33

File Options
Default custom menu set	[Standard FileMaker Menus]
When opening file
Minimum allowed version	12.0
Login using	Account Name; Account= Admin
Allow user to save password	Off
Require iOS passcode	Off
Switch to layout	Off
Hide all toolbars	Off
Script triggers
OnFirstWindowOpen	Script: Start
OnLastWindowClose	Off
OnWindowOpen	Off
OnWindowClose	Off
OnFileAVPlayerChange	Off
Thumbnail Settings
Generate Thumbnails	On; Temporary

Tables

Table Name	Statistics	Occurrences in Relationship Graph
Devices	10 fields defined, 0 record	Devices
Images	7 fields defined, 0 record	Images

Fields

Table Name: Devices - 10 Fields
Field Name	Type	Options	Comments	On Layouts	In Relationships	In Scripts	In Value Lists
ID	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		Devices		Initialize
Name	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		Devices		Initialize UseDevice
Remote	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		Devices		Initialize
Shared	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		Devices		Initialize
transportType	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		Devices		Initialize
serialNumberString	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		Devices		Initialize
locationDescription	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		Devices		Initialize
persistentIDString	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		Devices		Initialize
icon	Normal, Binary	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1		Devices		Initialize
capabilities	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		Devices		Initialize

Table Name: Images - 7 Fields
Field Name	Type	Options	Comments	On Layouts	In Relationships	In Scripts	In Value Lists
Image	Normal, Binary	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1		Images		StartScan
Device	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Global Repetitions: 1 Index Language: German		Images		UseDevice OpenDevice
supportedResolutions	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Global Repetitions: 1 Index Language: German		Images		StartScan
supportedDocumentTypes	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Global Repetitions: 1 Index Language: German		Images		StartScan
supportedScaleFactors	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Global Repetitions: 1 Index Language: German		Images		StartScan
supportedBitDepths	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Global Repetitions: 1 Index Language: German		Images		StartScan
supportedMeasurementUnits	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Global Repetitions: 1 Index Language: German		Images		StartScan

Layout Objects: Devices

Regular Fields

Field Name: Devices::ID

Layout Name:

Devices

Top: 48 pt
Left: 138 pt
Bottom: 62 pt
Right: 391 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

Allow field to be entered: In Find mode, In Browse mode
Touch keyboard type: System Default
Go to next field using: Tab key

Yes

Field Name: Devices::Name

Layout Name:

Devices

Top: 66 pt
Left: 138 pt
Bottom: 80 pt
Right: 391 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

Allow field to be entered: In Find mode, In Browse mode
Touch keyboard type: System Default
Go to next field using: Tab key

Yes

Field Name: Devices::Remote

Layout Name:

Devices

Top: 84 pt
Left: 138 pt
Bottom: 98 pt
Right: 391 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

Allow field to be entered: In Find mode, In Browse mode
Touch keyboard type: System Default
Go to next field using: Tab key

Yes

Field Name: Devices::Shared

Layout Name:

Devices

Top: 102 pt
Left: 138 pt
Bottom: 116 pt
Right: 391 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

Allow field to be entered: In Find mode, In Browse mode
Touch keyboard type: System Default
Go to next field using: Tab key

Yes

Field Name: Devices::transportType

Layout Name:

Devices

Top: 120 pt
Left: 138 pt
Bottom: 134 pt
Right: 391 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

Allow field to be entered: In Find mode, In Browse mode
Touch keyboard type: System Default
Go to next field using: Tab key

Yes

Field Name: Devices::serialNumberString

Layout Name:

Devices

Top: 138 pt
Left: 138 pt
Bottom: 152 pt
Right: 391 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

Allow field to be entered: In Find mode, In Browse mode
Touch keyboard type: System Default
Go to next field using: Tab key

Yes

Field Name: Devices::locationDescription

Layout Name:

Devices

Top: 156 pt
Left: 138 pt
Bottom: 170 pt
Right: 391 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

Allow field to be entered: In Find mode, In Browse mode
Touch keyboard type: System Default
Go to next field using: Tab key

Yes

Field Name: Devices::persistentIDString

Layout Name:

Devices

Top: 174 pt
Left: 138 pt
Bottom: 188 pt
Right: 391 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

Allow field to be entered: In Find mode, In Browse mode
Touch keyboard type: System Default
Go to next field using: Tab key

Yes

Field Name: Devices::icon

Layout Name:

Devices

Top: 192 pt
Left: 138 pt
Bottom: 317 pt
Right: 391 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

Allow field to be entered: In Find mode, In Browse mode
Touch keyboard type: System Default
Go to next field using: Tab key

Field Name: Devices::capabilities

Layout Name:

Devices

Top: 318 pt
Left: 138 pt
Bottom: 332 pt
Right: 391 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

Allow field to be entered: In Find mode, In Browse mode
Touch keyboard type: System Default
Go to next field using: Tab key

Type:

Text: Initialize

Layout Name:

Devices

Additional Properties:

Change to hand cursor over button
Rectangular

Top: 12 pt
Left: 30 pt
Bottom: 37 pt
Right: 139 pt

Anchoring: Left, Top

Perform Script [ “Initialize” ]

Scripts:

Initialize

Button Properties

Coordinates

Script/Script Step

Type:

Text: Use this device

Layout Name:

Devices

Additional Properties:

Change to hand cursor over button
Rectangular

Top: 54 pt
Left: 402 pt
Bottom: 85 pt
Right: 541 pt

Anchoring: Left, Top

Perform Script [ “UseDevice” ]

Scripts:

UseDevice

Layout Objects: Images

Regular Fields

Field Name: Images::Image

Layout Name:

Images

Top: 168 pt
Left: 138 pt
Bottom: 395 pt
Right: 541 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

Allow field to be entered: In Find mode, In Browse mode
Touch keyboard type: System Default
Go to next field using: Tab key

Field Name: Images::Device

Layout Name:

Images

Top: 36 pt
Left: 168 pt
Bottom: 50 pt
Right: 421 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

Allow field to be entered: In Find mode, In Browse mode
Touch keyboard type: System Default
Go to next field using: Tab key

Field Name: Images::supportedResolutions

Layout Name:

Images

Top: 54 pt
Left: 168 pt
Bottom: 68 pt
Right: 421 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

Allow field to be entered: In Find mode, In Browse mode
Touch keyboard type: System Default
Go to next field using: Tab key

Field Name: Images::supportedDocumentTypes

Layout Name:

Images

Top: 72 pt
Left: 168 pt
Bottom: 86 pt
Right: 421 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

Allow field to be entered: In Find mode, In Browse mode
Touch keyboard type: System Default
Go to next field using: Tab key

Field Name: Images::supportedScaleFactors

Layout Name:

Images

Top: 90 pt
Left: 168 pt
Bottom: 104 pt
Right: 421 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

Allow field to be entered: In Find mode, In Browse mode
Touch keyboard type: System Default
Go to next field using: Tab key

Field Name: Images::supportedBitDepths

Layout Name:

Images

Top: 108 pt
Left: 168 pt
Bottom: 122 pt
Right: 421 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

Allow field to be entered: In Find mode, In Browse mode
Touch keyboard type: System Default
Go to next field using: Tab key

Field Name: Images::supportedMeasurementUnits

Layout Name:

Images

Top: 126 pt
Left: 168 pt
Bottom: 140 pt
Right: 421 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

Allow field to be entered: In Find mode, In Browse mode
Touch keyboard type: System Default
Go to next field using: Tab key

Type:

Text: Open Device

Layout Name:

Images

Additional Properties:

Change to hand cursor over button
Rectangular

Top: 6 pt
Left: 12 pt
Bottom: 31 pt
Right: 127 pt

Anchoring: Left, Top

Perform Script [ “OpenDevice” ]

Scripts:

OpenDevice

Button Properties

Coordinates

Script/Script Step

Type:

Text: Close Device

Layout Name:

Images

Additional Properties:

Change to hand cursor over button
Rectangular

Top: 6 pt
Left: 138 pt
Bottom: 31 pt
Right: 253 pt

Anchoring: Left, Top

Perform Script [ “CloseDevice” ]

Scripts:

CloseDevice

Button Properties

Coordinates

Script/Script Step

Type:

Text: Request Scan

Layout Name:

Images

Additional Properties:

Change to hand cursor over button
Rectangular

Top: 6 pt
Left: 276 pt
Bottom: 31 pt
Right: 391 pt

Anchoring: Left, Top

Perform Script [ “StartScan” ]

Scripts:

StartScan

Script Name	Initialize
Run script with full access privileges	Off
Include In Menu	Yes
Layouts that use this script	Devices
Scripts that use this script
Script Definition
Script Steps	Set Variable [ $r; Value:MBS("ImageCapture.Initialize") ] If [ MBS("IsError") ] Show Custom Dialog [ Title: "Initialize"; Message: $r; Default Button: “OK”, Commit: “Yes”; Button 2: “Cancel”, Commit: “No” ] Exit Script [ ] End If Go to Layout [ “Devices” (Devices) ] Delete All Records [ No dialog ] #Query devices Set Variable [ $Devices; Value:MBS("ImageCapture.Devices") ] #loop over entries Set Variable [ $Count; Value:ValueCount($Devices) ] If [ $Count > 0 ] Set Variable [ $Index; Value:1 ] Loop #Check Device Set Variable [ $ID; Value:$index-1 // HoleWert($Devices; $index) ] New Record/Request Set Field [ Devices::Name; MBS("ImageCapture.DeviceInfo"; $ID; "name") ] Set Field [ Devices::ID; $ID ] Set Field [ Devices::Remote; Let ( [ r = MBS("ImageCapture.DeviceInfo"; $ID; "remote") ]; If(r = 1; "yes"; "no") ) ] Set Field [ Devices::Shared; Let ( [ r = MBS("ImageCapture.DeviceInfo"; $ID; "shared") ]; If(r = 1; "yes"; "no") ) ] Set Field [ Devices::transportType; MBS("ImageCapture.DeviceInfo"; $ID; "transportType") ] Set Field [ Devices::serialNumberString; MBS("ImageCapture.DeviceInfo"; $ID; "serialNumberString") ] Set Field [ Devices::locationDescription; MBS("ImageCapture.DeviceInfo"; $ID; "locationDescription") ] Set Field [ Devices::persistentIDString; MBS("ImageCapture.DeviceInfo"; $ID; "persistentIDString") ] Set Field [ Devices::icon; MBS("ImageCapture.DeviceInfo"; $ID; "icon") ] Set Field [ Devices::capabilities; MBS("ImageCapture.DeviceInfo"; $ID; "capabilities") ] Commit Records/Requests [ No dialog ] #next Set Variable [ $Index; Value:$index + 1 ] Exit Loop If [ $index > $Count ] End Loop End If
Fields used in this script	Devices::Name Devices::ID Devices::Remote Devices::Shared Devices::transportType Devices::serialNumberString Devices::locationDescription Devices::persistentIDString Devices::icon Devices::capabilities
Scripts used in this script
Layouts used in this script	Devices
Tables used in this script	Devices
Table occurrences used by this script	Devices
Custom Functions used by this script
Custom menu set used by this script

Previous Script: [Initialize]

Next Script: [UseDevice]

Script Name	Start
Run script with full access privileges	Off
Include In Menu	Yes
Layouts that use this script
Scripts that use this script
Script Definition
Script Steps	Go to Layout [ “Devices” (Devices) ] Delete All Records [ No dialog ]
Fields used in this script
Scripts used in this script
Layouts used in this script	Devices
Tables used in this script
Table occurrences used by this script
Custom Functions used by this script
Custom menu set used by this script

Previous Script: [Start]

Next Script: [OpenDevice]

Script Name	UseDevice
Run script with full access privileges	Off
Include In Menu	Yes
Layouts that use this script	Devices
Scripts that use this script
Script Definition
Script Steps	Set Variable [ $device; Value:Devices::Name ] Go to Layout [ “Images” (Images) ] Delete All Records [ No dialog ] Set Field [ Images::Device; $device ]
Fields used in this script	Devices::Name Images::Device
Scripts used in this script
Layouts used in this script	Images
Tables used in this script	Devices Images
Table occurrences used by this script	Devices Images
Custom Functions used by this script
Custom menu set used by this script

Previous Script: [UseDevice]

Next Script: [CloseDevice]

Script Name	OpenDevice
Run script with full access privileges	Off
Include In Menu	Yes
Layouts that use this script	Images
Scripts that use this script
Script Definition
Script Steps	Set Variable [ $r; Value:MBS("ImageCapture.OpenDevice"; Images::Device) ] If [ MBS("iserror") ] Show Custom Dialog [ Title: "Failed to open"; Message: MBS("Text.RemovePrefix"; $r; "[MBS] "); Default Button: “OK”, Commit: “Yes”; Button 2: “Cancel”, Commit: “No” ] Exit Script [ ] End If Pause/Resume Script [ Duration (seconds): ,1 ] Set Variable [ $r; Value:MBS("ImageCapture.GetParameter"; "availableFunctionalUnitTypes") ] If [ Length ( $r ) > 0 ] #if we have more than one, pick one Set Variable [ $r; Value:MBS("ImageCapture.requestSelectFunctionalUnit"; "Flatbed") ] If [ MBS("iserror") ] Show Custom Dialog [ Title: "Failed to get flatbed?"; Message: MBS("Text.RemovePrefix"; $r; "[MBS] "); Default Button: “OK”, Commit: “Yes”; Button 2: “Cancel”, Commit: “No” ] Exit Script [ ] End If End If Set Variable [ $r; Value:MBS("ImageCapture.Features") ]
Fields used in this script	Images::Device
Scripts used in this script
Layouts used in this script
Tables used in this script	Images
Table occurrences used by this script	Images
Custom Functions used by this script
Custom menu set used by this script

Previous Script: [OpenDevice]

Next Script: [StartScan]

Script Name	CloseDevice
Run script with full access privileges	Off
Include In Menu	Yes
Layouts that use this script	Images
Scripts that use this script
Script Definition
Script Steps	Set Variable [ $r; Value:MBS("ImageCapture.CloseDevice") ]
Fields used in this script
Scripts used in this script
Layouts used in this script
Tables used in this script
Table occurrences used by this script
Custom Functions used by this script
Custom menu set used by this script

Previous Script: [CloseDevice]

Next Script: [Preferred Device]

Script Name	StartScan
Run script with full access privileges	Off
Include In Menu	Yes
Layouts that use this script	Images
Scripts that use this script
Script Definition
Script Steps	# query some things Set Variable [ $supportedResolutions; Value:MBS("ImageCapture.GetParameter"; "supportedResolutions") ] If [ MBS("iserror") ] Show Custom Dialog [ Title: "Failed start scan"; Message: MBS("Text.RemovePrefix"; $supportedResolutions; "[MBS] "); Default Button: “OK”, Commit: “Yes”; Button 2: “Cancel”, Commit: “No” ] Exit Script [ ] End If Set Variable [ $supportedDocumentTypes; Value:MBS("ImageCapture.GetParameter"; "supportedDocumentTypes") ] Set Variable [ $supportedScaleFactors; Value:MBS("ImageCapture.GetParameter"; "supportedScaleFactors") ] Set Variable [ $supportedBitDepths; Value:MBS("ImageCapture.GetParameter"; "supportedBitDepths") ] Set Variable [ $supportedMeasurementUnits; Value:MBS("ImageCapture.GetParameter"; "supportedMeasurementUnits") ] Set Field [ Images::supportedResolutions; $supportedResolutions ] Set Field [ Images::supportedDocumentTypes; $supportedDocumentTypes ] Set Field [ Images::supportedScaleFactors; $supportedScaleFactors ] Set Field [ Images::supportedBitDepths; $supportedBitDepths ] Set Field [ Images::supportedMeasurementUnits; $supportedMeasurementUnits ] # set parameters Set Variable [ $physicalWidth; Value:MBS("ImageCapture.GetParameter"; "physicalWidth") ] Set Variable [ $physicalHeight; Value:MBS("ImageCapture.GetParameter"; "physicalHeight") ] Set Variable [ $r; Value:MBS("ImageCapture.SetParameter"; "documentType"; "USLetter") ] Set Variable [ $r; Value:MBS("ImageCapture.SetParameter"; "documentName"; "Scan") ] Set Variable [ $r; Value:MBS("ImageCapture.SetParameter"; "resolution"; 300) ] Set Variable [ $r; Value:MBS("ImageCapture.SetParameter"; "bitDepth"; 8) ] Set Variable [ $r; Value:MBS("ImageCapture.SetParameter"; "pixelDataType"; "RGB") ] Set Variable [ $r; Value:MBS("ImageCapture.SetParameter"; "documentUTI"; "jpeg") ] Set Variable [ $r; Value:MBS("ImageCapture.SetParameter"; "downloadsDirectory"; "temp") ] Set Variable [ $r; Value:MBS("ImageCapture.SetParameter"; "scanArea"; 0; 0; $physicalWidth; $physicalHeight) ] Set Variable [ $p; Value:MBS( "ProgressDialog.Reset") ] Set Variable [ $p; Value:MBS( "ProgressDialog.SetTitle"; "Scanning" ) ] Set Variable [ $p; Value:MBS( "ProgressDialog.SetBottomText"; "" ) ] Set Variable [ $p; Value:MBS( "ProgressDialog.SetTopText"; "Scan from Flatbet scanner." ) ] Set Variable [ $p; Value:MBS( "ProgressDialog.SetButtonCaption"; "Cancel" ) ] Set Variable [ $p; Value:MBS( "ProgressDialog.SetProgress"; -1 ) ] Set Variable [ $p; Value:MBS( "ProgressDialog.Show" ) ] Set Variable [ $r; Value:MBS("ImageCapture.requestScan") ] Set Variable [ $error; Value:MBS("iserror") // check error state here as progress dialog function clears it. ] Set Variable [ $p; Value:MBS( "ProgressDialog.Hide" ) ] If [ $error ] Show Custom Dialog [ Title: "Failed start scan"; Message: MBS("Text.RemovePrefix"; $r; "[MBS] "); Default Button: “OK”, Commit: “No” ] Exit Script [ ] End If #read images Pause/Resume Script [ Duration (seconds): ,1 ] Set Variable [ $Paths; Value:MBS("ImageCapture.ImagePaths") ] If [ Length ( $Paths ) > 0 ] Set Variable [ $Count; Value:ValueCount ( $Paths ) ] If [ $Count > 0 ] Set Variable [ $Index; Value:1 ] Loop Set Variable [ $Path; Value:GetValue($Paths; $index) ] New Record/Request Set Field [ Images::Image; MBS("Container.ReadFile"; $path) ] Set Variable [ $r; Value:MBS( "Files.Delete"; $Path ) ] Commit Records/Requests [ No dialog ] Set Variable [ $Index; Value:$index + 1 ] Exit Loop If [ $index > $count ] End Loop End If End If
Fields used in this script	Images::supportedResolutions Images::supportedDocumentTypes Images::supportedScaleFactors Images::supportedBitDepths Images::supportedMeasurementUnits Images::Image
Scripts used in this script
Layouts used in this script
Tables used in this script	Images
Table occurrences used by this script	Images
Custom Functions used by this script
Custom menu set used by this script

Previous Script: [StartScan]

Script Name	Preferred Device
Run script with full access privileges	Off
Include In Menu	Yes
Layouts that use this script
Scripts that use this script
Script Definition
Script Steps	Set Variable [ $PreferredDevice; Value:MBS( "ImageCapture.PreferredDevice" ) ] Set Variable [ $Name; Value:MBS( "ImageCapture.DeviceInfo"; $PreferredDevice; "name" ) ] Show Custom Dialog [ Title: "Preferred Device"; Message: $name; Default Button: “OK”, Commit: “Yes”; Button 2: “Cancel”, Commit: “No” ]
Fields used in this script
Scripts used in this script
Layouts used in this script
Tables used in this script
Table occurrences used by this script
Custom Functions used by this script
Custom menu set used by this script

Download example: ImageCapture

Used functions: