Platforms to show: All Mac Windows Linux Cross-Platform

/DynaPDF/Raster/Render Tests/Render Test 3

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/Raster/Render Tests/Render Test 3

This example is the version from Sun, 21th Oct 2017.

Project "Render Test 3.xojo_binary_project"
Class App Inherits Application
Const kEditClear = "&Löschen"
Const kFileQuit = "Beenden"
Const kFileQuitShortcut = ""
EventHandler Sub Open() dim destfolder as FolderItem = SpecialFolder.Desktop.Child("Render Test 3") destfolder.CreateAsFolder for i as integer = 1 to 9 Run i,destfolder next MsgBox "Render Test 3 done. Please check memory usage." End EventHandler
Private Sub Run(n as integer, destfolder as FolderItem) dim pdf as new MyDynapdfMBS dim f as FolderItem = SpecialFolder.Desktop.Child("dynapdf_help.pdf") if pdf.CreateNewPDF(nil) then if pdf.SetImportFlags(pdf.kifImportAll + pdf.kifImportAsPage) then if pdf.OpenImportFile(f, 0, "")=0 then if pdf.ImportPDFFile(1, 1.0, 1.0)>0 then dim PageCount as integer = pdf.GetPageCount for i as integer = 1 to PageCount // render page to fit given size and matrix dim m as new DynapdfMatrixMBS m.Translate(250,250) // move to middle m.Scale(0.5,0.5) // scale by 50% dim out as Picture = pdf.RenderPagePicture(i, 1000, 1000, 2, m) if out = nil then break MsgBox "Error: picture is nil." quit end if dim outfile as FolderItem = destfolder.Child(str(n)+"-"+str(i)+".jpg") if outfile = nil then break MsgBox "Error: folderitem is nil." quit end if out.Save(outfile, out.SaveAsJPEG, out.QualityHigh) 'call outfile.SaveAsJPEGMBS(out, 75) if DebugBuild then Return end if next else break MsgBox "ImportPDFFile failed." quit end if else break MsgBox "OpenImportFile failed." quit end if else break MsgBox "SetImportFlags fails." quit end if else break MsgBox "CreateNewPDF fails." quit end if End Sub
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
End Project

See also:

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

The biggest plugin in space...