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
(Lianja) Xero API through an SSH TunnelThis example demonstrates connecting through an SSH Tunnel w/ 2-legged OAuth for a Xero private application. This example requires Chilkat v9.5.0.64 or later
// This example requires Chilkat v9.5.0.64 or later loTunnel = createobject("CkSocket") lcSshHostname = "www.my-ssh-server.com" lnSshPort = 22 // Connect to an SSH server and establish the SSH tunnel: llSuccess = loTunnel.SshOpenTunnel(lcSshHostname,lnSshPort) if (llSuccess <> .T.) then ? loTunnel.LastErrorText release loTunnel return endif // Authenticate with the SSH server via a login/password // or with a public key. // This example demonstrates SSH password authentication. llSuccess = loTunnel.SshAuthenticatePw("mySshLogin","mySshPassword") if (llSuccess <> .T.) then ? loTunnel.LastErrorText release loTunnel return endif // OK, the SSH tunnel is setup. Now open a channel within the tunnel. // (Any number of channels may be created from the same SSH tunnel. // Multiple channels may coexist at the same time.) // 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. loRest = createobject("CkRest") llBTls = .T. lnPort = 443 lnMaxWaitMs = 7000 // This returns a socket object that is a single channel within the SSH tunnel. loChannel = loTunnel.SshOpenChannel("api.xero.com",lnPort,llBTls,lnMaxWaitMs) if (loTunnel.LastMethodSuccess <> .T.) then ? loTunnel.LastErrorText release loTunnel release loRest return endif // Use the connection. (This connection is a TLS running on an SSH channel through an SSH tunnel. // In other words, TLS is wrapped within the SSH tunnel.) llSuccess = loRest.UseConnection(loChannel,.T.) if (llSuccess <> .T.) then ? loRest.LastErrorText release loChannel release loTunnel release loRest return endif // OK, we're connected. // ----------------------------------------------------------------- // Now setup the OAuth1 authenticator.. lcConsumerKey = "XERO_PRIVATE_APP_KEY" lcConsumerSecret = "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. loPfx = createobject("CkPfx") llSuccess = loPfx.LoadPfxFile("qa_data/certs/xero_private_app/public_privatekey.pfx","PFX_PASSWORD") if (llSuccess <> .T.) then ? loPfx.LastErrorText release loTunnel release loRest release loPfx return endif loPrivKeyFromPfx = loPfx.GetPrivateKey(0) if (loPfx.LastMethodSuccess <> .T.) then ? loPfx.LastErrorText release loTunnel release loRest release loPfx return endif // Or we can load from a PEM.. loPrivKeyFromPem = createobject("CkPrivateKey") llSuccess = loPrivKeyFromPem.LoadPemFile("qa_data/certs/xero_private_app/privatekey.pem") if (llSuccess <> .T.) then ? loPrivKeyFromPem.LastErrorText release loTunnel release loRest release loPfx release loPrivKeyFromPem return endif // Note: There are many other means for loading a private key, including // from other formats and directly from memory (i.e. not file-based). loOauth1 = createobject("CkOAuth1") loOauth1.ConsumerKey = lcConsumerKey loOauth1.ConsumerSecret = lcConsumerSecret loOauth1.Token = lcConsumerKey loOauth1.TokenSecret = lcConsumerSecret loOauth1.SignatureMethod = "RSA-SHA1" loOauth1.SetRsaKey(loPrivKeyFromPfx) release loPrivKeyFromPfx // Install the OAuth1 authenticator. loRest.SetAuthOAuth1(loOauth1,.F.) ? "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. loSbXml = createobject("CkStringBuilder") llSuccess = loRest.FullRequestNoBodySb("GET","/api.xro/2.0/Contacts",loSbXml) if (llSuccess <> .T.) then ? loRest.LastErrorText release loTunnel release loRest release loPfx release loPrivKeyFromPem release loOauth1 release loSbXml return endif // A 200 response is expected for actual success. if (loRest.ResponseStatusCode <> 200) then ? loSbXml.GetAsString() release loTunnel release loRest release loPfx release loPrivKeyFromPem release loOauth1 release loSbXml return endif // Iterate over the contacts.. llBAutoTrim = .F. loXml = createobject("CkXml") loXml.LoadSb(loSbXml,llBAutoTrim) loXml.SaveXml("qa_cache/xero_contacts.xml") // How many records exist? lnRecordCount = loXml.NumChildrenAt("Contacts") ? "numRecords = " + str(lnRecordCount) i = 0 do while i < lnRecordCount loXml.I = i ? "ContactID: " + loXml.GetChildContent("Contacts|Contact[i]|ContactID") i = i + 1 enddo release loTunnel release loRest release loPfx release loPrivKeyFromPem release loOauth1 release loSbXml release loXml |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.