(Xojo Plugin) 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.

Chilkat Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

// 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 New Chilkat.Rest
Dim success As Boolean

// 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
fileID = "f042e9a3-a31d-4595-b8b3-6030ea6084bb"

Dim sbPath As New Chilkat.StringBuilder
success = sbPath.Append("/files.xro/1.0/Files/{FileId}/Content")
Dim numReplaced As Int32
numReplaced = sbPath.Replace("{FileId}",fileID)

Dim jpgData As New Chilkat.BinData
success = rest.FullRequestNoBodyBd("GET",sbPath.GetAsString(),jpgData)
If (success <> True) Then
    System.DebugLog(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 New Chilkat.StringBuilder
    success = sbErrorText.AppendBd(jpgData,"utf-8",0,0)
    System.DebugLog(sbErrorText.GetAsString())
    System.DebugLog("-- Failed.")
    Return
End If

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

System.DebugLog("Xero Get File was Successful.")