Platforms to show: All Mac Windows Linux Cross-Platform
/DynaPDF/Create PDF with Picture files
Function:
Required plugins for this example: MBS DynaPDF Plugin
You find this example project in your Plugins Download as a Xojo project file within the examples folder: /DynaPDF/Create PDF with Picture files
This example is the version from Fri, 27th Apr 2017.
Function:
Required plugins for this example: MBS DynaPDF Plugin
You find this example project in your Plugins Download as a Xojo project file within the examples folder: /DynaPDF/Create PDF with Picture files
This example is the version from Fri, 27th Apr 2017.
Project "Create PDF with Picture files.xojo_binary_project"
Class App Inherits Application
Const kEditClear = "&Delete"
Const kFileQuit = "&Quit"
Const kFileQuitShortcut = ""
EventHandler Sub Open()
// get picture folder
dim ImageFolder as FolderItem = SelectFolder
if ImageFolder = nil or not ImageFolder.Exists then Return
dim d as new MyDynapdfMBS
d.SetLicenseKey "Starter" // For this example you can use a Starter, Lite, Pro or Enterprise License
dim file as FolderItem = SpecialFolder.Desktop.Child("Create PDF with Picture.pdf")
call d.CreateNewPDF file
dim c as integer = ImageFolder.Count
for i as integer = 1 to c
dim ImageFile as FolderItem = ImageFolder.TrueItem(i)
call d.Append
// set a paper size
call d.SetPageFormat(d.kpfDIN_A4)
call d.SetSaveNewImageFormat(false) // if possible pass through
call d.SetUseTransparency(false) // no transparent color
call d.SetCompressionFilter(d.kcfFlate) // no compression
call d.SetResolution(300) // max resolution
dim PicWidth, PicHeight, BitsPerPixel as integer
dim Zip as Boolean
if not d.ReadImageFormat(ImageFile, PicWidth, PicHeight, BitsPerPixel, Zip) then
MsgBox "Can't read image size."
Return
end if
dim PageWidth as integer = d.GetPageWidth
dim PageHeight as integer = d.GetPageHeight
// scale to fit the page size
dim f as double = min(PageWidth/PicWidth, PageHeight/PicHeight)
dim w as integer = f * PicWidth
dim h as integer = f * PicHeight
dim x as integer = (PageWidth-w)/2
dim y as integer = (PageHeight-h)/2
// add image to pdf
if d.InsertImageEx(x, y, w, h, ImageFile) < 0 then
MsgBox "Failed to import image."
Return
end if
call d.EndPage
next
call d.CloseFile
file.Launch
End EventHandler
End Class
MenuBar MenuBar1
MenuItem FileMenu = "&File"
MenuItem FileQuit = "#App.kFileQuit"
MenuItem EditMenu = "&Edit"
MenuItem EditUndo = "&Undo"
MenuItem UntitledMenu1 = "-"
MenuItem EditCut = "Cu&t"
MenuItem EditCopy = "&Copy"
MenuItem EditPaste = "&Paste"
MenuItem EditClear = "#App.kEditClear"
MenuItem UntitledMenu0 = "-"
MenuItem EditSelectAll = "Select &All"
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
End Project
See also:
- /DynaPDF/Create PDF
- /DynaPDF/Create PDF and Email
- /DynaPDF/Create PDF in memory
- /DynaPDF/Create PDF with Barcodes
- /DynaPDF/Create PDF with Layers
- /DynaPDF/Create PDF with object2d
- /DynaPDF/Create PDF with paths
- /DynaPDF/Create PDF with Signature on Windows
- /DynaPDF/Create PDF with subscript and superscript
- /DynaPDF/Create PDF with transparency
The items on this page are in the following plugins: MBS DynaPDF Plugin.
