Delphi DLL

Xero Upload Attachment

See more Xero Examples

Demonstrates how to upload an attachment to Xero. Delphi DLL

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Http, BinData, HttpResponse, JsonObject;

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Boolean;
http: HCkHttp;
jsonToken: HCkJsonObject;
url: PWideChar;
bd: HCkBinData;
resp: HCkHttpResponse;
jsonResponse: HCkJsonObject;

begin
success := False;

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

http := CkHttp_Create();

// Important: Make sure your OAuth2 access token was obtained with the scope "accounting.attachments"
// included in the list of scopes.

jsonToken := CkJsonObject_Create();
success := CkJsonObject_LoadFile(jsonToken,'qa_data/tokens/xero-access-token.json');
if (success = False) then
  begin
    Memo1.Lines.Add(CkJsonObject__lastErrorText(jsonToken));
    Exit;
  end;

CkHttp_putAuthToken(http,CkJsonObject__stringOf(jsonToken,'access_token'));

// Replace the value here with an actual tenant ID obtained from this example:
// Get Xero Tenant IDs
CkHttp_SetRequestHeader(http,'Xero-tenant-id','83299b9e-5747-4a14-a18a-a6c94f824eb7');

CkHttp_putAccept(http,'application/json');

url := 'https://api.xero.com/api.xro/2.0/{$Endpoint}/{$Guid}/Attachments/{$Filename}';

// Endpoint can be Invoices, Receipts, CreditNotes, PurchaseOrders, etc.
CkHttp_SetUrlVar(http,'Endpoint','Invoices');

// Guid is the ID of the item, such as the InvoiceID.
CkHttp_SetUrlVar(http,'Guid','0032f627-3156-4d30-9b1c-4d3b994dc921');

// Filename is the filename of the attachment you are uploading.
CkHttp_SetUrlVar(http,'Filename','penguins.jpg');

// Load the file to be uploaded (from the local filesystem).
bd := CkBinData_Create();
success := CkBinData_LoadFile(bd,'qa_data/jpg/penguins.jpg');
if (success = False) then
  begin
    Memo1.Lines.Add('Failed to load attachment file.');
    Exit;
  end;

// Indicate the content-type according to the file content type.
// Common content-types are:   image/jpg, image/png, application/pdf, application/zip, application/msword
// If you don't know, use application/octet-stream
resp := CkHttpResponse_Create();
success := CkHttp_HttpBd(http,'POST',url,bd,'image/jpg',resp);
if (success = False) then
  begin
    Memo1.Lines.Add(CkHttp__lastErrorText(http));
    Exit;
  end;

Memo1.Lines.Add('Response Status Code: ' + IntToStr(CkHttpResponse_getStatusCode(resp)));

jsonResponse := CkJsonObject_Create();
CkJsonObject_Load(jsonResponse,CkHttpResponse__bodyStr(resp));
CkJsonObject_putEmitCompact(jsonResponse,False);
Memo1.Lines.Add(CkJsonObject__emit(jsonResponse));

if (CkHttpResponse_getStatusCode(resp) <> 200) then
  begin
    Memo1.Lines.Add('Failed.');
    Exit;
  end;

// A sample response:

// Use this online tool to generate parsing code from sample JSON: 
// Generate Parsing Code from JSON

// {
//   "Id": "35333c64-4449-457b-bf6a-1b64d538e3c7",
//   "Status": "OK",
//   "ProviderName": "Chilkat2222",
//   "DateTimeUTC": "\/Date(1587212597758)\/",
//   "Attachments": [
//     {
//       "AttachmentID": "daf106e2-8634-4349-bfcc-86c1df0793b2",
//       "FileName": "penguins.jpg",
//       "Url": "https://api.xero.com/api.xro/2.0/Invoices/0032f627-3156-4d30-9b1c-4d3b994dc921/Attachments/penguins.jpg",
//       "MimeType": "image/jpg",
//       "ContentLength": 777835
//     }
//   ]
// }

CkHttp_Dispose(http);
CkJsonObject_Dispose(jsonToken);
CkBinData_Dispose(bd);
CkHttpResponse_Dispose(resp);
CkJsonObject_Dispose(jsonResponse);

end;