Xojo Developer Conference
25/27th April 2018 in Denver.
MBS Xojo Conference
6/7th September 2018 in Munich, Germany.

Platforms to show: All Mac Windows Linux Cross-Platform

/DynaPDF/Image to PDF/Image to pdf
Function:
Required plugins for this example: MBS DynaPDF Plugin, MBS Images Plugin, MBS Util Plugin
You find this example project in your Plugins Download as a Xojo project file within the examples folder: /DynaPDF/Image to PDF/Image to pdf
This example is the version from Thu, 10th Jun 2015.
Project "Image to pdf.rbp"
FileTypes
Filetype text
Filetype tiff
Filetype image/jpeg
End FileTypes
Class App Inherits Application
Const kEditClear = "&Delete"
Const kFileQuit = "&Quit"
Const kFileQuitShortcut = ""
EventHandler Sub Open() dim f,d As FolderItem f=GetOpenFolderItem(FileTypes.Jpeg+FileTypes.Tiff) if f=NIL then Return end if d=SpecialFolder.Desktop.Child(f.name+".pdf") CreatePDFwithImage f,d // Open d.Launch quit End EventHandler
Protected Sub CreatePDFwithImage(source as folderitem, dest as folderitem) dim pdf As new DynapdfMBS pdf.SetLicenseKey "Starter" // For this example you can use a Starter, Lite, Pro or Enterprise License dim iColorSpace As Integer=GetColorSpace(source) // get resolution dim iResX, iResY as integer call pdf.ReadImageResolution(source, 1, iResX, iResY) // we limit it to 72 for this example iResX = Max(iResX, 72) iResY = Max(iResY, 72) // read image format dim iUseZip as Boolean dim iWidth, iHeight, iBitsPerPixel As Integer call pdf.ReadImageFormat(source, iWidth, iHeight, iBitsPerPixel, iUseZip) // calculate destination size dim dWidth As Double = iWidth/iResX*72 dim dHeight As Double = iHeight/iResY*72 // define a swap file in case memory is low call pdf.SetUseSwapFile(False, 256*1024) // whether you want image to be recompressed call pdf.SetSaveNewImageFormat(False) // we want transparent background call pdf.SetUseTransparency(False) // create new pdf call pdf.CreateNewPDF(dest) // ask to create a pdf in version 1.3 call pdf.SetPDFVersion(pdf.kpvPDF_1_3) // Define some pdf properties: call pdf.SetDocInfo(pdf.kdiAuthor, SystemInformationMBS.Username) call pdf.SetDocInfo(pdf.kdiCreator, "SysProgName"+" - "+"MetSysProgVer") call pdf.SetDocInfo(pdf.kdiKeywords, "") call pdf.SetDocInfo(pdf.kdiProducer, "SysProgName"+" - "+"MetSysProgVer") call pdf.SetDocInfo(pdf.kdiSubject, "") call pdf.SetDocInfo(pdf.kdiTitle, source.name) // define page view 'plSinglePage = 0, // Show one page at time 'plOneColumn = 1, // Show the pages continous 'plTwoColumnLeft = 2, // Two columns, start with left column 'plTwoColumnRight = 3 // Two columns, start with right column call pdf.SetPageLayout(0) // define page mode 'pmUseNone = 0, // Default 'pmUseOutlines = 1, // Show the outline tree 'pmUseThumbs = 2, // Show the thumb nails 'pmFullScreen = 3 // Open the document in full-screen mode call pdf.SetPageMode(0) // Create a new page call pdf.Append // define page size call pdf.SetPageWidth(dWidth) call pdf.SetPageHeight(dHeight) // allow transparency for images call pdf.SetUseTransparency(False) // define color space call pdf.SetColorSpace(iColorSpace) // load the image // PosX,PosY,ScaleWidth,ScaleHeight,folderitem, ImageIndex dim tmpl as integer=pdf.InsertImageEx(0, 0, dWidth, dHeight, source, 1) if tmpl<0 then MsgBox "Failed to insert the image into the pdf." Return end if // define page size call pdf.SetPageWidth(dWidth) call pdf.SetPageHeight(dHeight) // close image file call pdf.CloseImportFile // close page call pdf.EndPage // close pdf call pdf.CloseFile pdf=NIL // let Realbasic release memory End Sub
Protected Function GetColorSpace(source as folderitem) As integer // get the colorspace of the image file dim jpeg As JPEGImporterMBS dim tiff As TiffPictureMBS dim iColorSpace,iSamplesPerPixel As Integer iColorSpace = DynaPDFMBS.kcsDeviceRGB // in case it is unknown // try tiff //JPEG if Right(source.Name, 4)=".jpg" or Right(source.Name, 5)=".jpeg" then jpeg=New JPEGImporterMBS jpeg.AllowDamaged=True jpeg.File=source if jpeg.ReadHeader then iSamplesPerPixel=jpeg.ColorComponentCount // Select Case iSamplesPerPixel Case 1 iColorSpace = DynaPDFMBS.kcsDeviceGray Case 3 iColorSpace = DynaPDFMBS.kcsDeviceRGB Case 4 iColorSpace = DynaPDFMBS.kcsDeviceCMYK Else iColorSpace=4 End Select jpeg=NIL end if end if //TIFF if Right(source.Name, 4)=".tif" or Right(source.Name, 5)=".tiff" then tiff=source.OpenAsTiffMBS(True) if tiff<>NIL then iSamplesPerPixel=tiff.SamplesPerPixel Select Case iSamplesPerPixel Case 1 iColorSpace = DynaPDFMBS.kcsDeviceGray Case 3 iColorSpace = DynaPDFMBS.kcsDeviceRGB Case 4 iColorSpace = DynaPDFMBS.kcsDeviceCMYK Else iColorSpace=4 End Select tiff.Close tiff=NIL end if end if Return iColorSpace End Function
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
End Project

See also:

Feedback, Comments & Corrections

The items on this page are in the following plugins: MBS DynaPDF Plugin.




Links
MBS Xojo Chart Plugins