(Delphi DLL) Walmart v3 Bulk Item Setup

Updates items in bulk.

For more information, see https://developer.walmart.com/#/apicenter/marketPlace/latest#bulkCreateUpdateItems

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, Http, HttpRequest, Xml, HttpResponse, StringBuilder;

...

procedure TForm1.Button1Click(Sender: TObject);
var
http: HCkHttp;
success: Boolean;
req: HCkHttpRequest;
resp: HCkHttpResponse;
sbResponseBody: HCkStringBuilder;
xmlResponse: HCkXml;
FeedAcknowledgement_xmlns_ns2: PWideChar;
feedId: PWideChar;

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

http := CkHttp_Create();

// Implements the following CURL command:

// curl -X POST \
//   https://marketplace.walmartapis.com/v3/feeds?feedType=item \
//   -H 'WM_SVC.NAME: Walmart Marketplace'
//   -H 'WM_SEC.ACCESS_TOKEN: eyJraWQiOiIzZjVhYTFmNS1hYWE5LTQzM.....'
//   -H 'WM_QOS.CORRELATION_ID: b3261d2d-028a-4ef7-8602-633c23200af6'
//   -H 'Content-Type: multipart/form-data'
//   -H 'Accept: application/xml'
//   -F feed=@qa_data/walmart/itemFeed.xml

req := CkHttpRequest_Create();
CkHttpRequest_putHttpVerb(req,'POST');
CkHttpRequest_putPath(req,'/v3/feeds?feedType=item');
CkHttpRequest_putContentType(req,'multipart/form-data');
success := CkHttpRequest_AddFileForUpload2(req,'feed','qa_data/walmart/itemFeed.xml','application/xml');

CkHttpRequest_AddHeader(req,'WM_QOS.CORRELATION_ID','b3261d2d-028a-4ef7-8602-633c23200af6');
CkHttpRequest_AddHeader(req,'Expect','100-continue');
CkHttpRequest_AddHeader(req,'Content-Type','multipart/form-data');
CkHttpRequest_AddHeader(req,'WM_SEC.ACCESS_TOKEN','eyJraWQiOiIzZjVhYTFmNS1hYWE5LTQzM.....');
CkHttpRequest_AddHeader(req,'Accept','application/xml');
CkHttpRequest_AddHeader(req,'WM_SVC.NAME','Walmart Marketplace');

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

sbResponseBody := CkStringBuilder_Create();
CkHttpResponse_GetBodySb(resp,sbResponseBody);
CkHttpResponse_Dispose(resp);

xmlResponse := CkXml_Create();
CkXml_LoadSb(xmlResponse,sbResponseBody,True);
Memo1.Lines.Add(CkXml__getXml(xmlResponse));

// Sample XML response:
// (Sample code for parsing the XML response is shown below)

// <?xml version="1.0" encoding="UTF-8" standalone="yes"?>
// <FeedAcknowledgement xmlns:ns2="http://walmart.com/">
//     <feedId>E9C04D1FFD99479FBC1341D56DD5F930@AQMB_wA</feedId>
// </FeedAcknowledgement>

// Sample code for parsing the XML response...
// Use the following online tool to generate parsing code from sample XML:
// Generate Parsing Code from XML

FeedAcknowledgement_xmlns_ns2 := CkXml__getAttrValue(xmlResponse,'xmlns:ns2');
feedId := CkXml__getChildContent(xmlResponse,'feedId');

CkHttp_Dispose(http);
CkHttpRequest_Dispose(req);
CkStringBuilder_Dispose(sbResponseBody);
CkXml_Dispose(xmlResponse);

end;