(DataFlex) Load P7B and List Certificates

Demonstrates how to load a .p7b containing certificates and accesses each individual certificate.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoChilkatGlob
    Boolean iSuccess
    Handle hoPem
    Integer i
    Integer iNumCerts
    Variant vCert
    Handle hoCert
    String sTemp1

    // Unlock the Chilkat API.
    // Starting in v9.5.0.49, all Chilkat classes can be unlocked at once at the beginning of a program
    // by calling UnlockBundle.  It requires a Bundle unlock code.
    Get Create (RefClass(cComChilkatGlobal)) To hoChilkatGlob
    If (Not(IsComObjectCreated(hoChilkatGlob))) Begin
        Send CreateComObject of hoChilkatGlob
    End
    Get ComUnlockBundle Of hoChilkatGlob "Anything for 30-day trial." To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoChilkatGlob To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Get Create (RefClass(cComChilkatPem)) To hoPem
    If (Not(IsComObjectCreated(hoPem))) Begin
        Send CreateComObject of hoPem
    End

    // Load the .p7b from a file.
    Get ComLoadP7bFile Of hoPem "/Users/chilkat/testData/p7b/myCerts.p7b" To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoPem To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Get ComNumCerts Of hoPem To iNumCerts
    If (iNumCerts = 0) Begin
        Showln (("Error: Expected the .p7b to contain certificates."))
        Procedure_Return
    End

    // Access each certificate and show the DN (Distinguished Name)
    For i From 1 To iNumCerts
        Get ComGetCert Of hoPem (i - 1) To vCert
        If (IsComObject(vCert)) Begin
            Get Create (RefClass(cComChilkatCert)) To hoCert
            Set pvComObject Of hoCert To vCert
        End
        Get ComSubjectDN Of hoCert To sTemp1
        Showln i ": " sTemp1
        Send Destroy of hoCert
    Loop



End_Procedure