(Delphi DLL) Walmart - Update bulk inventory

Note: This example uses classes, properties, or methods discontinued in Chilkat v11.0.0 or greater.

See Update bulk inventory for more information about this call.

Chilkat for Delphi Downloads Chilkat non-ActiveX DLL for Delphi Chilkat ActiveX DLL for Delphi * The examples here use the non-ActiveX DLL.

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, HttpResponse, AuthUtil, HttpRequest, JsonObject, Xml, Http;

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Boolean;
url: PWideChar;
requestMethod: PWideChar;
authUtil: HCkAuthUtil;
wmConsumerId: PWideChar;
wmPrivateKey: PWideChar;
jsonStr: PWideChar;
req: HCkHttpRequest;
json: HCkJsonObject;
http: HCkHttp;
resp: HCkHttpResponse;
xml: HCkXml;

begin
// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

// Sends the following POST request:
// POST https://marketplace.walmartapis.com/v2/feeds?feedType=inventory

url := 'https://marketplace.walmartapis.com/v2/feeds?feedType=inventory';

requestMethod := 'POST';

// 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,url,wmConsumerId,wmPrivateKey,requestMethod);
if (CkAuthUtil_getLastMethodSuccess(authUtil) <> True) then
  begin
    Memo1.Lines.Add(CkAuthUtil__lastErrorText(authUtil));
    Exit;
  end;

// Build the HTTP POST request.
req := CkHttpRequest_Create();
CkHttpRequest_putHttpVerb(req,'POST');
CkHttpRequest_putContentType(req,'multipart/form-data');
CkHttpRequest_putPath(req,'/v2/feeds?feedType=inventory');
CkHttpRequest_AddHeader(req,'Accept','application/xml');

// 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);

CkHttpRequest_AddHeader(req,'WM_SVC.NAME','Walmart Marketplace');
CkHttpRequest_AddHeader(req,'WM_QOS.CORRELATION_ID',CkJsonObject__stringOf(json,'correlation_id'));
CkHttpRequest_AddHeader(req,'WM_SEC.TIMESTAMP',CkJsonObject__stringOf(json,'timestamp'));
CkHttpRequest_AddHeader(req,'WM_SEC.AUTH_SIGNATURE',CkJsonObject__stringOf(json,'signature'));
CkHttpRequest_AddHeader(req,'WM_CONSUMER.ID',wmConsumerId);
//  Note: Make sure to replace "WALMART_CHANNEL_TYPE" with the actual value for your seller account...
CkHttpRequest_AddHeader(req,'WM_CONSUMER.CHANNEL.TYPE','WALMART_CHANNEL_TYPE');

// The body of the POST will contain XML.  In this example, we'll load the XML
// from a file.  The XML contains inventory data that looks something like this:

// <InventoryFeed xmlns="http://walmart.com/">
//   <InventoryHeader>
//       <version>1.4</version>
//   </InventoryHeader>
//   <inventory>
//       <sku>1068155</sku>
//       <quantity>
//           <unit>EACH</unit>
//           <amount>10</amount>
//       </quantity>
//       <fulfillmentLagTime>1</fulfillmentLagTime>
//   </inventory>
//   <inventory>
//       <sku>10210321</sku>
//       <quantity>
//           <unit>EACH</unit>
//           <amount>20</amount>
//       </quantity>
//       <fulfillmentLagTime>3</fulfillmentLagTime>
//   </inventory>
// </InventoryFeed>

success := CkHttpRequest_AddFileForUpload2(req,'inventory','qa_data/walmart/inventory.xml','application/xml');
if (success <> True) then
  begin
    Memo1.Lines.Add(CkHttpRequest__lastErrorText(req));
    Exit;
  end;

http := CkHttp_Create();
resp := CkHttp_SynchronousRequest(http,'marketplace.walmartapis.com',443,True,req);
if (CkHttp_getLastMethodSuccess(http) <> True) then
  begin
    Memo1.Lines.Add(CkHttp__lastErrorText(http));
    Exit;
  end;

xml := CkXml_Create();
CkXml_LoadXml(xml,CkHttpResponse__bodyStr(resp));

// A successful response should have a 200 response status
if (CkHttpResponse_getStatusCode(resp) <> 200) then
  begin
    Memo1.Lines.Add(CkXml__getXml(xml));
    Memo1.Lines.Add('Response Status Code: ' + IntToStr(CkHttpResponse_getStatusCode(resp)));
    Memo1.Lines.Add('Failed.');
    CkHttpResponse_Dispose(resp);
    Exit;
  end;

CkHttpResponse_Dispose(resp);

// Show the XML response..
Memo1.Lines.Add(CkXml__getXml(xml));
Memo1.Lines.Add('--');
Memo1.Lines.Add('Success!');

CkAuthUtil_Dispose(authUtil);
CkHttpRequest_Dispose(req);
CkJsonObject_Dispose(json);
CkHttp_Dispose(http);
CkXml_Dispose(xml);

end;