(Visual Basic 6.0) 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

Dim cert As New ChilkatCert

' 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.)
Dim success As Long
success = cert.LoadFromFile("qa_data/certs/brasil_cert.pem")
If (success = 0) Then
    Debug.Print cert.LastErrorText
    Exit Sub
End If

' Get the X509PKIPathv1 in base64 format (single line)
Dim s As String
s = cert.X509PKIPathv1()
If (cert.LastMethodSuccess = 0) Then
    Debug.Print cert.LastErrorText
    Exit Sub
End If

Debug.Print "X509PKIPathv1: " & s