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) Walmart - Update Inventory for an ItemDemonstrates how to update inventory for an item.
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; originalAmount: Integer; xmlBody: HCkXml; xmlStr: PWideChar; xml: HCkXml; begin // This example requires the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. // Sends the following PUT request: // PUT https://marketplace.walmartapis.com/v2/inventory?sku={SKU} sbUrl := CkStringBuilder_Create(); success := CkStringBuilder_Append(sbUrl,'https://marketplace.walmartapis.com/v2/inventory?sku={SKU}'); numReplaced := CkStringBuilder_Replace(sbUrl,'{SKU}','HOPP~904~51041'); requestMethod := 'PUT'; // First we need to generate a signature for our 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_putAccept(http,'application/xml'); // Note: Do not explicitly set the "Host" header. Chilkat will set it automatically. // The body of the PUT request will be XML that looks like this: // <?xml version="1.0" encoding="utf-8" ?> // <wm:inventory xmlns:wm="http://walmart.com/"> // <wm:sku>HOPP~904~51041</wm:sku> // <wm:quantity> // <wm:unit>EACH</wm:unit> // <wm:amount>235</wm:amount> // </wm:quantity> // <wm:fulfillmentLagTime>5</wm:fulfillmentLagTime> // </wm:inventory> // Build the XML request body: originalAmount := 234; xmlBody := CkXml_Create(); CkXml_putTag(xmlBody,'wm:inventory'); CkXml_AddAttribute(xmlBody,'xmlns:wm','http://walmart.com/'); CkXml_UpdateChildContent(xmlBody,'wm:sku','HOPP~904~51041'); CkXml_UpdateChildContent(xmlBody,'wm:quantity|wm:unit','EACH'); CkXml_UpdateChildContentInt(xmlBody,'wm:quantity|wm:amount',originalAmount + 1); CkXml_UpdateChildContent(xmlBody,'wm:fulfillmentLagTime','5'); Memo1.Lines.Add('PUT request body:'); Memo1.Lines.Add(CkXml__getXml(xmlBody)); Memo1.Lines.Add('--'); // This is a simple PUT that can be sent w/ the PutText method. xmlStr := CkHttp__putText(http,CkStringBuilder__getAsString(sbUrl),CkXml__getXml(xmlBody),'utf-8','application/xml',False,False); 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; // A sample XML response is shown below.. Memo1.Lines.Add(CkXml__getXml(xml)); Memo1.Lines.Add('--'); Memo1.Lines.Add('Success!'); // --------------------------------------- // Sample XML response // --------------------------------------- // <?xml version="1.0" encoding="UTF-8" standalone="yes" ?> // <inventory xmlns="http://walmart.com/"> // <sku>HOPP~904~51041</sku> // <quantity> // <unit>EACH</unit> // <amount>235</amount> // </quantity> // <fulfillmentLagTime>5</fulfillmentLagTime> // </inventory> CkStringBuilder_Dispose(sbUrl); CkAuthUtil_Dispose(authUtil); CkJsonObject_Dispose(json); CkHttp_Dispose(http); CkXml_Dispose(xmlBody); CkXml_Dispose(xml); end; |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.