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