![]() |
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
(PowerBuilder) 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
integer li_rc integer li_Success oleobject loo_Http oleobject loo_JsonToken oleobject loo_Resp oleobject loo_Jarr oleobject loo_Json string ls_Id string ls_TenantId string ls_TenantType string ls_CreatedDateUtc string ls_UpdatedDateUtc integer i integer li_Count_i li_Success = 0 // This example requires the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. loo_Http = create oleobject li_rc = loo_Http.ConnectToNewObject("Chilkat.Http") if li_rc < 0 then destroy loo_Http MessageBox("Error","Connecting to COM object failed") return end if loo_JsonToken = create oleobject li_rc = loo_JsonToken.ConnectToNewObject("Chilkat.JsonObject") li_Success = loo_JsonToken.LoadFile("qa_data/tokens/xero-access-token.json") if li_Success = 0 then Write-Debug loo_JsonToken.LastErrorText destroy loo_Http destroy loo_JsonToken return end if loo_Http.AuthToken = loo_JsonToken.StringOf("access_token") loo_Http.Accept = "application/json" loo_Resp = create oleobject li_rc = loo_Resp.ConnectToNewObject("Chilkat.HttpResponse") li_Success = loo_Http.HttpNoBody("GET","https://api.xero.com/connections",loo_Resp) if li_Success = 0 then Write-Debug loo_Http.LastErrorText destroy loo_Http destroy loo_JsonToken destroy loo_Resp return end if Write-Debug "Response Status Code: " + string(loo_Resp.StatusCode) loo_Jarr = create oleobject li_rc = loo_Jarr.ConnectToNewObject("Chilkat.JsonArray") loo_Jarr.Load(loo_Resp.BodyStr) loo_Jarr.EmitCompact = 0 Write-Debug loo_Jarr.Emit() if loo_Resp.StatusCode <> 200 then Write-Debug "Failed." destroy loo_Http destroy loo_JsonToken destroy loo_Resp destroy loo_Jarr return end if // 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 li_Count_i = loo_Jarr.Size do while i < li_Count_i loo_Json = loo_Jarr.ObjectAt(i) ls_Id = loo_Json.StringOf("id") ls_TenantId = loo_Json.StringOf("tenantId") ls_TenantType = loo_Json.StringOf("tenantType") ls_CreatedDateUtc = loo_Json.StringOf("createdDateUtc") ls_UpdatedDateUtc = loo_Json.StringOf("updatedDateUtc") destroy loo_Json i = i + 1 loop destroy loo_Http destroy loo_JsonToken destroy loo_Resp destroy loo_Jarr |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.