(Delphi ActiveX) HttpPostJson2 Example

Demonstrates use of the HttpPostJson2 method.

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

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
http: TChilkatHttp;
success: Integer;
jsonBody: WideString;
resp: IChilkatHttpResponse;
statusCode: Integer;
json: TChilkatJsonObject;

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

// See PostJson2Async Example for the async equivalent of this example.

http := TChilkatHttp.Create(Self);

// Sends a POST equivalent to the following CURL command:

// curl -X POST https://sandbox.plaid.com/institutions/get \
//   -H 'content-type: application/json' \
//   -d '{
//     "client_id": String,
//     "secret":String,
//     "count": Number,
//     "offset": Number
//   }'

// Suppress some default headers that would automatically added..
http.AcceptCharset := '';
http.UserAgent := '';
http.AcceptLanguage := '';
http.AllowGzip := 0;

jsonBody := '{"client_id": "PLAID_CLIENT_ID", "secret":"PLAID_SECRET", "count": 10, "offset": 0}';
resp := http.PostJson2('https://sandbox.plaid.com/institutions/get','application/json',jsonBody);
if (http.LastMethodSuccess = 0) then
  begin
    Memo1.Lines.Add(http.LastErrorText);
    Exit;
  end;

statusCode := resp.StatusCode;
Memo1.Lines.Add('Response status code = ' + IntToStr(statusCode));

// Examine the JSON response..
json := TChilkatJsonObject.Create(Self);
json.Load(resp.BodyStr);
json.EmitCompact := 0;
Memo1.Lines.Add('JSON Response Body:');
Memo1.Lines.Add(json.Emit());
end;