![]() |
Chilkat HOME Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi DLL Go Java Node.js Objective-C PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(Delphi DLL) Xero Get Full Set of TenantsCheck the full set of tenants you've been authorized to access Note: This example requires Chilkat v11.0.0 or greater. For more information, see https://developer.xero.com/documentation/oauth2/auth-flow
uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Http, JsonArray, HttpResponse, JsonObject; ... procedure TForm1.Button1Click(Sender: TObject); var success: Boolean; http: HCkHttp; jsonToken: HCkJsonObject; resp: HCkHttpResponse; jarr: HCkJsonArray; json: HCkJsonObject; id: PWideChar; tenantId: PWideChar; tenantType: PWideChar; createdDateUtc: PWideChar; updatedDateUtc: PWideChar; 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 := CkHttp_Create(); jsonToken := CkJsonObject_Create(); success := CkJsonObject_LoadFile(jsonToken,'qa_data/tokens/xero-access-token.json'); if (success = False) then begin Memo1.Lines.Add(CkJsonObject__lastErrorText(jsonToken)); Exit; end; CkHttp_putAuthToken(http,CkJsonObject__stringOf(jsonToken,'access_token')); CkHttp_putAccept(http,'application/json'); resp := CkHttpResponse_Create(); success := CkHttp_HttpNoBody(http,'GET','https://api.xero.com/connections',resp); if (success = False) then begin Memo1.Lines.Add(CkHttp__lastErrorText(http)); Exit; end; Memo1.Lines.Add('Response Status Code: ' + IntToStr(CkHttpResponse_getStatusCode(resp))); jarr := CkJsonArray_Create(); CkJsonArray_Load(jarr,CkHttpResponse__bodyStr(resp)); CkJsonArray_putEmitCompact(jarr,False); Memo1.Lines.Add(CkJsonArray__emit(jarr)); if (CkHttpResponse_getStatusCode(resp) <> 200) then begin Memo1.Lines.Add('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 := CkJsonArray_getSize(jarr); while i < count_i do begin json := CkJsonArray_ObjectAt(jarr,i); id := CkJsonObject__stringOf(json,'id'); tenantId := CkJsonObject__stringOf(json,'tenantId'); tenantType := CkJsonObject__stringOf(json,'tenantType'); createdDateUtc := CkJsonObject__stringOf(json,'createdDateUtc'); updatedDateUtc := CkJsonObject__stringOf(json,'updatedDateUtc'); CkJsonObject_Dispose(json); i := i + 1; end; CkHttp_Dispose(http); CkJsonObject_Dispose(jsonToken); CkHttpResponse_Dispose(resp); CkJsonArray_Dispose(jarr); end; |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.