Visual FoxPro

Create X509PKIPathv1 Containing one Certificate

See more Certificates Examples

Demonstrates how to create a X509PKIPathv1 containing one certificate.

Note: This example requires Chilkat v9.5.0.77 or later.

Visual FoxPro

LOCAL lnSuccess
LOCAL loCert
LOCAL s

lnSuccess = 0

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