(Visual FoxPro) 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

LOCAL loCert
LOCAL lnSuccess
LOCAL s

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Cert')
loCert = CreateObject('Chilkat.Cert')

* 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.)
lnSuccess = loCert.LoadFromFile("qa_data/certs/brasil_cert.pem")
IF (lnSuccess = 0) THEN
    ? loCert.LastErrorText
    RELEASE loCert
    CANCEL
ENDIF

* Get the X509PKIPathv1 in base64 format (single line)
s = loCert.X509PKIPathv1()
IF (loCert.LastMethodSuccess = 0) THEN
    ? loCert.LastErrorText
    RELEASE loCert
    CANCEL
ENDIF

? "X509PKIPathv1: " + s

RELEASE loCert