(Delphi DLL) Example: Http.GetLastJsonData method

Demonstrates the GetLastJsonData method.

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

Chilkat for Delphi Downloads Chilkat non-ActiveX DLL for Delphi Chilkat ActiveX DLL for Delphi * The examples here use the non-ActiveX DLL.

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Boolean;
http: HCkHttp;
resp: HCkHttpResponse;
json: HCkJsonObject;

begin
success := False;

http := CkHttp_Create();
resp := CkHttpResponse_Create();

// Only allow TLS 1.2 or better.
CkHttp_putSslProtocol(http,'TLS 1.2 or higher');

success := CkHttp_HttpNoBody(http,'GET','https://google.com/',resp);
if (success = False) then
  begin
    Memo1.Lines.Add(CkHttp__lastErrorText(http));
    Exit;
  end;

json := CkJsonObject_Create();
CkJsonObject_putEmitCompact(json,False);

CkHttp_GetLastJsonData(http,json);
Memo1.Lines.Add(CkJsonObject__emit(json));

// 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"
//   }
// }

CkHttp_Dispose(http);
CkHttpResponse_Dispose(resp);
CkJsonObject_Dispose(json);

end;