(Visual FoxPro) Transition from Email.GetSignedByCertChain to Email.LastSignerCert

Provides instructions for replacing deprecated GetSignedByCertChain method calls with LastSignerCert.

Note: This example requires Chilkat v11.0.0 or greater.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loEmail
LOCAL loCertChainObj
LOCAL loSignerCert
LOCAL lnSuccess
LOCAL loCertChain

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

* ...
* ...

* ------------------------------------------------------------------------
* The GetSignedByCertChain method is deprecated:

loCertChainObj = loEmail.GetSignedByCertChain()
IF (loEmail.LastMethodSuccess = 0) THEN
    ? loEmail.LastErrorText
    RELEASE loEmail
    CANCEL
ENDIF

* ...
* ...

RELEASE loCertChainObj

* ------------------------------------------------------------------------
* Do the equivalent using LastSignerCert to get the signing certificate,
* then build the cert chain from the signing certificate object.

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Cert')
loSignerCert = CreateObject('Chilkat.Cert')
lnSuccess = loEmail.LastSignerCert(0,loSignerCert)
IF (lnSuccess = 0) THEN
    ? loEmail.LastErrorText
    RELEASE loEmail
    RELEASE loSignerCert
    CANCEL
ENDIF

* Get the certificate chain from the signer certificate.
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.CertChain')
loCertChain = CreateObject('Chilkat.CertChain')
lnSuccess = loSignerCert.BuildCertChain(loCertChain)
IF (lnSuccess = 0) THEN
    ? loSignerCert.LastErrorText
    RELEASE loEmail
    RELEASE loSignerCert
    RELEASE loCertChain
    CANCEL
ENDIF

RELEASE loEmail
RELEASE loSignerCert
RELEASE loCertChain