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

MBS Xojo Plugin Tutorial Videos

SignedPDFs Source

Note: The function DesktopFolder is deprecated in Xojo. You can replace it with SpecialFolder.desktop.

Class App
Inherits Application
// Constants
Const kFileQuitShortcut = Ctrl+Q
Const kFileQuit = E&xit
Const kEditClear = &Delete

// Event implementations
Sub Open()
dim pdf as new DynapdfMBS
dim f as FolderItem

f=DesktopFolder.Child("test.pdf")

call pdf.CreateNewPDF f
call pdf.Append

call pdf.SetFont "Times", pdf.kfsItalic, 40.0, true, pdf.kcp1252
call pdf.WriteFText pdf.ktaCenter, "A signed PDF document"

call pdf.EndPage

'call pdf.CloseFile

dim certificate as FolderItem

certificate=DesktopFolder.Child("zivi.p12")

if pdf.CloseAndSignFile(certificate, "test", "","") then
// ok
else
MsgBox "Failed to add signature"
end if

f.Launch

quit

End Sub
End Class

Class Window1
Inherits Window
End Class


All movies




Links
MBS FileMaker Plugins