(Visual FoxPro) Transition from Http.GetServerSslCert to Http.GetServerCert

See more HTTP Examples

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

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

LOCAL loHttp
LOCAL lcDomain
LOCAL lnPort
LOCAL loCert1
LOCAL loCert2
LOCAL lnSuccess

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Http')
loHttp = CreateObject('Chilkat.Http')
lcDomain = "chilkatsoft.com"
lnPort = 443

* ------------------------------------------------------------------------
* The GetServerSslCert method is deprecated:

loCert1 = loHttp.GetServerSslCert(lcDomain,lnPort)
IF (loHttp.LastMethodSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    CANCEL
ENDIF

? loCert1.SubjectDN
RELEASE loCert1

* ------------------------------------------------------------------------
* Do the equivalent using GetServerCert.
* Your application creates a new, empty certificate object which is passed 
* in the last argument and filled with the server certificate upon success.

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Cert')
loCert2 = CreateObject('Chilkat.Cert')
lnSuccess = loHttp.GetServerCert(lcDomain,lnPort,loCert2)
IF (lnSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    RELEASE loCert2
    CANCEL
ENDIF

? loCert2.SubjectDN

RELEASE loHttp
RELEASE loCert2