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
(Delphi DLL) Xero Delete AccountDemonstrates how to delete an account in Xero. Note: Requires Chilkat v9.5.0.64 or greater.
uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Rest, StringBuilder; ... procedure TForm1.Button1Click(Sender: TObject); var rest: HCkRest; success: Boolean; accountID: PWideChar; sbPath: HCkStringBuilder; xmlResponse: PWideChar; begin // 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. rest := CkRest_Create(); // 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.. // ------------------------------------------------------------------- // Accounts are deleted by AccountID. accountID := 'cb8c94cf-57d4-41ee-b866-4c27632fe838'; sbPath := CkStringBuilder_Create(); CkStringBuilder_Append(sbPath,'/api.xro/2.0/Accounts/'); CkStringBuilder_Append(sbPath,accountID); xmlResponse := CkRest__fullRequestNoBody(rest,'DELETE',CkStringBuilder__getAsString(sbPath)); if (success <> True) then begin Memo1.Lines.Add(CkRest__lastErrorText(rest)); Exit; end; // A 200 response is expected for actual success. if (CkRest_getResponseStatusCode(rest) <> 200) then begin Memo1.Lines.Add(xmlResponse); Memo1.Lines.Add('failed.'); Exit; end; Memo1.Lines.Add(xmlResponse); Memo1.Lines.Add('success.'); // 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>a2cdf307-8e47-468c-9251-32a6f6cf60b7</Id> // <Status>OK</Status> // <ProviderName>ChilkatPrivate</ProviderName> // <DateTimeUTC>2016-11-11T02:09:22.1082261Z</DateTimeUTC> // <Accounts> // <Account> // <AccountID>cb8c94cf-57d4-41ee-b866-4c27632fe838</AccountID> // <Code>601</Code> // <Name>Sales - clearance lines</Name> // <Status>DELETED</Status> // <Type>SALES</Type> // <TaxType>OUTPUT</TaxType> // <Class>REVENUE</Class> // <EnablePaymentsToAccount>false</EnablePaymentsToAccount> // <ShowInExpenseClaims>false</ShowInExpenseClaims> // <ReportingCode>REV</ReportingCode> // <ReportingCodeName>Revenue</ReportingCodeName> // <UpdatedDateUTC>2016-11-11T02:09:22.237</UpdatedDateUTC> // </Account> // </Accounts> // </Response> CkRest_Dispose(rest); CkStringBuilder_Dispose(sbPath); end; |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.