Visual Basic 6.0

Xero Upload Attachment

Upload an attachment. (POST an attachment).

Note: Requires Chilkat v9.5.0.64 or greater.

Visual Basic 6.0

Dim success As Long
success = 0

' 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 ChilkatRest

' 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..

' --------------------------------------------------------------
' This example will upload an image attachment to a receipt.

Dim endPoint As String
endPoint = "Receipts"
Dim receiptID As String
receiptID = "c4f40e59-c390-0001-caff-ce731c707d00"
' This JPG image can be downloaded from https://www.chilkatsoft.com/syncedImages/penguins.jpg
Dim filename As String
filename = "penguins.jpg"

Dim sbPath As New ChilkatStringBuilder
success = sbPath.Append("/api.xro/2.0/{Endpoint}/{Guid}/Attachments/{Filename}")
Dim numReplaced As Long
numReplaced = sbPath.Replace("{Endpoint}",endPoint)
numReplaced = sbPath.Replace("{Guid}",receiptID)
numReplaced = sbPath.Replace("{Filename}",filename)

success = rest.AddHeader("Content-Type","image/jpeg")

' Load the JPG image from a file.
Dim jpgData As New ChilkatBinData
success = jpgData.LoadFile("qa_data/jpg/penguins.jpg")

' We could alternatively get it from a URL like this:
Dim jpgDataFromWeb As New ChilkatBinData
Dim http As New ChilkatHttp
success = http.QuickGetBd("https://www.chilkatsoft.com/syncedImages/penguins.jpg",jpgDataFromWeb)
If (success <> 1) Then
    Debug.Print http.LastErrorText
    Exit Sub
End If

' Upload with a POST
Dim sbResponseBody As New ChilkatStringBuilder
success = rest.FullRequestBd("POST",sbPath.GetAsString(),jpgData,sbResponseBody)
If (success <> 1) Then
    Debug.Print rest.LastErrorText
    Exit Sub
End If

' A 200 response is expected for actual success.
If (rest.ResponseStatusCode <> 200) Then
    Debug.Print sbResponseBody.GetAsString()
    Exit Sub
End If

' Examine the XML response
Debug.Print sbResponseBody.GetAsString()

' A successful response looks like this:

' 	<Response xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
' 	  <Id>d82568cd-d222-49e6-b713-880b6edb0606</Id>
' 	  <Status>OK</Status>
' 	  <ProviderName>ChilkatPrivate</ProviderName>
' 	  <DateTimeUTC>2016-11-11T14:17:49.5922609Z</DateTimeUTC>
' 	  <Attachments>
' 	    <Attachment>
' 	      <AttachmentID>0edcddc8-325f-40c7-b950-8c71f14afc7c</AttachmentID>
' 	      <FileName>penguins.jpg</FileName>
' 	      <Url>http://api.xero.com/api.xro/2.0/Receipts/c4f40e59-c390-0001-caff-ce731c707d00/Attachments/penguins.jpg</Url>
' 	      <MimeType>image/jpg</MimeType>
' 	      <ContentLength>777835</ContentLength>
' 	    </Attachment>
' 	  </Attachments>
' 	</Response>