![]() |
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
(DataFlex) 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
Use ChilkatAx-win32.pkg Procedure Test Boolean iSuccess Handle hoHttp Handle hoJsonToken Variant vResp Handle hoResp Handle hoJarr Variant vJson Handle hoJson String sId String sTenantId String sTenantType String sCreatedDateUtc String sUpdatedDateUtc Integer i Integer iCount_i String sTemp1 Integer iTemp1 Move False To iSuccess // This example requires the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. Get Create (RefClass(cComChilkatHttp)) To hoHttp If (Not(IsComObjectCreated(hoHttp))) Begin Send CreateComObject of hoHttp End Get Create (RefClass(cComChilkatJsonObject)) To hoJsonToken If (Not(IsComObjectCreated(hoJsonToken))) Begin Send CreateComObject of hoJsonToken End Get ComLoadFile Of hoJsonToken "qa_data/tokens/xero-access-token.json" To iSuccess If (iSuccess = False) Begin Get ComLastErrorText Of hoJsonToken To sTemp1 Showln sTemp1 Procedure_Return End Get ComStringOf Of hoJsonToken "access_token" To sTemp1 Set ComAuthToken Of hoHttp To sTemp1 Set ComAccept Of hoHttp To "application/json" Get Create (RefClass(cComChilkatHttpResponse)) To hoResp If (Not(IsComObjectCreated(hoResp))) Begin Send CreateComObject of hoResp End Get pvComObject of hoResp to vResp Get ComHttpNoBody Of hoHttp "GET" "https://api.xero.com/connections" vResp To iSuccess If (iSuccess = False) Begin Get ComLastErrorText Of hoHttp To sTemp1 Showln sTemp1 Procedure_Return End Get ComStatusCode Of hoResp To iTemp1 Showln "Response Status Code: " iTemp1 Get Create (RefClass(cComChilkatJsonArray)) To hoJarr If (Not(IsComObjectCreated(hoJarr))) Begin Send CreateComObject of hoJarr End Get ComBodyStr Of hoResp To sTemp1 Get ComLoad Of hoJarr sTemp1 To iSuccess Set ComEmitCompact Of hoJarr To False Get ComEmit Of hoJarr To sTemp1 Showln sTemp1 Get ComStatusCode Of hoResp To iTemp1 If (iTemp1 <> 200) Begin Showln "Failed." Procedure_Return 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" // } // ] Move 0 To i Get ComSize Of hoJarr To iCount_i While (i < iCount_i) Get ComObjectAt Of hoJarr i To vJson If (IsComObject(vJson)) Begin Get Create (RefClass(cComChilkatJsonObject)) To hoJson Set pvComObject Of hoJson To vJson End Get ComStringOf Of hoJson "id" To sId Get ComStringOf Of hoJson "tenantId" To sTenantId Get ComStringOf Of hoJson "tenantType" To sTenantType Get ComStringOf Of hoJson "createdDateUtc" To sCreatedDateUtc Get ComStringOf Of hoJson "updatedDateUtc" To sUpdatedDateUtc Send Destroy of hoJson Move (i + 1) To i Loop End_Procedure |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.