(PureBasic) Add a Document Timestamp Signature to an already-signed PDF

See more PDF Signatures Examples

Demonstrates how to add a document timestamp signature to an already-signed PDF.

Note: This example requires Chilkat v9.5.0.99 or greater.

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkPdf.pb"
IncludeFile "CkJsonObject.pb"

Procedure ChilkatExample()

    ; This example requires the Chilkat API to have been previously unlocked.
    ; See Global Unlock Sample for sample code.

    pdf.i = CkPdf::ckCreate()
    If pdf.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    ; Load the PDF that has already been signed.
    success.i = CkPdf::ckLoadFile(pdf,"qa_data/pdf/helloWorld_signed.pdf")
    If success = 0
        Debug CkPdf::ckLastErrorText(pdf)
        CkPdf::ckDispose(pdf)
        ProcedureReturn
    EndIf

    json.i = CkJsonObject::ckCreate()
    If json.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkJsonObject::ckUpdateBool(json,"invisibleSignature",1)
    CkJsonObject::ckUpdateString(json,"subFilter","/ETSI.RFC3161")

    CkJsonObject::ckUpdateBool(json,"timestampToken.enabled",1)

    ; In this example, we'll use a free TSA server (timestamp.digicert.com), but you may want to use your own timestamp authority server.
    CkJsonObject::ckUpdateString(json,"timestampToken.tsaUrl","http://timestamp.digicert.com")

    ; If the timestamp server requires a username/password, do the following.  Otherwise omit the following few lines of code.
    CkJsonObject::ckUpdateString(json,"timestampToken.tsaUsername","the_tsa_username")
    CkJsonObject::ckUpdateString(json,"timestampToken.tsaPassword","the_tsa_password")

    ; When requesting the timestamp token, ask the server to include its certificate in the timestamp token response.
    ; This allows for the timestamp server's certificate to be included in the LTV validation (i.e. if the timestamp server
    ; has an OCSP URL, then Chilkat will also do the OCSP request for the timestamp server's certificate.)
    CkJsonObject::ckUpdateBool(json,"timestampToken.requestTsaCert",1)

    success = CkPdf::ckSignPdf(pdf,json,"c:/temp/qa_output/helloWorld_signed_2.pdf")
    If success = 0
        Debug CkPdf::ckLastErrorText(pdf)
        CkPdf::ckDispose(pdf)
        CkJsonObject::ckDispose(json)
        ProcedureReturn
    EndIf

    Debug "Successfully added a Document Timestamp Signature to the PDF"


    CkPdf::ckDispose(pdf)
    CkJsonObject::ckDispose(json)


    ProcedureReturn
EndProcedure