Visual FoxPro

Transition from Crypt2.GetSignerCertChain to Crypt2.LastSignerCert

Provides instructions for replacing deprecated GetSignerCertChain method calls with LastSignerCert. Visual FoxPro

LOCAL lnSuccess
LOCAL loCrypt2
LOCAL lnIndex
LOCAL loCertchainObj
LOCAL loSignerCert
LOCAL loCertChain

lnSuccess = 0

loCrypt2 = CreateObject('Chilkat.Crypt2')

* ...
* ...
lnIndex = 0

* ------------------------------------------------------------------------
* The GetSignerCertChain method is deprecated:

loCertchainObj = loCrypt2.GetSignerCertChain(lnIndex)
IF (loCrypt2.LastMethodSuccess = 0) THEN
    ? loCrypt2.LastErrorText
    RELEASE loCrypt2
    CANCEL
ENDIF

* ...
* ...

RELEASE loCertchainObj

* ------------------------------------------------------------------------
* Do the equivalent using LastSignerCert, and then get the certificate chain from the cert.
* Your application creates a new, empty Cert object which is passed 
* in the last argument and filled upon success.

loSignerCert = CreateObject('Chilkat.Cert')
lnSuccess = loCrypt2.LastSignerCert(lnIndex,loSignerCert)
IF (lnSuccess = 0) THEN
    ? loCrypt2.LastErrorText
    RELEASE loCrypt2
    RELEASE loSignerCert
    CANCEL
ENDIF

loCertChain = CreateObject('Chilkat.CertChain')
lnSuccess = loSignerCert.BuildCertChain(loCertChain)
IF (lnSuccess = 0) THEN
    ? loSignerCert.LastErrorText
    RELEASE loCrypt2
    RELEASE loSignerCert
    RELEASE loCertChain
    CANCEL
ENDIF

RELEASE loCrypt2
RELEASE loSignerCert
RELEASE loCertChain