![]() |
Chilkat HOME Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi DLL Go Java Node.js Objective-C PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(Delphi DLL) Walmart - Get an Order by purchaseOrderIdNote: This example uses classes, properties, or methods discontinued in Chilkat v11.0.0 or greater. Gets 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, Http, StringBuilder, Xml, AuthUtil, JsonObject; ... procedure TForm1.Button1Click(Sender: TObject); var sbUrl: HCkStringBuilder; success: Boolean; numReplaced: Integer; requestMethod: PWideChar; authUtil: HCkAuthUtil; wmConsumerId: PWideChar; wmPrivateKey: PWideChar; jsonStr: PWideChar; json: HCkJsonObject; http: HCkHttp; xmlStr: PWideChar; xml: HCkXml; 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 := CkStringBuilder_Create(); success := CkStringBuilder_Append(sbUrl,'https://marketplace.walmartapis.com/v3/orders/{purchaseOrderId}'); numReplaced := CkStringBuilder_Replace(sbUrl,'{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 := CkAuthUtil_Create(); wmConsumerId := 'WALMART_CONSUMER_ID'; wmPrivateKey := 'WALMART_PRIVATE_KEY'; jsonStr := CkAuthUtil__walmartSignature(authUtil,CkStringBuilder__getAsString(sbUrl),wmConsumerId,wmPrivateKey,requestMethod); if (CkAuthUtil_getLastMethodSuccess(authUtil) <> True) then begin Memo1.Lines.Add(CkAuthUtil__lastErrorText(authUtil)); 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 := CkJsonObject_Create(); CkJsonObject_Load(json,jsonStr); http := CkHttp_Create(); CkHttp_SetRequestHeader(http,'WM_SVC.NAME','Walmart Marketplace'); CkHttp_SetRequestHeader(http,'WM_QOS.CORRELATION_ID',CkJsonObject__stringOf(json,'correlation_id')); CkHttp_SetRequestHeader(http,'WM_SEC.TIMESTAMP',CkJsonObject__stringOf(json,'timestamp')); CkHttp_SetRequestHeader(http,'WM_SEC.AUTH_SIGNATURE',CkJsonObject__stringOf(json,'signature')); CkHttp_SetRequestHeader(http,'WM_CONSUMER.ID',wmConsumerId); CkHttp_SetRequestHeader(http,'WM_CONSUMER.CHANNEL.TYPE','WALMART_CHANNEL_TYPE'); CkHttp_putAccept(http,'application/xml'); // Note: Do not explicitly set the "Host" header. Chilkat will set it automatically. xmlStr := CkHttp__quickGetStr(http,CkStringBuilder__getAsString(sbUrl)); if (CkHttp_getLastMethodSuccess(http) <> True) then begin Memo1.Lines.Add(CkHttp__lastErrorText(http)); Exit; end; xml := CkXml_Create(); CkXml_LoadXml(xml,xmlStr); // A successful response should have a 200 response status if (CkHttp_getLastStatus(http) <> 200) then begin Memo1.Lines.Add(CkXml__getXml(xml)); Memo1.Lines.Add('Response Status Code: ' + IntToStr(CkHttp_getLastStatus(http))); Memo1.Lines.Add('Failed.'); Exit; end; // Show the XML response: Memo1.Lines.Add(CkXml__getXml(xml)); Memo1.Lines.Add('Success.'); CkStringBuilder_Dispose(sbUrl); CkAuthUtil_Dispose(authUtil); CkJsonObject_Dispose(json); CkHttp_Dispose(http); CkXml_Dispose(xml); end; |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.