Xojo Plugin

Load P7B and Iterate Certificates

See more PEM Examples

Demonstrates how to load a .p7b containing one or more certificates access each of them. Xojo Plugin

Dim success As Boolean
success = False

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

success = False

// The Chilkat PEM class was introduced in v9.5.0.49.  
// It requires the bundle to be unlocked, as shown above.
Dim pem As New Chilkat.Pem

// Load the .p7b from a file.
success = pem.LoadP7bFile("../myCertFiles/myP7b.p7b")
If (success <> True) Then
    System.DebugLog(pem.LastErrorText)
    Return
End If

// Note: If the app already has the p7b loaded in memory, the LoadP7b method
// may be called instead.  (see the online reference documentation)

// Iterate over the certificates.
Dim numCerts As Int32
numCerts = pem.NumCerts
Dim i As Int32
i = 0

While i < numCerts

    Dim cert As Chilkat.Cert
    cert = pem.GetCert(i)
    System.DebugLog("Certificate " + Str(i) + " : " + cert.SubjectDN)

    i = i + 1
Wend