MBS FileMaker Plugin Example Databases

Extract Attachments

All examples are included with download of MBS FileMaker Plugin.

Extract Attachments.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 Attachments
9 fields defined, 0 record
Extract Attachments

Fields

Table Name: Extract Attachments - 9 Fields
Field NameTypeOptionsCommentsOn LayoutsIn RelationshipsIn ScriptsIn Value Lists
SourcePDFNormal, BinaryAuto-Enter:
  • Allow editing
Validation:
  • Only during data entry
Storage:
  • Global
  • Repetitions: 1
      Embedded FileNormal, BinaryAuto-Enter:
      • Allow editing
      Validation:
      • Only during data entry
      Storage:
      • Repetitions: 1
          NameNormal, TextAuto-Enter:
          • Allow editing
          Validation:
          • Only during data entry
          Storage:
          • Repetitions: 1
          • Indexing: None
          • Automatically create indexes as needed
          • Index Language: German
              FileNameNormal, TextAuto-Enter:
              • Allow editing
              Validation:
              • Only during data entry
              Storage:
              • Repetitions: 1
              • Indexing: None
              • Automatically create indexes as needed
              • Index Language: German
                  FileSizeNormal, TextAuto-Enter:
                  • Allow editing
                  Validation:
                  • Only during data entry
                  Storage:
                  • Repetitions: 1
                  • Indexing: None
                  • Automatically create indexes as needed
                  • Index Language: German
                      MimeTypeNormal, TextAuto-Enter:
                      • Allow editing
                      Validation:
                      • Only during data entry
                      Storage:
                      • Repetitions: 1
                      • Indexing: None
                      • Automatically create indexes as needed
                      • Index Language: German
                          DescriptionNormal, TextAuto-Enter:
                          • Allow editing
                          Validation:
                          • Only during data entry
                          Storage:
                          • Repetitions: 1
                          • Indexing: None
                          • Automatically create indexes as needed
                          • Index Language: German
                              CreationDateNormal, TextAuto-Enter:
                              • Allow editing
                              Validation:
                              • Only during data entry
                              Storage:
                              • Repetitions: 1
                              • Indexing: None
                              • Automatically create indexes as needed
                              • Index Language: German
                                  PasswordNormal, TextAuto-Enter:
                                  • Allow editing
                                  Validation:
                                  • Only during data entry
                                  Storage:
                                  • Global
                                  • Repetitions: 1
                                  • Index Language: German

                                      Layout Objects: Extract Attachments

                                      Regular Fields

                                      Field Name: Extract Attachments::SourcePDF
                                      Field PropertiesCoordinatesField FormatField BehaviorQuick Find
                                      • Top: 10 pt
                                      • Left: 83 pt
                                      • Bottom: 135 pt
                                      • Right: 336 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 Attachments::Embedded File
                                      Field PropertiesCoordinatesField FormatField BehaviorQuick Find
                                      • Top: 149 pt
                                      • Left: 84 pt
                                      • Bottom: 274 pt
                                      • Right: 337 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
                                      No

                                      Field Name: Extract Attachments::Name
                                      Field PropertiesCoordinatesField FormatField BehaviorQuick Find
                                      • Top: 149 pt
                                      • Left: 426 pt
                                      • Bottom: 163 pt
                                      • Right: 679 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: Extract Attachments::FileName
                                      Field PropertiesCoordinatesField FormatField BehaviorQuick Find
                                      • Top: 167 pt
                                      • Left: 426 pt
                                      • Bottom: 181 pt
                                      • Right: 679 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: Extract Attachments::FileSize
                                      Field PropertiesCoordinatesField FormatField BehaviorQuick Find
                                      • Top: 185 pt
                                      • Left: 426 pt
                                      • Bottom: 199 pt
                                      • Right: 679 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: Extract Attachments::MimeType
                                      Field PropertiesCoordinatesField FormatField BehaviorQuick Find
                                      • Top: 203 pt
                                      • Left: 426 pt
                                      • Bottom: 217 pt
                                      • Right: 679 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: Extract Attachments::Description
                                      Field PropertiesCoordinatesField FormatField BehaviorQuick Find
                                      • Top: 221 pt
                                      • Left: 426 pt
                                      • Bottom: 235 pt
                                      • Right: 679 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: Extract Attachments::CreationDate
                                      Field PropertiesCoordinatesField FormatField BehaviorQuick Find
                                      • Top: 239 pt
                                      • Left: 426 pt
                                      • Bottom: 253 pt
                                      • Right: 679 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: Extract Attachments::Password
                                      Field PropertiesCoordinatesField FormatField BehaviorQuick Find
                                      • Top: 121 pt
                                      • Left: 426 pt
                                      • Bottom: 135 pt
                                      • Right: 679 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
                                      No

                                      Group Buttons

                                      Button PropertiesCoordinatesScript/Script Step
                                        Type:
                                      • Text: Extract Atachments
                                        Additional Properties:
                                      • Change to hand cursor over button
                                      • Rectangular
                                      • Top: 11 pt
                                      • Left: 363 pt
                                      • Bottom: 36 pt
                                      • Right: 496 pt
                                      • Anchoring: Left, Top
                                      Perform Script [ “Run” ]

                                      Scripts:


                                      Script Hierarchy

                                      Run
                                      InitDynaPDF
                                      Clear

                                      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 old entries
                                        • Go to Layout [ “Extract Attachments” ]
                                        • Delete All Records [ No dialog ]
                                        • #Clear current PDF document
                                        • Set Variable [ $pdf; Value:MBS("DynaPDF.New") ]
                                        • #Load PDF from container
                                        • Set Variable [ $r; Value:MBS("DynaPDF.OpenPDFFromContainer"; $pdf; Extract Attachments::SourcePDF; 1; Extract Attachments::Password) ]
                                        • If [ MBS("IsError") ]
                                        • Show Custom Dialog [ Title: "Error opening PDF"; Message: $r; Default Button: “OK”, Commit: “Yes”; Button 2: “Abbrechen”, Commit: “No” ]
                                        • Else
                                        • Set Variable [ $r; Value:MBS("DynaPDF.ImportPDFFile"; $pdf) ]
                                        • #Extract files
                                        • #embedded files
                                        • Set Variable [ $count; Value:MBS( "DynaPDF.GetEmbeddedFileCount"; $pdf ) ]
                                        • If [ $count > 0 ]
                                        • Set Variable [ $index; Value:0 ]
                                        • Loop
                                        • New Record/Request
                                        • Set Field [ Extract Attachments::Embedded File; MBS( "DynaPDF.GetEmbeddedFileAsContainer"; $pdf; $index ) ]
                                        • Set Field [ Extract Attachments::Name; MBS( "DynaPDF.GetEmbeddedFile"; $pdf; $index; "name" ) ]
                                        • Set Field [ Extract Attachments::FileName; MBS( "DynaPDF.GetEmbeddedFile"; $pdf; $index; "FileName" ) ]
                                        • Set Field [ Extract Attachments::FileSize; MBS( "DynaPDF.GetEmbeddedFile"; $pdf; $index; "FileSize" ) ]
                                        • Set Field [ Extract Attachments::MimeType; MBS( "DynaPDF.GetEmbeddedFile"; $pdf; $index; "MimeType" ) ]
                                        • Set Field [ Extract Attachments::Description; MBS( "DynaPDF.GetEmbeddedFile"; $pdf; $index; "Description" ) ]
                                        • Set Field [ Extract Attachments::CreationDate; MBS( "DynaPDF.GetEmbeddedFile"; $pdf; $index; "CreationDate" ) ]
                                        • Commit Records/Requests [ No dialog ]
                                        • #next
                                        • Set Variable [ $index; Value:$index +1 ]
                                        • Exit Loop If [ $index >= $count ]
                                        • End Loop
                                        • End If
                                        • #embedded files linked to annotations
                                        • Set Variable [ $count; Value:MBS( "DynaPDF.GetAnnotCount"; $pdf ) ]
                                        • Set Variable [ $index; Value:0 ]
                                        • If [ $count > 0 ]
                                        • Set Variable [ $index; Value:0 ]
                                        • Loop
                                        • Set Variable [ $EmbeddedFileHandle; Value:MBS( "DynaPDF.GetAnnotation"; $pdf; $index; "EmbeddedFile" ) ]
                                        • If [ $EmbeddedFileHandle > 0 ]
                                        • New Record/Request
                                        • Set Field [ Extract Attachments::Embedded File; MBS( "DynaPDF.GetEmbeddedFileAsContainer"; $pdf; $EmbeddedFileHandle ) ]
                                        • Set Field [ Extract Attachments::Name; MBS( "DynaPDF.GetEmbeddedFile"; $pdf; $EmbeddedFileHandle; "name" ) ]
                                        • Set Field [ Extract Attachments::FileName; MBS( "DynaPDF.GetEmbeddedFile"; $pdf; $EmbeddedFileHandle; "FileName" ) ]
                                        • Set Field [ Extract Attachments::FileSize; MBS( "DynaPDF.GetEmbeddedFile"; $pdf; $EmbeddedFileHandle; "FileSize" ) ]
                                        • Set Field [ Extract Attachments::MimeType; MBS( "DynaPDF.GetEmbeddedFile"; $pdf; $EmbeddedFileHandle; "MimeType" ) ]
                                        • Set Field [ Extract Attachments::Description; MBS( "DynaPDF.GetEmbeddedFile"; $pdf; $EmbeddedFileHandle; "Description" ) ]
                                        • Set Field [ Extract Attachments::CreationDate; MBS( "DynaPDF.GetEmbeddedFile"; $pdf; $EmbeddedFileHandle; "CreationDate" ) ]
                                        • Commit Records/Requests [ No dialog ]
                                        • End If
                                        • #next
                                        • Set Variable [ $index; Value:$index +1 ]
                                        • Exit Loop If [ $index >= $count ]
                                        • End Loop
                                        • End If
                                        • End If
                                        • #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]Next Script: [Clear]
                                            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
                                              • #you can have libraries in container and export at runtime to folder of your choice.
                                              • #Or install library somewhere and pass path.
                                              • #If library is in same folder as plugin, you can only pass only file name.
                                              • If [ MBS("IsServer") ]
                                              • #Put the path you use for your server here:
                                              • If [ Get(SystemPlatform) = -2 ]
                                              • #Server on Windows
                                              • Set Variable [ $path; Value:"C:\Programs\FileMaker Server\dynapdf64.dll" ]
                                              • Else If [ MBS("IsLinux") ]
                                              • #Server on Linux for FileMaker Cloud
                                              • Set Variable [ $path; Value:"/opt/FileMaker/FileMaker Server/dynapdf.linux.so" ]
                                              • Else
                                              • #Server on Mac
                                              • Set Variable [ $path; Value: "/Library/FileMaker Server/dynapdf.dylib" ]
                                              • End If
                                              • Else
                                              • #For desktop and our examples we look in same folder as database:
                                              • 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" ) ]
                                              • #plugin will look for dynapdf.dll and if not found also for dynapdf64.dll (64-bit) and dynapdf32.dll (32-bit).
                                              • Else
                                              • Set Variable [ $path; Value:Substitute ( $databasePath ; $databaseName ; "dynapdf.dylib" ) ]
                                              • #Mac dylib is usually 32 and 64 bit together.
                                              • End If
                                              • End If
                                              • #You can test for free.
                                              • #If you like to get a dynapdf license, please follow links on our pricing page:
                                              • #https://www.monkeybreadsoftware.de/filemaker/pricing.shtml
                                              • Set Variable [ $LicenseKey; Value:"" // put your key here or leave empty for demo. ]
                                              • Set Variable [ $r; Value:MBS( "DynaPDF.Initialize"; $path; $LicenseKey) ]
                                              • If [ $r ≠ "OK" ]
                                              • Show Custom Dialog [ Title: "Error"; Message: $r; Default Button: “OK”, Commit: “No”; Button 2: “Cancel”, Commit: “No” ]
                                              • Halt 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: [InitDynaPDF]
                                                            Script NameClear
                                                            Run script with full access privilegesOff
                                                            Include In MenuYes
                                                            Layouts that use this script
                                                              Scripts that use this script
                                                                Script Definition
                                                                Script Steps
                                                                • Set Field [ Extract Attachments::SourcePDF; "" ]
                                                                • Set Field [ Extract Attachments::Password; "" ]
                                                                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 Attachments

                                                                        Used functions:




                                                                        Links
                                                                        MBS Xojo PDF Plugins