MBS Xojo Plugin Tutorial Videos
SignedPDFs Source
Note: The function DesktopFolder is deprecated in Xojo. You can replace it with SpecialFolder.desktop.
Deprecated: The each() function is deprecated. This message will be suppressed on further calls in /kunden/macsw.de/webseiten/monkeybreadsoftware-video/rbformat/rbcode.php on line 244
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
Links
MBS FileMaker Plugins