Delphi ActiveX

REST POST JSON using Gzip Content Encoding

See more REST Examples

Demonstrates how to send a JSON POST using the gzip Content-Encoding. 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;
json: TChilkatJsonObject;
rest: TChilkatRest;
sbReq: TChilkatStringBuilder;
sbResp: TChilkatStringBuilder;
jsonResp: TChilkatJsonObject;

begin
success := 0;

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

// Use the online tool at https://tools.chilkat.io/Default.cshtml
// to generate the JSON code that creates this JSON:

// {
//     "lists": [
//         {
//             "id": "1511199999"
//         }
//     ],
//     "confirmed": false,
//     "email_addresses": [
//         {
//             "email_address": "support@chilkatsoft.com"
//         }
//     ],
//     "first_name": "Matt",
//     "last_name": "Smith"
// }
// 

json := TChilkatJsonObject.Create(Self);
json.UpdateString('lists[0].id','1511199999');
json.UpdateBool('confirmed',0);
json.UpdateString('email_addresses[0].email_address','support@chilkatsoft.com');
json.UpdateString('first_name','Matt');
json.UpdateString('last_name','Smith');

rest := TChilkatRest.Create(Self);

success := rest.Connect('api.constantcontact.com',443,1,1);
if (success <> 1) then
  begin
    Memo1.Lines.Add(rest.LastErrorText);
    Exit;
  end;

rest.AddHeader('Content-Type','application/json');
rest.AddHeader('Authorization','Bearer xxxxxxx-xxxx-xxxx-xxxx-xxxxxxxxxx');

// Tell the server you'll accept only an application/json response.
rest.AddHeader('Accept','application/json');

// Indicate that we'll be sending the request body gzipped.
rest.AddHeader('Content-Encoding','gzip');

sbReq := TChilkatStringBuilder.Create(Self);
json.EmitSb(sbReq.ControlInterface);

// Send the POST.
sbResp := TChilkatStringBuilder.Create(Self);
success := rest.FullRequestSb('POST','/v2/contacts?action_by=ACTION_BY_VISITOR&api_key=xxxxxxx',sbReq.ControlInterface,sbResp.ControlInterface);
if (success <> 1) then
  begin
    Memo1.Lines.Add(rest.LastErrorText);
    Exit;
  end;

Memo1.Lines.Add('Response body:');
Memo1.Lines.Add(sbResp.GetAsString());

if (rest.ResponseStatusCode <> 200) then
  begin
    Memo1.Lines.Add('Received error response code: ' + IntToStr(rest.ResponseStatusCode));
    Exit;
  end;

jsonResp := TChilkatJsonObject.Create(Self);
jsonResp.LoadSb(sbResp.ControlInterface);

// Use the online tool at https://tools.chilkat.io/jsonParse.cshtml
// to generate the JSON code that parses the JSON response..
end;