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 - 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, 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; originalAmount: Integer; xmlBody: TChilkatXml; xmlStr: WideString; xml: TChilkatXml; 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 := TChilkatStringBuilder.Create(Self); success := sbUrl.Append('https://marketplace.walmartapis.com/v2/inventory?sku={SKU}'); numReplaced := sbUrl.Replace('{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 := 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.Accept := '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 := TChilkatXml.Create(Self); xmlBody.Tag := 'wm:inventory'; xmlBody.AddAttribute('xmlns:wm','http://walmart.com/'); xmlBody.UpdateChildContent('wm:sku','HOPP~904~51041'); xmlBody.UpdateChildContent('wm:quantity|wm:unit','EACH'); xmlBody.UpdateChildContentInt('wm:quantity|wm:amount',originalAmount + 1); xmlBody.UpdateChildContent('wm:fulfillmentLagTime','5'); Memo1.Lines.Add('PUT request body:'); Memo1.Lines.Add(xmlBody.GetXml()); Memo1.Lines.Add('--'); // This is a simple PUT that can be sent w/ the PutText method. xmlStr := http.PutText(sbUrl.GetAsString(),xmlBody.GetXml(),'utf-8','application/xml',0,0); 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; // A sample XML response is shown below.. Memo1.Lines.Add(xml.GetXml()); 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> end; |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.