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) Walmart - Get an Order by purchaseOrderIdGets the XML data for an order by purchaseOrderId.
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 sbUrl: TChilkatStringBuilder; success: Integer; numReplaced: Integer; requestMethod: WideString; authUtil: TChilkatAuthUtil; wmConsumerId: WideString; wmPrivateKey: WideString; jsonStr: WideString; json: TChilkatJsonObject; http: TChilkatHttp; xmlStr: WideString; xml: TChilkatXml; begin // --------------------------------------------------------------------------------------------------------- // Note: This example is deprecated. The Walmart API no longer uses the Signature method of authenticating. // Walmart now uses OAuth2. // --------------------------------------------------------------------------------------------------------- // This example requires the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. // Demonstrates how to get the XML for a particular order by purchaseOrderId // Sends the following GET request: // GET https://marketplace.walmartapis.com/v3/orders/{purchaseOrderId} sbUrl := TChilkatStringBuilder.Create(Self); success := sbUrl.Append('https://marketplace.walmartapis.com/v3/orders/{purchaseOrderId}'); numReplaced := sbUrl.Replace('{purchaseOrderId}','1111691995111'); requestMethod := 'GET'; // First we need to generate a signature for the request. // The signature needs to be re-generated for each new Walmart HTTP request. authUtil := TChilkatAuthUtil.Create(Self); wmConsumerId := 'WALMART_CONSUMER_ID'; wmPrivateKey := 'WALMART_PRIVATE_KEY'; jsonStr := authUtil.WalmartSignature(sbUrl.GetAsString(),wmConsumerId,wmPrivateKey,requestMethod); if (authUtil.LastMethodSuccess <> 1) then begin Memo1.Lines.Add(authUtil.LastErrorText); Exit; end; // The JSON returned by WalmartSignature contains the values to be used in the following // header fields: WM_SEC.AUTH_SIGNATURE, WM_SEC.TIMESTAMP, and WM_QOS.CORRELATION_ID json := TChilkatJsonObject.Create(Self); json.Load(jsonStr); http := TChilkatHttp.Create(Self); http.SetRequestHeader('WM_SVC.NAME','Walmart Marketplace'); http.SetRequestHeader('WM_QOS.CORRELATION_ID',json.StringOf('correlation_id')); http.SetRequestHeader('WM_SEC.TIMESTAMP',json.StringOf('timestamp')); http.SetRequestHeader('WM_SEC.AUTH_SIGNATURE',json.StringOf('signature')); http.SetRequestHeader('WM_CONSUMER.ID',wmConsumerId); http.SetRequestHeader('WM_CONSUMER.CHANNEL.TYPE','WALMART_CHANNEL_TYPE'); http.Accept := 'application/xml'; // Note: Do not explicitly set the "Host" header. Chilkat will set it automatically. xmlStr := http.QuickGetStr(sbUrl.GetAsString()); if (http.LastMethodSuccess <> 1) then begin Memo1.Lines.Add(http.LastErrorText); Exit; end; xml := TChilkatXml.Create(Self); xml.LoadXml(xmlStr); // A successful response should have a 200 response status if (http.LastStatus <> 200) then begin Memo1.Lines.Add(xml.GetXml()); Memo1.Lines.Add('Response Status Code: ' + IntToStr(http.LastStatus)); Memo1.Lines.Add('Failed.'); Exit; end; // Show the XML response: Memo1.Lines.Add(xml.GetXml()); Memo1.Lines.Add('Success.'); end; |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.