Delphi ActiveX

Example: Http.GetLastJsonData method

Demonstrates the GetLastJsonData method. Delphi ActiveX

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB;

...

procedure TForm1.Button1Click(Sender: TObject);
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"
//   }
// }
end;