(PureBasic) Create X509PKIPathv1 Containing one Certificate

Demonstrates how to create a X509PKIPathv1 containing one certificate.

Note: This example requires Chilkat v9.5.0.77 or later.

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkCert.pb"

Procedure ChilkatExample()

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

    ; There are many ways to load a certificate -- from a file, from a string or memory, etc.,
    ; and from many different formats.  This example loads the cert from a PEM file.
    ; (LoadFromFile will auto-recognize the format.)
    success.i = CkCert::ckLoadFromFile(cert,"qa_data/certs/brasil_cert.pem")
    If success = 0
        Debug CkCert::ckLastErrorText(cert)
        CkCert::ckDispose(cert)
        ProcedureReturn
    EndIf

    ; Get the X509PKIPathv1 in base64 format (single line)
    s.s = CkCert::ckX509PKIPathv1(cert)
    If CkCert::ckLastMethodSuccess(cert) = 0
        Debug CkCert::ckLastErrorText(cert)
        CkCert::ckDispose(cert)
        ProcedureReturn
    EndIf

    Debug "X509PKIPathv1: " + s


    CkCert::ckDispose(cert)


    ProcedureReturn
EndProcedure