(Xojo Plugin) Example: Http.GetLastJsonData method

Demonstrates the GetLastJsonData method.

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

Chilkat Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

Dim success As Boolean
success = False

Dim http As New Chilkat.Http
Dim resp As New Chilkat.HttpResponse

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

success = http.HttpNoBody("GET","https://google.com/",resp)
If (success = False) Then
    System.DebugLog(http.LastErrorText)
    Return
End If

Dim json As New Chilkat.JsonObject
json.EmitCompact = False

http.GetLastJsonData json
System.DebugLog(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"
//   }
// }