(Delphi DLL) Walmart v3 Get All Feed Statuses

Returns the feed statuses for all the specified Feed IDs.

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

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
http: HCkHttp;
success: Boolean;
sbResponseBody: HCkStringBuilder;
xmlResponse: HCkXml;
ns2_list_xmlns_ns2: PWideChar;
ns2_totalResults: Integer;
ns2_offset: Integer;
ns2_limit: Integer;
i: Integer;
count_i: Integer;
ns2_feedId: PWideChar;
ns2_feedSource: PWideChar;
ns2_feedType: PWideChar;
ns2_partnerId: Integer;
ns2_itemsReceived: Integer;
ns2_itemsSucceeded: Integer;
ns2_itemsFailed: Integer;
ns2_itemsProcessing: Integer;
ns2_feedStatus: PWideChar;
ns2_feedDate: PWideChar;
ns2_batchId: PWideChar;
ns2_modifiedDtm: PWideChar;
ns2_fileName: PWideChar;
ns2_itemDataErrorCount: Integer;
ns2_itemSystemErrorCount: Integer;
ns2_itemTimeoutErrorCount: Integer;
ns2_channelType: 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 GET \
//   https://marketplace.walmartapis.com/v3/feeds?feedId={feedId}&limit={limit}&offset={offset} \
//   -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: application/xml'
//   -H 'Accept: application/xml'

CkHttp_SetRequestHeader(http,'WM_QOS.CORRELATION_ID','b3261d2d-028a-4ef7-8602-633c23200af6');
CkHttp_SetRequestHeader(http,'Content-Type','application/xml');
CkHttp_SetRequestHeader(http,'WM_SEC.ACCESS_TOKEN','eyJraWQiOiIzZjVhYTFmNS1hYWE5LTQzM.....');
CkHttp_SetRequestHeader(http,'Accept','application/xml');
CkHttp_SetRequestHeader(http,'WM_SVC.NAME','Walmart Marketplace');

sbResponseBody := CkStringBuilder_Create();
success := CkHttp_QuickGetSb(http,'https://marketplace.walmartapis.com/v3/feeds?feedId={feedId}&limit={limit}&offset={offset}',sbResponseBody);
if (success = False) then
  begin
    Memo1.Lines.Add(CkHttp__lastErrorText(http));
    Exit;
  end;

xmlResponse := CkXml_Create();
CkXml_LoadSb(xmlResponse,sbResponseBody,True);

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

// <?xml version="1.0" encoding="UTF-8" standalone="yes"?>
// <ns2:list xmlns:ns2="http://walmart.com/">
//     <ns2:totalResults>2</ns2:totalResults>
//     <ns2:offset>0</ns2:offset>
//     <ns2:limit>50</ns2:limit>
//     <ns2:results>
//         <ns2:feed>
//             <ns2:feedId>12234EGGT564YTEGFA@AQMBAQA</ns2:feedId>
//             <ns2:feedSource>MARKETPLACE_PARTNER</ns2:feedSource>
//             <ns2:feedType>item</ns2:feedType>
//             <ns2:partnerId>1413254255</ns2:partnerId>
//             <ns2:itemsReceived>1</ns2:itemsReceived>
//             <ns2:itemsSucceeded>1</ns2:itemsSucceeded>
//             <ns2:itemsFailed>0</ns2:itemsFailed>
//             <ns2:itemsProcessing>0</ns2:itemsProcessing>
//             <ns2:feedStatus>PROCESSED</ns2:feedStatus>
//             <ns2:feedDate>2018-07-20T21:56:12.605Z</ns2:feedDate>
//             <ns2:batchId>HP_REQUEST_BATCH</ns2:batchId>
//             <ns2:modifiedDtm>2018-07-20T21:56:17.948Z</ns2:modifiedDtm>
//             <ns2:fileName>ItemFeed99_ParadiseCounty_paperback.xml</ns2:fileName>
//             <ns2:itemDataErrorCount>0</ns2:itemDataErrorCount>
//             <ns2:itemSystemErrorCount>0</ns2:itemSystemErrorCount>
//             <ns2:itemTimeoutErrorCount>0</ns2:itemTimeoutErrorCount>
//             <ns2:channelType>WM_TEST</ns2:channelType>
//         </ns2:feed>
//         <ns2:feed>
//             <ns2:feedId>12234EGGT564YTEGFA@AQMBAQA</ns2:feedId>
//             <ns2:feedSource>MARKETPLACE_PARTNER</ns2:feedSource>
//             <ns2:feedType>item</ns2:feedType>
//             <ns2:partnerId>1413254255</ns2:partnerId>
//             <ns2:itemsReceived>1</ns2:itemsReceived>
//             <ns2:itemsSucceeded>1</ns2:itemsSucceeded>
//             <ns2:itemsFailed>0</ns2:itemsFailed>
//             <ns2:itemsProcessing>0</ns2:itemsProcessing>
//             <ns2:feedStatus>PROCESSED</ns2:feedStatus>
//             <ns2:feedDate>2018-07-20T21:56:12.605Z</ns2:feedDate>
//             <ns2:batchId>HP_REQUEST_BATCH</ns2:batchId>
//             <ns2:modifiedDtm>2018-07-20T21:56:17.948Z</ns2:modifiedDtm>
//             <ns2:fileName>ItemFeed99_ParadiseCounty_paperback.xml</ns2:fileName>
//             <ns2:itemDataErrorCount>0</ns2:itemDataErrorCount>
//             <ns2:itemSystemErrorCount>0</ns2:itemSystemErrorCount>
//             <ns2:itemTimeoutErrorCount>0</ns2:itemTimeoutErrorCount>
//             <ns2:channelType>WM_TEST</ns2:channelType>
//         </ns2:feed>
//     </ns2:results>
// </ns2:list>

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

ns2_list_xmlns_ns2 := CkXml__getAttrValue(xmlResponse,'xmlns:ns2');
ns2_totalResults := CkXml_GetChildIntValue(xmlResponse,'ns2:totalResults');
ns2_offset := CkXml_GetChildIntValue(xmlResponse,'ns2:offset');
ns2_limit := CkXml_GetChildIntValue(xmlResponse,'ns2:limit');
i := 0;
count_i := CkXml_NumChildrenHavingTag(xmlResponse,'ns2:results|ns2:feed');
while i < count_i do
  begin
    CkXml_putI(xmlResponse,i);
    ns2_feedId := CkXml__getChildContent(xmlResponse,'ns2:results|ns2:feed[i]|ns2:feedId');
    ns2_feedSource := CkXml__getChildContent(xmlResponse,'ns2:results|ns2:feed[i]|ns2:feedSource');
    ns2_feedType := CkXml__getChildContent(xmlResponse,'ns2:results|ns2:feed[i]|ns2:feedType');
    ns2_partnerId := CkXml_GetChildIntValue(xmlResponse,'ns2:results|ns2:feed[i]|ns2:partnerId');
    ns2_itemsReceived := CkXml_GetChildIntValue(xmlResponse,'ns2:results|ns2:feed[i]|ns2:itemsReceived');
    ns2_itemsSucceeded := CkXml_GetChildIntValue(xmlResponse,'ns2:results|ns2:feed[i]|ns2:itemsSucceeded');
    ns2_itemsFailed := CkXml_GetChildIntValue(xmlResponse,'ns2:results|ns2:feed[i]|ns2:itemsFailed');
    ns2_itemsProcessing := CkXml_GetChildIntValue(xmlResponse,'ns2:results|ns2:feed[i]|ns2:itemsProcessing');
    ns2_feedStatus := CkXml__getChildContent(xmlResponse,'ns2:results|ns2:feed[i]|ns2:feedStatus');
    ns2_feedDate := CkXml__getChildContent(xmlResponse,'ns2:results|ns2:feed[i]|ns2:feedDate');
    ns2_batchId := CkXml__getChildContent(xmlResponse,'ns2:results|ns2:feed[i]|ns2:batchId');
    ns2_modifiedDtm := CkXml__getChildContent(xmlResponse,'ns2:results|ns2:feed[i]|ns2:modifiedDtm');
    ns2_fileName := CkXml__getChildContent(xmlResponse,'ns2:results|ns2:feed[i]|ns2:fileName');
    ns2_itemDataErrorCount := CkXml_GetChildIntValue(xmlResponse,'ns2:results|ns2:feed[i]|ns2:itemDataErrorCount');
    ns2_itemSystemErrorCount := CkXml_GetChildIntValue(xmlResponse,'ns2:results|ns2:feed[i]|ns2:itemSystemErrorCount');
    ns2_itemTimeoutErrorCount := CkXml_GetChildIntValue(xmlResponse,'ns2:results|ns2:feed[i]|ns2:itemTimeoutErrorCount');
    ns2_channelType := CkXml__getChildContent(xmlResponse,'ns2:results|ns2:feed[i]|ns2:channelType');
    i := i + 1;
  end;

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

end;