Pascal (Lazarus/Delphi)

Xero Get Full Set of Tenants

See more Xero Examples

Check the full set of tenants you've been authorized to access Pascal (Lazarus/Delphi)

program ChilkatDemo;

// Demonstrates using the Chilkat Pascal wrapper via the C bridge DLL.
// Builds as a console application under Lazarus (FPC) or Delphi.

{$IFDEF FPC}
  {$MODE DELPHI}
{$ENDIF}
{$APPTYPE CONSOLE}

uses
  {$IFDEF UNIX}
  cthreads,
  {$ENDIF}
  SysUtils,
  CkDllLoader,
  Chilkat.Http,
  Chilkat.JsonArray,
  Chilkat.HttpResponse,
  Chilkat.JsonObject;

// ---------------------------------------------------------------------------

procedure RunDemo;
var
  success: Boolean;
  http: THttp;
  jsonToken: TJsonObject;
  resp: THttpResponse;
  jarr: TJsonArray;
  json: TJsonObject;
  id: string;
  tenantId: string;
  tenantType: string;
  createdDateUtc: string;
  updatedDateUtc: string;
  i: Integer;
  count_i: Integer;

begin
  success := False;

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

  http := THttp.Create;

  jsonToken := TJsonObject.Create;
  success := jsonToken.LoadFile('qa_data/tokens/xero-access-token.json');
  if (success = False) then
    begin
      WriteLn(jsonToken.LastErrorText);
      Exit;
    end;

  http.AuthToken := jsonToken.StringOf('access_token');

  http.Accept := 'application/json';

  resp := THttpResponse.Create;
  success := http.HttpNoBody('GET','https://api.xero.com/connections',resp);
  if (success = False) then
    begin
      WriteLn(http.LastErrorText);
      Exit;
    end;

  WriteLn('Response Status Code: ' + resp.StatusCode);

  jarr := TJsonArray.Create;
  jarr.Load(resp.BodyStr);
  jarr.EmitCompact := False;
  WriteLn(jarr.Emit());

  if (resp.StatusCode <> 200) then
    begin
      WriteLn('Failed.');
      Exit;
    end;

  //  Sample response
  //  Use this online tool to generate parsing code from sample JSON: 
  //  Generate Parsing Code from JSON

  //  [
  //      {
  //          "id": "c869f3b7-6435-4c7e-8cb2-122721b04a69",
  //          "tenantId": "45e4708e-d862-4111-ab3a-dd8cd03913e1",
  //          "tenantType": "ORGANISATION",
  //          "createdDateUtc": "2020-02-02T19:17:58.1117990",
  //          "updatedDateUtc": "2020-02-02T19:17:58.1117990"
  //      },
  //      {
  //          "id": "74305bf3-12e0-45e2-8dc8-e3ec73e3b1f9",
  //          "tenantId": "c3d5e782-2153-4cda-bdb4-cec791ceb90d",
  //          "tenantType": "ORGANISATION",
  //          "createdDateUtc": "2020-01-30T01:33:36.2717380",
  //          "updatedDateUtc": "2020-02-02T19:21:08.5739590"
  //      }
  //  ]

  i := 0;
  count_i := jarr.Size;
  while i < count_i do
    begin
      json := jarr.ObjectAt(i);
      id := json.StringOf('id');
      tenantId := json.StringOf('tenantId');
      tenantType := json.StringOf('tenantType');
      createdDateUtc := json.StringOf('createdDateUtc');
      updatedDateUtc := json.StringOf('updatedDateUtc');
      json.Free;
      i := i + 1;
    end;



  http.Free;
  jsonToken.Free;
  resp.Free;
  jarr.Free;

end;

// ---------------------------------------------------------------------------

begin

  try
    RunDemo;
  except
    on E: Exception do
      WriteLn('Unhandled exception: ', E.ClassName, ': ', E.Message);
  end;

  WriteLn;
  {$IFDEF MSWINDOWS}
  WriteLn('Press Enter to exit...');
  ReadLn;
  {$ENDIF}
end.