Platforms to show: All Mac Windows Linux Cross-Platform
/DynaPDF/Document Info
Function:
You find this example project in your Plugins Download as a Xojo project file within the examples folder: /DynaPDF/Document Info
This example is the version from Tue, 28th Dec 2020.
Function:
You find this example project in your Plugins Download as a Xojo project file within the examples folder: /DynaPDF/Document Info
This example is the version from Tue, 28th Dec 2020.
Project "Document Info.xojo_binary_project"
Class App Inherits Application
Const kEditClear = "&Löschen"
Const kFileQuit = "Beenden"
Const kFileQuitShortcut = ""
End Class
Class Window1 Inherits Window
Control List Inherits Listbox
ControlInstance List Inherits Listbox
End Control
EventHandler Sub Open()
file = findFIle("test.pdf")
if file = nil then
file = GetOpenFolderItem("")
end if
if file <> nil then
ReadInfo
end if
End EventHandler
Function FindFile(name as string) As FolderItem
// Look for file in parent folders from executable on
dim parent as FolderItem = app.ExecutableFile.Parent
while parent<>Nil
dim file as FolderItem = parent.Child(name)
if file<>Nil and file.Exists then
Return file
end if
parent = parent.Parent
wend
End Function
Sub ReadInfo()
p = New MyDynaPDFMBS
p.SetLicenseKey "Pro" // For this example you can use Pro or Enterprise License
call p.CreateNewPDF(nil)
// Skip anything that is not required
call p.SetImportFlags p.kifImportAll+p.kifImportAsPage
// From which PDF file do you want to extract the information?
Call p.OpenImportFile(file, p.kptOpen, "")
// lookup all document information
dim count as integer = p.GetInDocInfoCount
for i as integer = 0 to count-1
dim DInfo as integer
dim key as string
dim value as string
if p.GetInDocInfoEx(i, DInfo, key, value) >= 0 then
dim Type as string
select case dinfo
case p.kdiAuthor
type = "Author"
case p.kdiCreator
type = "Creator"
case p.kdiKeywords
type = "Keywords"
case p.kdiProducer
type = "Producer"
case p.kdiSubject
type = "Subject"
case p.kdiTitle
type = "Title"
case p.kdiCompany
type = "Company"
case p.kdiPDFX_Ver
type = "PDF/X Version"
case p.kdiCustom
type = "Custom"
case p.kdiPDFX_Conf
type = "PDF/X Config"
case p.kdiCreationDate
type = "Creation Date"
case p.kdiModDate
type = "Modification Date"
else
Break
type = "?"
end Select
List.AddRow type, key, value
end if
next
// close import file
call p.CloseImportFile
End Sub
Property file As FolderItem
Property p As MyDynaPDFMBS
Property pic As Picture
End Class
MenuBar MenuBar1
MenuItem FileMenu = "&Ablage"
MenuItem FileQuit = "#App.kFileQuit"
MenuItem EditMenu = "&Bearbeiten"
MenuItem EditUndo = "&Rückgängig"
MenuItem UntitledMenu1 = "-"
MenuItem EditCut = "&Ausschneiden"
MenuItem EditCopy = "&Kopieren"
MenuItem EditPaste = "&Einfügen"
MenuItem EditClear = "#App.kEditClear"
MenuItem UntitledMenu0 = "-"
MenuItem EditSelectAll = "&Alles auswählen"
End MenuBar
Class MyDynaPDFMBS Inherits DynaPDFMBS
EventHandler Function Error(ErrorCode as integer, ErrorMessage as string, ErrorType as integer) As integer
// output all messages on the console:
System.DebugLog str(ErrorCode)+": "+ErrorMessage
// and display dialog:
Dim d as New MessageDialog //declare the MessageDialog object
Dim b as MessageDialogButton //for handling the result
d.icon=MessageDialog.GraphicCaution //display warning icon
d.ActionButton.Caption="Continue"
d.CancelButton.Visible=True //show the Cancel button
// a warning or an error?
if BitAnd(ErrorType, me.kE_WARNING) = me.kE_WARNING then
// if user decided to ignore, we'll ignore
if IgnoreWarnings then Return 0
d.Message="A warning occurred while processing your PDF code."
// we add a third button to display all warnings
d.AlternateActionButton.Caption = "Ignore warnings"
d.AlternateActionButton.Visible = true
else
d.Message="An error occurred while processing your PDF code."
end if
d.Explanation = str(ErrorCode)+": "+ErrorMessage
b=d.ShowModal //display the dialog
Select Case b //determine which button was pressed.
Case d.ActionButton
Return 0 // ignore
Case d.AlternateActionButton
IgnoreWarnings = true
Return 0 // ignore
Case d.CancelButton
Return -1 // stop
End select
End EventHandler
Property IgnoreWarnings As Boolean
End Class
SetRetina
End SetRetina
End Project
The items on this page are in the following plugins: MBS DynaPDF Plugin.
