HTTPS GET with Client Certificate

Simple HTTPS GET request to download the HTML of a web page. Uses a client digital certificate for the SSL connection.

Download Chilkat HTTP ActiveX

LOCAL loHttp
LOCAL lnSuccess
LOCAL loCert
LOCAL lcHtml

loHttp = CreateObject('Chilkat.Http')

*  Any string unlocks the component for the 1st 30-days.
lnSuccess = loHttp.UnlockComponent("Anything for 30-day trial")
IF (lnSuccess <> 1) THEN
    ? loHttp.LastErrorText
    QUIT
ENDIF

loCert = CreateObject('Chilkat.Cert')
lnSuccess = loCert.LoadPfxFile("myCert.pfx","secret")
IF (lnSuccess <> 1) THEN
    ? loCert.LastErrorText
    QUIT
ENDIF

loHttp.SetSslClientCert(loCert)

*  Send the HTTP GET and return the content in a string.

lcHtml = loHttp.QuickGetStr("https://www.paypal.com/")
IF (lcHtml = NULL ) THEN
    ? loHttp.LastErrorText
ELSE
    ? lcHtml
ENDIF