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 2") destfolder.CreateAsFolder for i as integer = 1 to 9 Run i,destfolder next MsgBox "Render Test 2 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 no matrix dim out as Picture = pdf.RenderPagePicture(i, 1000, 1000, 2, nil) 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