Lianja

Transition from Crypt2.GetSignerCertChain to Crypt2.LastSignerCert

Provides instructions for replacing deprecated GetSignerCertChain method calls with LastSignerCert. Lianja

llSuccess = .F.

loCrypt2 = createobject("CkCrypt2")

// ...
// ...
lnIndex = 0

// ------------------------------------------------------------------------
// The GetSignerCertChain method is deprecated:

loCertchainObj = loCrypt2.GetSignerCertChain(lnIndex)
if (loCrypt2.LastMethodSuccess = .F.) then
    ? loCrypt2.LastErrorText
    release loCrypt2
    return
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("CkCert")
llSuccess = loCrypt2.LastSignerCert(lnIndex,loSignerCert)
if (llSuccess = .F.) then
    ? loCrypt2.LastErrorText
    release loCrypt2
    release loSignerCert
    return
endif

loCertChain = createobject("CkCertChain")
llSuccess = loSignerCert.BuildCertChain(loCertChain)
if (llSuccess = .F.) then
    ? loSignerCert.LastErrorText
    release loCrypt2
    release loSignerCert
    release loCertChain
    return
endif



release loCrypt2
release loSignerCert
release loCertChain