Delphi DLL Requires Chilkat v11.0.0+

Example: Http.HttpParams method

Demonstrates the HttpParams method. Delphi DLL

var
success: Boolean;
http: HCkHttp;
queryParams: HCkJsonObject;
sessionLogPath: PWideChar;
resp: HCkHttpResponse;
fac: HCkFileAccess;
sessionLog: PWideChar;

begin
success := False;

//  This example assumes the Chilkat API to have been previously unlocked.
//  See Global Unlock Sample for sample code.

http := CkHttp_Create();

//  Demonstrate sending a GET request with query parameters.
queryParams := CkJsonObject_Create();
CkJsonObject_UpdateInt(queryParams,'limit',100);
CkJsonObject_UpdateString(queryParams,'email','joe@example.com');
CkJsonObject_UpdateString(queryParams,'token','VGhlIHF1aWNrIGJyb3duIGZveCBqdW1wZWQgb3ZlciB0aGUgbGF6eSBkb2cuLi4=');

//  Set a session log filename so we can examine the exact request that is sent.
sessionLogPath := 'c:/temp/qa_output/sessionLog.txt';
CkHttp_putSessionLogFilename(http,sessionLogPath);

//  Send the GET request to an endpoint.  We don't care about the response. The purpose of this example
//  is to see the exact HTTP request that is sent..
resp := CkHttpResponse_Create();
success := CkHttp_HttpParams(http,'GET','https://chilkatsoft.com/echo_request_body.asp',queryParams,resp);
if (success = False) then
  begin
    Memo1.Lines.Add(CkHttp__lastErrorText(http));
    Exit;
  end;

fac := CkFileAccess_Create();
sessionLog := CkFileAccess__readEntireTextFile(fac,sessionLogPath,'utf-8');
Memo1.Lines.Add(sessionLog);
success := CkFileAccess_FileDelete(fac,sessionLogPath);

//  This is the exact GET request that was sent.
//  Notice how each query parameter is URL encoded and added to the HTTP start line of the request.

//  GET /echo_request_body.asp?limit=100&email=joe%40example.com&token=VGhlIHF1aWNrIGJyb3duIGZveCBqdW1wZWQgb3ZlciB0aGUgbGF6eSBkb2cuLi4%3D HTTP/1.1
//  Host: chilkatsoft.com
//  Accept: */*
//  Accept-Encoding: gzip

CkHttp_Dispose(http);
CkJsonObject_Dispose(queryParams);
CkHttpResponse_Dispose(resp);
CkFileAccess_Dispose(fac);