MBS FileMaker Plugin Example Databases

Extract Images

All examples are included with download of MBS FileMaker Plugin.

Extract Images.fmp12

Overview
Tables1
Relationships0
Layouts1
Scripts3
Value Lists0
Custom Functions0
Custom Menus33
File Options
Default custom menu set[Standard FileMaker Menus]
When opening file
Minimum allowed version12.0
Login usingAccount Name; Account= Admin
Allow user to save passwordOff
Require iOS passcodeOff
Switch to layoutOff
Hide all toolbarsOff
Script triggers
OnFirstWindowOpenOff
OnLastWindowCloseOff
OnWindowOpenOff
OnWindowCloseOff
OnFileAVPlayerChangeOff
Thumbnail Settings
Generate ThumbnailsOn; Temporary

 

Tables

Table Name
Statistics
Occurrences in Relationship Graph
Extract Images
3 fields defined, 1 record
Extract Images

Fields

Table Name: Extract Images - 3 Fields
Field NameTypeOptionsCommentsOn LayoutsIn RelationshipsIn ScriptsIn Value Lists
DestinationFolderPathNormal, TextAuto-Enter:
  • Allow editing
Validation:
  • Only during data entry
Storage:
  • Repetitions: 1
  • Indexing: None
  • Automatically create indexes as needed
  • Index Language: German
      SourcePDFNormal, BinaryAuto-Enter:
      • Allow editing
      Validation:
      • Only during data entry
      Storage:
      • Repetitions: 1
          NumberOfImagesNormal, NumberAuto-Enter:
          • Allow editing
          Validation:
          • Only during data entry
          Storage:
          • Repetitions: 1
          • Indexing: None
          • Automatically create indexes as needed
          • Index Language: German

              Layout Objects: Extract Images

              Regular Fields

              Field Name: Extract Images::DestinationFolderPath
              Field PropertiesCoordinatesField FormatField BehaviorQuick Find
              • Top: 24 pt
              • Left: 138 pt
              • Bottom: 38 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: Extract Images::SourcePDF
              Field PropertiesCoordinatesField FormatField BehaviorQuick Find
              • Top: 42 pt
              • Left: 138 pt
              • Bottom: 167 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
              No

              Field Name: Extract Images::NumberOfImages
              Field PropertiesCoordinatesField FormatField BehaviorQuick Find
              • Top: 168 pt
              • Left: 138 pt
              • Bottom: 182 pt
              • Right: 217 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

              Group Buttons

              Button PropertiesCoordinatesScript/Script Step
                Type:
              • Text: Set Desktop
                Additional Properties:
              • Change to hand cursor over button
              • Rectangular
              • Top: 24 pt
              • Left: 414 pt
              • Bottom: 49 pt
              • Right: 547 pt
              • Anchoring: Left, Top
              Perform Script [ “SetFolder” ]

              Scripts:


              Button PropertiesCoordinatesScript/Script Step
                Type:
              • Text: Extract Images
                Additional Properties:
              • Change to hand cursor over button
              • Rectangular
              • Top: 72 pt
              • Left: 414 pt
              • Bottom: 97 pt
              • Right: 547 pt
              • Anchoring: Left, Top
              Perform Script [ “Run” ]

              Scripts:


              Script Hierarchy

              SetFolder
              Run
              InitDynaPDF

              Next Script: [Run]
              Script NameSetFolder
              Run script with full access privilegesOff
              Include In MenuYes
              Layouts that use this script
              Scripts that use this script
                Script Definition
                Script Steps
                • Set Variable [ $path; Value:Get ( DesktopPath ) ]
                • Set Variable [ $path; Value:MBS( "Path.FilemakerPathToNativePath"; $path) ]
                • If [ (Right ( $path ; 1 ) ≠ "/") and (Right ( $path ; 1 ) ≠ "\\") ]
                • Set Variable [ $path; Value:$path & "/" ]
                • End If
                • Set Field [ Extract Images::DestinationFolderPath; $path ]
                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: [SetFolder]Next Script: [InitDynaPDF]
                        Script NameRun
                        Run script with full access privilegesOff
                        Include In MenuYes
                        Layouts that use this script
                        Scripts that use this script
                          Script Definition
                          Script Steps
                          • Set Variable [ $r; Value:MBS("Trace") ]
                          • #Initialize DynaPDF if needed
                          • If [ MBS("DynaPDF.IsInitialized") ≠ 1 ]
                          • Perform Script [ “InitDynaPDF” ]
                          • End If
                          • #Clear current PDF document
                          • Set Variable [ $pdf; Value:MBS("DynaPDF.New") ]
                          • #Load PDF from container
                          • Set Variable [ $r; Value:MBS("DynaPDF.OpenPDFFromContainer"; $pdf; Extract Images::SourcePDF) ]
                          • Set Variable [ $r; Value:MBS("DynaPDF.ImportPDFFile"; $pdf) ]
                          • #Query page count from import PDF
                          • Set Field [ Extract Images::NumberOfImages; MBS("DynaPDF.ExtractImages"; $pdf; Extract Images::DestinationFolderPath) ]
                          • #Cleanup
                          • Set Variable [ $r; Value:MBS("DynaPDF.Release"; $pdf) ]
                          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: [Run]
                                Script NameInitDynaPDF
                                Run script with full access privilegesOff
                                Include In MenuNo
                                Layouts that use this script
                                  Scripts that use this script
                                  Script Definition
                                  Script Steps
                                  • #Locate DynaPDF library
                                  • Set Variable [ $databasePath; Value:Get(FilePath) ]
                                  • Set Variable [ $databasePath; Value:MBS("Path.FilemakerPathToNativePath"; $databasePath) ]
                                  • Set Variable [ $databasePath; Value:Substitute ( $databasePath ; ".fp7" ; ".fmp12") ]
                                  • Set Variable [ $databaseName; Value:Get(FileName) & ".fmp12" ]
                                  • If [ Get(SystemPlatform) = -2 ]
                                  • Set Variable [ $path; Value:Substitute ( $databasePath ; $databaseName ; "dynapdf.dll" ) ]
                                  • Else
                                  • Set Variable [ $path; Value:Substitute ( $databasePath ; $databaseName ; "dynapdf.dylib" ) ]
                                  • End If
                                  • #Initialize DynaPDF
                                  • Set Variable [ $r; Value:MBS( "DynaPDF.Initialize"; $path) ]
                                  • If [ $r ≠ "OK" ]
                                  • Show Custom Dialog [ Title: "DynaPDF failed to initialize"; Message: $r; Default Button: “OK”, Commit: “No”; Button 2: “Abbrechen”, Commit: “No” ]
                                  • Else
                                  • Set Variable [ $$DynaPDFInited; Value:1 ]
                                  • 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

                                                Download example: Extract Images

                                                Used functions:




                                                Links
                                                MBS Xojo Plugins