Delphi ActiveX Requires Chilkat v11.0.0+

Example: Http.GetLastJsonData method

Demonstrates the GetLastJsonData method. Delphi ActiveX

var
success: Integer;
http: TChilkatHttp;
resp: TChilkatHttpResponse;
json: TChilkatJsonObject;

begin
success := 0;

http := TChilkatHttp.Create(Self);
resp := TChilkatHttpResponse.Create(Self);

//  Only allow TLS 1.2 or better.
http.SslProtocol := 'TLS 1.2 or higher';

success := http.HttpNoBody('GET','https://google.com/',resp.ControlInterface);
if (success = 0) then
  begin
    Memo1.Lines.Add(http.LastErrorText);
    Exit;
  end;

json := TChilkatJsonObject.Create(Self);
json.EmitCompact := 0;

http.GetLastJsonData(json.ControlInterface);
Memo1.Lines.Add(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"
//    }
//  }