Monkeybread Software - MBS FileMaker Plugin: CGImageSource

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

MBS FileMaker Plugin Example Databases

CGImageSource

All examples are included with download of MBS FileMaker Plugin.

CGImageSource.fmp12

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

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

Tables

Table Name	Statistics	Comments	Occurrences in Relationship Graph
CGImageSource	3 fields defined, 0 record		CGImageSource

Fields

Table Name: CGImageSource - 3 Fields
Field Name	Type	Options	Comments	On Layouts	In Relationships	In Scripts	In Value Lists
ImageFile	Normal, Binary	Auto-Enter: Allow editing Validation: Only during data entry Storage: Global Repetitions: 1		CGImageSource		Extract Metadata Change GPS
Key	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		CGImageSource		Extract Metadata
Value	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		CGImageSource		Extract Metadata

Layout Objects: CGImageSource

Regular Fields

Field Name: CGImageSource::ImageFile

Layout Name:

CGImageSource

Top: 6 pt
Left: 138 pt
Bottom: 131 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: CGImageSource::Key

Layout Name:

CGImageSource

Top: 162 pt
Left: 6 pt
Bottom: 181 pt
Right: 259 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: CGImageSource::Value

Layout Name:

CGImageSource

Top: 162 pt
Left: 270 pt
Bottom: 181 pt
Right: 523 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: Read Metadata

Layout Name:

CGImageSource

Top: 8 pt
Left: 400 pt
Bottom: 39 pt
Right: 523 pt

Anchoring: Left, Top

Perform Script [ “Extract Metadata” ]

Scripts:

Extract Metadata

Button Properties

Coordinates

Script/Script Step

Type:

Text: Add or change GPS

Layout Name:

CGImageSource

Top: 53 pt
Left: 402 pt
Bottom: 85 pt
Right: 525 pt

Anchoring: Left, Top

Perform Script [ “Change GPS” ]

Scripts:

Change GPS

Script Hierarchy

Extract Metadata

Change GPS

Next Script: [Change GPS]

Script Name	Extract Metadata
Run script with full access privileges	Off
Siri Shortcut Visible	Off
Include In Menu	Yes
Layouts that use this script	CGImageSource
Scripts that use this script
Script Definition
Script Steps	Delete All Records [ No dialog ] Set Variable [ $ref; Value:MBS("CGImageSource.CreateWithData"; CGImageSource::ImageFile) ] Set Variable [ $keys; Value:MBS("CGImageSource.Keys"; $ref; -1) ] Set Variable [ $count; Value:ValueCount ( $keys ) ] If [ GetAsNumber($count)>0 ] Set Variable [ $index; Value:0 ] Loop [ Flush: Always ] New Record/Request Set Variable [ $key; Value:GetValue ( $keys ; $index + 1 ) ] Set Variable [ $key; Value:Substitute ( $key ; "¶" ; "" ) ] Set Variable [ $value; Value:MBS("CGImageSource.Property"; $ref; -1; $key) ] Set Field [ CGImageSource::Key; "global " & $key ] Set Field [ CGImageSource::Value; $value ] Commit Records/Requests [ No dialog ] Set Variable [ $index; Value:$index + 1 ] Exit Loop If [ $count = $index ] End Loop End If Set Variable [ $keys; Value:MBS("CGImageSource.Keys"; $ref; 0) ] Set Variable [ $count; Value:ValueCount ( $keys ) ] If [ GetAsNumber($count)>0 ] Set Variable [ $index; Value:0 ] Loop [ Flush: Always ] New Record/Request Set Variable [ $key; Value:GetValue ( $keys ; $index + 1 ) ] Set Variable [ $key; Value:Substitute ( $key ; "¶" ; "" ) ] Set Variable [ $value; Value:MBS("CGImageSource.Property"; $ref; 0; $key) ] Set Field [ CGImageSource::Key; $key ] Set Field [ CGImageSource::Value; $value ] Commit Records/Requests [ No dialog ] Set Variable [ $index; Value:$index + 1 ] Exit Loop If [ $count = $index ] End Loop End If Set Variable [ $r; Value:MBS("CGImageSource.Release"; $ref) ]
Fields used in this script	CGImageSource::ImageFile CGImageSource::Key CGImageSource::Value
Scripts used in this script
Layouts used in this script
Tables used in this script	CGImageSource
Table occurrences used by this script	CGImageSource
Custom Functions used by this script
Custom menu set used by this script

Previous Script: [Extract Metadata]

Script Name	Change GPS
Run script with full access privileges	Off
Siri Shortcut Visible	Off
Include In Menu	Yes
Layouts that use this script	CGImageSource
Scripts that use this script
Script Definition
Script Steps	Set Variable [ $ref; Value:MBS("CGImageSource.CreateWithData"; CGImageSource::ImageFile) ] If [ MBS("IsError") = 0 ] #set new GPS values Set Variable [ $r; Value:MBS("CGImageSource.SetProperty"; $ref; 0; "{GPS}.ImgDirection"; 247) ] Set Variable [ $r; Value:MBS("CGImageSource.SetProperty"; $ref; 0; "{GPS}.LatitudeRef"; "N") ] Set Variable [ $r; Value:MBS("CGImageSource.SetProperty"; $ref; 0; "{GPS}.HPositioningError"; 21) ] Set Variable [ $r; Value:MBS("CGImageSource.SetProperty"; $ref; 0; "{GPS}.DestBearingRef"; "T") ] Set Variable [ $r; Value:MBS("CGImageSource.SetProperty"; $ref; 0; "{GPS}.Latitude"; 50) ] Set Variable [ $r; Value:MBS("CGImageSource.SetProperty"; $ref; 0; "{GPS}.Speed"; 0) ] Set Variable [ $r; Value:MBS("CGImageSource.SetProperty"; $ref; 0; "{GPS}.LongitudeRef"; "E") ] Set Variable [ $r; Value:MBS("CGImageSource.SetProperty"; $ref; 0; "{GPS}.AltitudeRef"; 0) ] Set Variable [ $r; Value:MBS("CGImageSource.SetProperty"; $ref; 0; "{GPS}.Longitude"; 7) ] Set Variable [ $r; Value:MBS("CGImageSource.SetProperty"; $ref; 0; "{GPS}.Altitude"; 0) ] Set Variable [ $r; Value:MBS("CGImageSource.SetProperty"; $ref; 0; "{GPS}.DestBearing"; 247) ] Set Variable [ $r; Value:MBS("CGImageSource.SetProperty"; $ref; 0; "{GPS}.ImgDirectionRef"; "T") ] Set Variable [ $r; Value:MBS("CGImageSource.SetProperty"; $ref; 0; "{GPS}.SpeedRef"; "K") ] #save to field Set Variable [ $Image; Value:MBS( "CGImageSource.Export"; $Ref; "output.jpg" ) ] If [ MBS("IsError") = 0 ] Set Field [ CGImageSource::ImageFile; $Image ] End If Set Variable [ $r; Value:MBS("CGImageSource.Release"; $ref) ] End If
Fields used in this script	CGImageSource::ImageFile
Scripts used in this script
Layouts used in this script
Tables used in this script	CGImageSource
Table occurrences used by this script	CGImageSource
Custom Functions used by this script
Custom menu set used by this script

Download example: CGImageSource

Used functions: