Visual FoxPro

Transition from Email.GetSignedByCertChain to Email.LastSignerCert

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

LOCAL lnSuccess
LOCAL loEmail
LOCAL loCertChainObj
LOCAL loSignerCert
LOCAL loCertChain

lnSuccess = 0

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.

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.
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