MBS FileMaker Plugin Example Databases

Extract Attachments

All examples are included with download of MBS FileMaker Plugin.

Extract Attachments.fmp12

Overview
Tables1
Relationships0
Layouts1
Scripts4
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

                                      SetFolder
                                      Run
                                      InitDynaPDF
                                      Clear

                                      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 Attachments::<Field Missing>; $path ]
                                          Fields used in this script
                                          • <Missing Field>
                                          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 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
                                                          • 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

                                                                        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::<Field Missing>; "" ]
                                                                            • Set Field [ Extract Attachments::SourcePDF; "" ]
                                                                            • Set Field [ Extract Attachments::<Field Missing>; "" ]
                                                                            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 Plugins