Monkeybread Software - MBS FileMaker Plugin: Camera Import

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

MBS FileMaker Plugin Example Databases

Camera Import

All examples are included with download of MBS FileMaker Plugin.

Camera Import.fmp12

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

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: Initialize
OnLastWindowClose	Script: Clear
OnWindowOpen	Off
OnWindowClose	Off
OnFileAVPlayerChange	Off
Thumbnail Settings
Generate Thumbnails	On; Temporary

Tables

Table Name	Statistics	Occurrences in Relationship Graph
Camera Import	14 fields defined, 0 record	Camera Import

Fields

Table Name: Camera Import - 14 Fields
Field Name	Type	Options	Comments	On Layouts	In Relationships	In Scripts	In Value Lists
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		Camera Import		Query Images on device Download
UTI	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		Camera Import		Query Images on device
Device	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		Camera Import		Query Images on device
creationDate	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		Camera Import		Query Images on device
modificationDate	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		Camera Import		Query Images on device
metadata	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		Camera Import		Query Images on device
userData	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		Camera Import		Query Images on device
fileSize	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		Camera Import		Query Images on device
orientation	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		Camera Import		Query Images on device
duration	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		Camera Import		Query Images on device
thumbnail	Normal, Binary	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1		Camera Import		Query Images on device
image	Normal, Binary	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1		Camera Import		Download
CameraName	Normal, Text	Auto-Enter: Validation: Only during data entry Storage: Global Repetitions: 1 Index Language: German		Camera Import		Connect to First Camera Initialize Clear
CameraIcon	Normal, Binary	Auto-Enter: Validation: Only during data entry Storage: Global Repetitions: 1		Camera Import		Connect to First Camera Initialize Clear

Layout Objects: Camera Import

Regular Fields

Field Name: Camera Import::Name

Layout Name:

Camera Import

Top: 60 pt
Left: 155 pt
Bottom: 81 pt
Right: 408 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

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

Yes

Field Name: Camera Import::UTI

Layout Name:

Camera Import

Top: 83 pt
Left: 155 pt
Bottom: 104 pt
Right: 408 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

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

Yes

Field Name: Camera Import::Device

Layout Name:

Camera Import

Top: 106 pt
Left: 155 pt
Bottom: 127 pt
Right: 408 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

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

Yes

Field Name: Camera Import::creationDate

Layout Name:

Camera Import

Top: 129 pt
Left: 155 pt
Bottom: 150 pt
Right: 408 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

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

Yes

Field Name: Camera Import::modificationDate

Layout Name:

Camera Import

Top: 152 pt
Left: 155 pt
Bottom: 173 pt
Right: 408 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

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

Yes

Field Name: Camera Import::metadata

Layout Name:

Camera Import

Top: 175 pt
Left: 155 pt
Bottom: 196 pt
Right: 408 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

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

Yes

Field Name: Camera Import::userData

Layout Name:

Camera Import

Top: 198 pt
Left: 155 pt
Bottom: 219 pt
Right: 408 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

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

Yes

Field Name: Camera Import::fileSize

Layout Name:

Camera Import

Top: 221 pt
Left: 155 pt
Bottom: 242 pt
Right: 408 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

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

Yes

Field Name: Camera Import::orientation

Layout Name:

Camera Import

Top: 244 pt
Left: 155 pt
Bottom: 265 pt
Right: 408 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

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

Yes

Field Name: Camera Import::duration

Layout Name:

Camera Import

Top: 267 pt
Left: 155 pt
Bottom: 288 pt
Right: 408 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

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

Yes

Field Name: Camera Import::thumbnail

Layout Name:

Camera Import

Top: 290 pt
Left: 155 pt
Bottom: 415 pt
Right: 408 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

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

Field Name: Camera Import::image

Layout Name:

Camera Import

Top: 60 pt
Left: 419 pt
Bottom: 415 pt
Right: 990 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

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

Field Name: Camera Import::CameraName

Layout Name:

Camera Import

Top: 436 pt
Left: 93 pt
Bottom: 457 pt
Right: 346 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

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

Field Name: Camera Import::CameraIcon

Layout Name:

Camera Import

Top: 430 pt
Left: 357 pt
Bottom: 466 pt
Right: 430 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

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

Type:

Text: Connect to First Camera

Layout Name:

Camera Import

Top: 9 pt
Left: 14 pt
Bottom: 45 pt
Right: 175 pt

Anchoring: Left, Top

Perform Script [ “Connect to First Camera” ]

Scripts:

Connect to First Camera

Button Properties

Coordinates

Script/Script Step

Type:

Text: Download Image

Layout Name:

Camera Import

Hide Condition:

Length ( Camera Import::Name ) = 0

Top: 356 pt
Left: 10 pt
Bottom: 386 pt
Right: 144 pt

Anchoring: Left, Top

Perform Script [ “Download” ]

Scripts:

Download

Button Properties

Coordinates

Script/Script Step

Type:

Text: Take Picture

Layout Name:

Camera Import

Top: 9 pt
Left: 185 pt
Bottom: 45 pt
Right: 346 pt

Anchoring: Left, Top

Perform Script [ “Take Picture” ]

Scripts:

Take Picture

Button Properties

Coordinates

Script/Script Step

Type:

Text: Import Pictures

Layout Name:

Camera Import

Top: 9 pt
Left: 356 pt
Bottom: 45 pt
Right: 517 pt

Anchoring: Left, Top

Perform Script [ “Query Images on device” ]

Scripts:

Query Images on device

Script Hierarchy

Connect to First Camera

Query Battery

Initialize

Take Picture

Query Images on device

Download

Clear

Next Script: [Query Battery]

Script Name	Connect to First Camera
Run script with full access privileges	Off
Include In Menu	No
Layouts that use this script	Camera Import
Scripts that use this script
Script Definition
Script Steps	Set Variable [ $devices; Value:MBS( "ImageCapture.Devices"; "camera" ) ] Set Variable [ $count; Value:ValueCount ( $Devices ) ] If [ $count = 0 ] Show Custom Dialog [ Title: "No devices found."; Message: "Please connect devicer like iPhone and unlock it."; Default Button: “OK”, Commit: “Yes”; Button 2: “Abbrechen”, Commit: “No” ] Exit Script [ ] End If Set Variable [ $device; Value:GetValue($devices; 1) ] Set Variable [ $r; Value:MBS( "ImageCapture.OpenDevice"; $device ) ] If [ $r ≠ "OK" ] Show Custom Dialog [ Title: "Failed to open device."; Message: $r; Default Button: “OK”, Commit: “Yes”; Button 2: “Abbrechen”, Commit: “No” ] Exit Script [ ] End If Set Variable [ $name; Value:MBS( "ImageCapture.DeviceInfo"; $device; "name" ) ] Set Variable [ $capabilities; Value:MBS( "ImageCapture.DeviceInfo"; $device; "capabilities" ) ] Show Custom Dialog [ Title: "Opened camera " & $name; Message: $capabilities; Default Button: “OK”, Commit: “Yes”; Button 2: “Abbrechen”, Commit: “No” ] Set Field [ Camera Import::CameraName; $name ] Set Field [ Camera Import::CameraIcon; MBS( "ImageCapture.DeviceInfo"; $device; "icon") ] Set Variable [ $$Device; Value:$Device ]
Fields used in this script	Camera Import::CameraName Camera Import::CameraIcon
Scripts used in this script
Layouts used in this script
Tables used in this script	Camera Import
Table occurrences used by this script	Camera Import
Custom Functions used by this script
Custom menu set used by this script

Previous Script: [Connect to First Camera]

Next Script: [Initialize]

Script Name	Query Battery
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	If [ Length ( $$Device ) = 0 ] Show Custom Dialog [ Title: "Device not connected."; Message: "Please open session first."; Default Button: “OK”, Commit: “Yes”; Button 2: “Abbrechen”, Commit: “No” ] Else If [ MBS( "ImageCapture.CameraInfo"; "batteryLevelAvailable" ) ] Show Custom Dialog [ Title: "batteryLevel"; Message: MBS( "ImageCapture.CameraInfo"; "batterylevel" ); Default Button: “OK”, Commit: “Yes”; Button 2: “Abbrechen”, Commit: “No” ] Else Show Custom Dialog [ Title: "batteryLevel"; Message: "not known"; Default Button: “OK”, Commit: “Yes”; Button 2: “Abbrechen”, Commit: “No” ] End If End If
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: [Query Battery]

Next Script: [Take Picture]

Script Name	Initialize
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	#run early, so we can find cameras and have them detected before we need them Set Variable [ $r; Value:MBS( "ImageCapture.Initialize" ) ] Set Variable [ $$Device; Value:"" ] Set Field [ Camera Import::CameraName; "" ] Set Field [ Camera Import::CameraIcon; "" ]
Fields used in this script	Camera Import::CameraName Camera Import::CameraIcon
Scripts used in this script
Layouts used in this script
Tables used in this script	Camera Import
Table occurrences used by this script	Camera Import
Custom Functions used by this script
Custom menu set used by this script

Previous Script: [Initialize]

Next Script: [Query Images on device]

Script Name	Take Picture
Run script with full access privileges	Off
Include In Menu	Yes
Layouts that use this script	Camera Import
Scripts that use this script
Script Definition
Script Steps	If [ Length ( $$Device ) = 0 ] Show Custom Dialog [ Title: "Device not connected."; Message: "Please open session first."; Default Button: “OK”, Commit: “Yes”; Button 2: “Abbrechen”, Commit: “No” ] Exit Script [ ] End If If [ MBS( "ImageCapture.CameraInfo"; "tetheredCaptureEnabled" ) = 0 ] Set Variable [ $r; Value:MBS( "ImageCapture.RequestEnableTethering" ) ] If [ $r ≠ "OK" ] Show Custom Dialog [ Title: "Failed to start tethering"; Message: $r; Default Button: “OK”, Commit: “Yes”; Button 2: “Abbrechen”, Commit: “No” ] Exit Script [ ] End If Pause/Resume Script [ Duration (seconds): ,3 ] End If Set Variable [ $r; Value:MBS( "ImageCapture.RequestTakePicture" ) ] If [ $r ≠ "OK" ] Show Custom Dialog [ Title: "Failed to take picture."; Message: $r; Default Button: “OK”, Commit: “Yes”; Button 2: “Abbrechen”, Commit: “No” ] Exit Script [ ] End If
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: [Take Picture]

Next Script: [Download]

Script Name	Query Images on device
Run script with full access privileges	Off
Include In Menu	Yes
Layouts that use this script	Camera Import
Scripts that use this script
Script Definition
Script Steps	Set Variable [ $json; Value:MBS( "ImageCapture.MediaFiles" ) ] Set Variable [ $count; Value:MBS( "JSON.GetArraySize"; $json ) ] If [ $count > 0 ] Set Variable [ $index; Value:0 ] Loop Set Variable [ $j; Value:MBS( "JSON.GetArrayItem"; $json; $index; 1) ] New Record/Request Set Field [ Camera Import::Name; MBS( "JSON.GetPathItem"; $j; "name"; 3) ] Set Field [ Camera Import::UTI; MBS( "JSON.GetPathItem"; $j; "UTI"; 3) ] Set Field [ Camera Import::Device; MBS( "JSON.GetPathItem"; $j; "device"; 3) ] Set Field [ Camera Import::creationDate; MBS( "JSON.GetPathItem"; $j; "creationDate"; 3) ] Set Field [ Camera Import::modificationDate; MBS( "JSON.GetPathItem"; $j; "modificationDate"; 3) ] Set Field [ Camera Import::metadata; MBS( "JSON.GetPathItem"; $j; "metadata"; 2) ] Set Field [ Camera Import::userData; MBS( "JSON.GetPathItem"; $j; "userData"; 2) ] Set Field [ Camera Import::fileSize; MBS( "JSON.GetPathItem"; $j; "fileSize"; 3) ] Set Field [ Camera Import::orientation; MBS( "JSON.GetPathItem"; $j; "orientation"; 3) ] Set Field [ Camera Import::duration; MBS( "JSON.GetPathItem"; $j; "duration"; 3) ] Set Field [ Camera Import::thumbnail; MBS( "ImageCapture.Thumbnail"; Camera Import::Name) ] Commit Records/Requests [ No dialog ] Set Variable [ $r; Value:MBS("JSON.Release"; $j) ] #next Set Variable [ $index; Value:$index + 1 ] Exit Loop If [ $index ≥ $count ] End Loop End If
Fields used in this script	Camera Import::Name Camera Import::UTI Camera Import::Device Camera Import::creationDate Camera Import::modificationDate Camera Import::metadata Camera Import::userData Camera Import::fileSize Camera Import::orientation Camera Import::duration Camera Import::thumbnail
Scripts used in this script
Layouts used in this script
Tables used in this script	Camera Import
Table occurrences used by this script	Camera Import
Custom Functions used by this script
Custom menu set used by this script

Previous Script: [Query Images on device]

Next Script: [Clear]

Script Name	Download
Run script with full access privileges	Off
Include In Menu	No
Layouts that use this script	Camera Import
Scripts that use this script
Script Definition
Script Steps	If [ Length(Camera Import::Name) > 0 ] Set Variable [ $path; Value:MBS( "ImageCapture.Download"; Camera Import::Name) ] If [ MBS("IsError") ] Show Custom Dialog [ Title: "Failed to download"; Message: $path; Default Button: “OK”, Commit: “Yes”; Button 2: “Abbrechen”, Commit: “No” ] Else Set Variable [ $image; Value:MBS( "Files.ReadFile"; $path; "auto") ] If [ MBS("IsError") ] Show Custom Dialog [ Title: "Failed to import"; Message: $image; Default Button: “OK”, Commit: “Yes”; Button 2: “Abbrechen”, Commit: “No” ] Else Set Field [ Camera Import::image; $image ] End If End If End If
Fields used in this script	Camera Import::Name Camera Import::image
Scripts used in this script
Layouts used in this script
Tables used in this script	Camera Import
Table occurrences used by this script	Camera Import
Custom Functions used by this script
Custom menu set used by this script

Previous Script: [Download]

Script Name	Clear
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 Field [ Camera Import::CameraName; "" ] Set Field [ Camera Import::CameraIcon; "" ]
Fields used in this script	Camera Import::CameraName Camera Import::CameraIcon
Scripts used in this script
Layouts used in this script
Tables used in this script	Camera Import
Table occurrences used by this script	Camera Import
Custom Functions used by this script
Custom menu set used by this script

Download example: Camera Import

Used functions: