(Visual FoxPro) Xero Get Full Set of Tenants

Check 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

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL lnSuccess
LOCAL loHttp
LOCAL loJsonToken
LOCAL loResp
LOCAL loJarr
LOCAL loJson
LOCAL lcId
LOCAL lcTenantId
LOCAL lcTenantType
LOCAL lcCreatedDateUtc
LOCAL lcUpdatedDateUtc
LOCAL i
LOCAL lnCount_i

lnSuccess = 0

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

loHttp = CreateObject('Chilkat.Http')

loJsonToken = CreateObject('Chilkat.JsonObject')
lnSuccess = loJsonToken.LoadFile("qa_data/tokens/xero-access-token.json")
IF (lnSuccess = 0) THEN
    ? loJsonToken.LastErrorText
    RELEASE loHttp
    RELEASE loJsonToken
    CANCEL
ENDIF

loHttp.AuthToken = loJsonToken.StringOf("access_token")

loHttp.Accept = "application/json"

loResp = CreateObject('Chilkat.HttpResponse')
lnSuccess = loHttp.HttpNoBody("GET","https://api.xero.com/connections",loResp)
IF (lnSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    RELEASE loJsonToken
    RELEASE loResp
    CANCEL
ENDIF

? "Response Status Code: " + STR(loResp.StatusCode)

loJarr = CreateObject('Chilkat.JsonArray')
loJarr.Load(loResp.BodyStr)
loJarr.EmitCompact = 0
? loJarr.Emit()

IF (loResp.StatusCode <> 200) THEN
    ? "Failed."
    RELEASE loHttp
    RELEASE loJsonToken
    RELEASE loResp
    RELEASE loJarr
    CANCEL
ENDIF

* 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
lnCount_i = loJarr.Size
DO WHILE i < lnCount_i
    loJson = loJarr.ObjectAt(i)
    lcId = loJson.StringOf("id")
    lcTenantId = loJson.StringOf("tenantId")
    lcTenantType = loJson.StringOf("tenantType")
    lcCreatedDateUtc = loJson.StringOf("createdDateUtc")
    lcUpdatedDateUtc = loJson.StringOf("updatedDateUtc")
    RELEASE loJson
    i = i + 1
ENDDO

RELEASE loHttp
RELEASE loJsonToken
RELEASE loResp
RELEASE loJarr