PowerBuilder

Example: Http.GetLastJsonData method

Demonstrates the GetLastJsonData method. PowerBuilder

integer li_rc
integer li_Success
oleobject loo_Http
oleobject loo_Resp
oleobject loo_Json

li_Success = 0

loo_Http = create oleobject
li_rc = loo_Http.ConnectToNewObject("Chilkat.Http")
if li_rc < 0 then
    destroy loo_Http
    MessageBox("Error","Connecting to COM object failed")
    return
end if
loo_Resp = create oleobject
li_rc = loo_Resp.ConnectToNewObject("Chilkat.HttpResponse")

// Only allow TLS 1.2 or better.
loo_Http.SslProtocol = "TLS 1.2 or higher"

li_Success = loo_Http.HttpNoBody("GET","https://google.com/",loo_Resp)
if li_Success = 0 then
    Write-Debug loo_Http.LastErrorText
    destroy loo_Http
    destroy loo_Resp
    return
end if

loo_Json = create oleobject
li_rc = loo_Json.ConnectToNewObject("Chilkat.JsonObject")

loo_Json.EmitCompact = 0

loo_Http.GetLastJsonData(loo_Json)
Write-Debug loo_Json.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"
//   }
// }


destroy loo_Http
destroy loo_Resp
destroy loo_Json