Visual FoxPro

Example: Http.GetLastJsonData method

Demonstrates the GetLastJsonData method. Visual FoxPro

LOCAL lnSuccess
LOCAL loHttp
LOCAL loResp
LOCAL loJson

lnSuccess = 0

loHttp = CreateObject('Chilkat.Http')
loResp = CreateObject('Chilkat.HttpResponse')

* Only allow TLS 1.2 or better.
loHttp.SslProtocol = "TLS 1.2 or higher"

lnSuccess = loHttp.HttpNoBody("GET","https://google.com/",loResp)
IF (lnSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    RELEASE loResp
    CANCEL
ENDIF

loJson = CreateObject('Chilkat.JsonObject')
loJson.EmitCompact = 0

loHttp.GetLastJsonData(loJson)
? loJson.Emit()

* Output as of Chilkat v11.1.0
* Additional information may be added as requested or needed in future versions of Chilkat.

* {
*   "tls": {
*     "params": {
*       "sniHostname": "www.google.com",
*       "allowConnectionOnlyIfServerChooses": "TLS 1.2 or higher"
*     },
*     "negotiatedTlsVersion": "TLS 1.3"
*   }
* }

RELEASE loHttp
RELEASE loResp
RELEASE loJson