(Visual Basic 6.0) Transition from Cert.GetCertChain to Cert.BuildCertChain
Provides instructions for replacing deprecated GetCertChain method calls with BuildCertChain. Note: This example requires Chilkat v11.0.0 or greater.
Dim cert As New ChilkatCert
' ------------------------------------------------------------------------
' The GetCertChain method is deprecated:
Dim certchainObj As ChilkatCertChain
Set certchainObj = cert.GetCertChain()
If (cert.LastMethodSuccess = 0) Then
Debug.Print cert.LastErrorText
Exit Sub
End If
' ...
' ...
' ------------------------------------------------------------------------
' Do the equivalent using BuildCertChain.
' Your application creates a new, empty CertChain object which is passed
' in the last argument and filled upon success.
Dim certchainOut As New ChilkatCertChain
Dim success As Long
success = cert.BuildCertChain(certchainOut)
If (success = 0) Then
Debug.Print cert.LastErrorText
Exit Sub
End If
|