Delphi DLL Requires Chilkat v11.0.0+

Example: Http.GetLastJsonData method

Demonstrates the GetLastJsonData method. Delphi DLL

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);