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 ActiveX) Xero API through an HTTP ProxyThis example demonstrates connecting through an HTTP proxy w/ 2-legged OAuth for a Xero private application. This example requires Chilkat v9.5.0.64 or later
uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_v9_5_0_TLB; ... procedure TForm1.Button1Click(Sender: TObject); var rest: TChilkatRest; socket: TChilkatSocket; bTls: Integer; port: Integer; maxWaitMs: Integer; success: Integer; consumerKey: WideString; consumerSecret: WideString; pfx: TChilkatPfx; privKeyFromPfx: IPrivateKey; privKeyFromPem: TPrivateKey; oauth1: TChilkatOAuth1; sbXml: TChilkatStringBuilder; bAutoTrim: Integer; xml: TChilkatXml; recordCount: Integer; i: Integer; begin // This example requires Chilkat v9.5.0.64 or later // This sample code would typically be placed in a subroutine or function // where the rest object is passed by reference. // It does the OAuth1 setup and makes the initial connection. rest := TChilkatRest.Create(Self); // Connect to the Xero server through an HTTP proxy, and then tell the REST object // to use the socket connection. socket := TChilkatSocket.Create(Self); // Set the HTTP proxy domain or IP address, and port. socket.HttpProxyHostname := '192.168.1.100'; socket.HttpProxyPort := 8088; // Connect through the HTTP proxy.. bTls := 1; port := 443; maxWaitMs := 5000; success := socket.Connect('api.xero.com',port,bTls,maxWaitMs); if (success <> 1) then begin Memo1.Lines.Add('Connect Failure Error Code: ' + IntToStr(socket.ConnectFailReason)); Memo1.Lines.Add(socket.LastErrorText); Exit; end; // Use the HTTP proxied TLS connection: success := rest.UseConnection(socket.ControlInterface,1); if (success <> 1) then begin Memo1.Lines.Add(rest.LastErrorText); Exit; end; // OK, we're connected. // The UseConnection method has an internal reference to the underlying/internal socket. // The application can does not need to keep its socket object in existence. // ----------------------------------------------------------------- // Now setup the OAuth1 authenticator.. consumerKey := 'XERO_PRIVATE_APP_KEY'; consumerSecret := 'XERO_PRIVATE_APP_SECRET'; // Let's get our private key from our PFX (password protected), or the PEM (unprotected). // You can decide which to use. Either is OK, although I would recommend keeping your // private keys in a PFX and not in an unprotected PEM. pfx := TChilkatPfx.Create(Self); success := pfx.LoadPfxFile('qa_data/certs/xero_private_app/public_privatekey.pfx','PFX_PASSWORD'); if (success <> 1) then begin Memo1.Lines.Add(pfx.LastErrorText); Exit; end; privKeyFromPfx := pfx.GetPrivateKey(0); if (pfx.LastMethodSuccess <> 1) then begin Memo1.Lines.Add(pfx.LastErrorText); Exit; end; // Or we can load from a PEM.. privKeyFromPem := TPrivateKey.Create(Self); success := privKeyFromPem.LoadPemFile('qa_data/certs/xero_private_app/privatekey.pem'); if (success <> 1) then begin Memo1.Lines.Add(privKeyFromPem.LastErrorText); Exit; end; // Note: There are many other means for loading a private key, including // from other formats and directly from memory (i.e. not file-based). oauth1 := TChilkatOAuth1.Create(Self); oauth1.ConsumerKey := consumerKey; oauth1.ConsumerSecret := consumerSecret; oauth1.Token := consumerKey; oauth1.TokenSecret := consumerSecret; oauth1.SignatureMethod := 'RSA-SHA1'; oauth1.SetRsaKey(privKeyFromPfx); // Install the OAuth1 authenticator. rest.SetAuthOAuth1(oauth1.ControlInterface,0); Memo1.Lines.Add('OK, the Xero OAuth1 is initialized and the REST object is ready to make REST API calls..'); // ----------------------------------------------------------------- // Make a call to verify that OAuth1 through an HTTP proxy works.. // Get the full list of contacts. sbXml := TChilkatStringBuilder.Create(Self); success := rest.FullRequestNoBodySb('GET','/api.xro/2.0/Contacts',sbXml.ControlInterface); if (success <> 1) then begin Memo1.Lines.Add(rest.LastErrorText); Exit; end; // A 200 response is expected for actual success. if (rest.ResponseStatusCode <> 200) then begin Memo1.Lines.Add(sbXml.GetAsString()); Exit; end; // Iterate over the contacts.. bAutoTrim := 0; xml := TChilkatXml.Create(Self); xml.LoadSb(sbXml.ControlInterface,bAutoTrim); xml.SaveXml('qa_cache/xero_contacts.xml'); // How many records exist? recordCount := xml.NumChildrenAt('Contacts'); Memo1.Lines.Add('numRecords = ' + IntToStr(recordCount)); i := 0; while i < recordCount do begin xml.I := i; Memo1.Lines.Add('ContactID: ' + xml.GetChildContent('Contacts|Contact[i]|ContactID')); i := i + 1; end; end; |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.