(DataFlex) 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 ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoCert
    Boolean iSuccess
    String s
    String sTemp1
    Boolean bTemp1

    Get Create (RefClass(cComChilkatCert)) To hoCert
    If (Not(IsComObjectCreated(hoCert))) Begin
        Send CreateComObject of hoCert
    End

    // 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.)
    Get ComLoadFromFile Of hoCert "qa_data/certs/brasil_cert.pem" To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoCert To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Get the X509PKIPathv1 in base64 format (single line)
    Get ComX509PKIPathv1 Of hoCert To s
    Get ComLastMethodSuccess Of hoCert To bTemp1
    If (bTemp1 = False) Begin
        Get ComLastErrorText Of hoCert To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Showln "X509PKIPathv1: " s


End_Procedure