![]() |
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
(Tcl) 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
load ./chilkat.dll set success 0 # This example requires the Chilkat API to have been previously unlocked. # See Global Unlock Sample for sample code. set http [new_CkHttp] set jsonToken [new_CkJsonObject] set success [CkJsonObject_LoadFile $jsonToken "qa_data/tokens/xero-access-token.json"] if {$success == 0} then { puts [CkJsonObject_lastErrorText $jsonToken] delete_CkHttp $http delete_CkJsonObject $jsonToken exit } CkHttp_put_AuthToken $http [CkJsonObject_stringOf $jsonToken "access_token"] CkHttp_put_Accept $http "application/json" set resp [new_CkHttpResponse] set success [CkHttp_HttpNoBody $http "GET" "https://api.xero.com/connections" $resp] if {$success == 0} then { puts [CkHttp_lastErrorText $http] delete_CkHttp $http delete_CkJsonObject $jsonToken delete_CkHttpResponse $resp exit } puts "Response Status Code: [CkHttpResponse_get_StatusCode $resp]" set jarr [new_CkJsonArray] CkJsonArray_Load $jarr [CkHttpResponse_bodyStr $resp] CkJsonArray_put_EmitCompact $jarr 0 puts [CkJsonArray_emit $jarr] if {[CkHttpResponse_get_StatusCode $resp] != 200} then { puts "Failed." delete_CkHttp $http delete_CkJsonObject $jsonToken delete_CkHttpResponse $resp delete_CkJsonArray $jarr exit } # 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" # } # ] # json is a CkJsonObject set i 0 set count_i [CkJsonArray_get_Size $jarr] while {$i < $count_i} { set json [CkJsonArray_ObjectAt $jarr $i] set id [CkJsonObject_stringOf $json "id"] set tenantId [CkJsonObject_stringOf $json "tenantId"] set tenantType [CkJsonObject_stringOf $json "tenantType"] set createdDateUtc [CkJsonObject_stringOf $json "createdDateUtc"] set updatedDateUtc [CkJsonObject_stringOf $json "updatedDateUtc"] delete_CkJsonObject $json set i [expr $i + 1] } delete_CkHttp $http delete_CkJsonObject $jsonToken delete_CkHttpResponse $resp delete_CkJsonArray $jarr |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.