(Delphi DLL) Walmart v3 Get a Feed Status

This API returns the feed status for a specified Feed ID.

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

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;
PartnerFeedResponse_xmlns_ns2: PWideChar;
feedId: PWideChar;
feedStatus: PWideChar;
itemsReceived: Integer;
itemsSucceeded: Integer;
itemsFailed: Integer;
itemsProcessing: Integer;
offset: Integer;
limit: Integer;
i: Integer;
count_i: Integer;
martId: Integer;
sku: PWideChar;
index: Integer;
ingestionStatus: 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} \
//   -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}',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"?>
// <PartnerFeedResponse xmlns:ns2="http://walmart.com/">
//     <feedId>1c349f8f-aec0-411f-8454-ead47d12946f</feedId>
//     <feedStatus>PROCESSED</feedStatus>
//     <ingestionErrors/>
//     <itemsReceived>11</itemsReceived>
//     <itemsSucceeded>11</itemsSucceeded>
//     <itemsFailed>0</itemsFailed>
//     <itemsProcessing>0</itemsProcessing>
//     <offset>0</offset>
//     <limit>0</limit>
//     <itemDetails>
//         <itemIngestionStatus>
//             <martId>0</martId>
//             <sku>sku1</sku>
//             <index>8</index>
//             <ingestionStatus>SUCCESS</ingestionStatus>
//             <ingestionErrors/>
//         </itemIngestionStatus>
//         <itemIngestionStatus>
//             <martId>0</martId>
//             <sku>sku2</sku>
//             <index>6</index>
//             <ingestionStatus>SUCCESS</ingestionStatus>
//             <ingestionErrors/>
//         </itemIngestionStatus>
//         <itemIngestionStatus>
//             <martId>0</martId>
//             <sku>sku3</sku>
//             <index>9</index>
//             <ingestionStatus>SUCCESS</ingestionStatus>
//             <ingestionErrors/>
//         </itemIngestionStatus>
//     </itemDetails>
// </PartnerFeedResponse>

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

PartnerFeedResponse_xmlns_ns2 := CkXml__getAttrValue(xmlResponse,'xmlns:ns2');
feedId := CkXml__getChildContent(xmlResponse,'feedId');
feedStatus := CkXml__getChildContent(xmlResponse,'feedStatus');
itemsReceived := CkXml_GetChildIntValue(xmlResponse,'itemsReceived');
itemsSucceeded := CkXml_GetChildIntValue(xmlResponse,'itemsSucceeded');
itemsFailed := CkXml_GetChildIntValue(xmlResponse,'itemsFailed');
itemsProcessing := CkXml_GetChildIntValue(xmlResponse,'itemsProcessing');
offset := CkXml_GetChildIntValue(xmlResponse,'offset');
limit := CkXml_GetChildIntValue(xmlResponse,'limit');
i := 0;
count_i := CkXml_NumChildrenHavingTag(xmlResponse,'itemDetails|itemIngestionStatus');
while i < count_i do
  begin
    CkXml_putI(xmlResponse,i);
    martId := CkXml_GetChildIntValue(xmlResponse,'itemDetails|itemIngestionStatus[i]|martId');
    sku := CkXml__getChildContent(xmlResponse,'itemDetails|itemIngestionStatus[i]|sku');
    index := CkXml_GetChildIntValue(xmlResponse,'itemDetails|itemIngestionStatus[i]|index');
    ingestionStatus := CkXml__getChildContent(xmlResponse,'itemDetails|itemIngestionStatus[i]|ingestionStatus');
    i := i + 1;
  end;

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

end;