Visual FoxPro

Transition from Http.GetServerSslCert to Http.GetServerCert

See more HTTP Examples

Provides instructions for replacing deprecated GetServerSslCert method calls with GetServerCert. Visual FoxPro

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

lnSuccess = 0

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.

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