B4X

Xero Get File Content (Files API)

Demonstrates how to download the content of a Xero file.

Note: This example requires Chilkat v9.5.0.64 or greater.

B4X

Dim success As Boolean = False

'  Note: Requires Chilkat v9.5.0.64 or greater.

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

Dim rest As ChilkatRest
rest.Initialize("rest")

'  Before sending REST API calls, the REST object needs to be
'  initialized for OAuth1.
'  See Xero 2-Legged OAuth1 Setup for sample code.

'  Assuming the REST object's OAuth1 authenticator is setup, and the initial
'  connection was made, we may now send REST HTTP requests..

'  ------------------------------------------------------------------------------
Dim fileID As String = "f042e9a3-a31d-4595-b8b3-6030ea6084bb"

Dim sbPath As ChilkatStringBuilder
sbPath.Initialize
sbPath.Append("/files.xro/1.0/Files/{FileId}/Content")
Dim numReplaced As Int = sbPath.Replace("{FileId}", fileID)

Dim jpgData As ChilkatBinData
jpgData.Initialize
success = rest.FullRequestNoBodyBd("GET", sbPath.GetAsString, jpgData)
If success <> True Then
    Log(rest.LastErrorText)
    Return
End If


'  A 200 response is expected for actual success.
'  If we don't get a 200 response, then the response body was not actually
'  the file data, but it was text containing error information.
If rest.ResponseStatusCode <> 200 Then
    Dim sbErrorText As ChilkatStringBuilder
    sbErrorText.Initialize
    sbErrorText.AppendBd(jpgData, "utf-8", 0, 0)
    Log(sbErrorText.GetAsString)
    Log("-- Failed.")
    Return
End If


'  Save to a local file.
success = jpgData.WriteFile("qa_output/xero_penguins.jpg")
If success <> True Then
    Log("Failed to save to local file.")
End If


Log("Xero Get File was Successful.")