Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(Tcl) Xero Upload File (Files API)Demonstrates how to upload a file to a Xero folder. Note: This example requires Chilkat v9.5.0.64 or greater.
load ./chilkat.dll # 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. set rest [new_CkRest] # 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 a file to a folder using the Xero FILES API set folderID "0ffca059-f2f1-4271-8de9-4b87c8c2c638" # This JPG image can be downloaded from https://www.chilkatsoft.com/syncedImages/penguins.jpg set filename "penguins.jpg" set sbPath [new_CkStringBuilder] CkStringBuilder_Append $sbPath "/files.xro/1.0/Files/{FolderId}" set numReplaced [CkStringBuilder_Replace $sbPath "{FolderId}" $folderID] CkRest_AddHeader $rest "Content-Type" "image/jpeg" # Load the JPG image from a file. set jpgData [new_CkBinData] set success [CkBinData_LoadFile $jpgData "qa_data/jpg/penguins.jpg"] # We could alternatively get it from a URL like this: set jpgDataFromWeb [new_CkBinData] set http [new_CkHttp] set success [CkHttp_QuickGetBd $http "https://www.chilkatsoft.com/syncedImages/penguins.jpg" $jpgDataFromWeb] if {$success != 1} then { puts [CkHttp_lastErrorText $http] delete_CkRest $rest delete_CkStringBuilder $sbPath delete_CkBinData $jpgData delete_CkBinData $jpgDataFromWeb delete_CkHttp $http exit } # # Put the file data in the 1st sub-part in the multipart/form-data request we'll be sending. CkRest_put_PartSelector $rest "1" CkRest_SetMultipartBodyBd $rest $jpgData # Set request headers in the 1st subpart (as indicated by the PartSelector) CkRest_AddHeader $rest "Content-Type" "image/jpeg" CkRest_AddHeader $rest "Content-Disposition" "multipart/form-data; name=Xero; filename=penguins.jpg" # Restore the PartSelector to an empty string. CkRest_put_PartSelector $rest "" CkRest_AddHeader $rest "Content-Type" "multipart/form-data" # Upload with a multipart/form-data POST set responseJson [CkRest_fullRequestMultipart $rest "POST" [CkStringBuilder_getAsString $sbPath]] if {[CkRest_get_LastMethodSuccess $rest] != 1} then { puts [CkRest_lastErrorText $rest] delete_CkRest $rest delete_CkStringBuilder $sbPath delete_CkBinData $jpgData delete_CkBinData $jpgDataFromWeb delete_CkHttp $http exit } set json [new_CkJsonObject] CkJsonObject_Load $json $responseJson CkJsonObject_put_EmitCompact $json 0 # A 201 response is expected for actual success. # The Xero documentation doesn't explicitly state it, but that's what we've found in testing. # To be safe, we'll check for either 200 or 201. if {expr [[CkRest_get_ResponseStatusCode $rest] != 200] && [[CkRest_get_ResponseStatusCode $rest] != 201]} then { puts [CkJsonObject_emit $json] delete_CkRest $rest delete_CkStringBuilder $sbPath delete_CkBinData $jpgData delete_CkBinData $jpgDataFromWeb delete_CkHttp $http delete_CkJsonObject $json exit } # Examine the JSON response puts [CkJsonObject_emit $json] # A successful response looks like this: # { # "Name": "penguins.jpg", # "MimeType": "image/jpeg", # "Size": 777835, # "CreatedDateUtc": "2016-11-12T15:31:53.4230000", # "UpdatedDateUtc": "2016-11-12T15:31:53.4230000", # "User": { # "Name": "admin@chilkatsoft.com", # "FirstName": "Matthew", # "LastName": "Smith", # "FullName": "Matthew Smith", # "Id": "c362fe42-cb12-461f-b84a-c281c1a74841" # }, # "FolderId": "0ffca059-f2f1-4271-8de9-4b87c8c2c638", # "Id": "f042e9a3-a31d-4595-b8b3-6030ea6084bb" # } delete_CkRest $rest delete_CkStringBuilder $sbPath delete_CkBinData $jpgData delete_CkBinData $jpgDataFromWeb delete_CkHttp $http delete_CkJsonObject $json |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.