Delphi ActiveX

Walmart v3 Get a Feed Status

See more Walmart v3 Examples

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

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB;

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Integer;
http: TChilkatHttp;
sbResponseBody: TChilkatStringBuilder;
xmlResponse: TChilkatXml;
PartnerFeedResponse_xmlns_ns2: WideString;
feedId: WideString;
feedStatus: WideString;
itemsReceived: Integer;
itemsSucceeded: Integer;
itemsFailed: Integer;
itemsProcessing: Integer;
offset: Integer;
limit: Integer;
i: Integer;
count_i: Integer;
martId: Integer;
sku: WideString;
index: Integer;
ingestionStatus: WideString;

begin
success := 0;

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

http := TChilkatHttp.Create(Self);

// 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'

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

sbResponseBody := TChilkatStringBuilder.Create(Self);
success := http.QuickGetSb('https://marketplace.walmartapis.com/v3/feeds/{feedId}',sbResponseBody.ControlInterface);
if (success = 0) then
  begin
    Memo1.Lines.Add(http.LastErrorText);
    Exit;
  end;

xmlResponse := TChilkatXml.Create(Self);
xmlResponse.LoadSb(sbResponseBody.ControlInterface,1);

// 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 := xmlResponse.GetAttrValue('xmlns:ns2');
feedId := xmlResponse.GetChildContent('feedId');
feedStatus := xmlResponse.GetChildContent('feedStatus');
itemsReceived := xmlResponse.GetChildIntValue('itemsReceived');
itemsSucceeded := xmlResponse.GetChildIntValue('itemsSucceeded');
itemsFailed := xmlResponse.GetChildIntValue('itemsFailed');
itemsProcessing := xmlResponse.GetChildIntValue('itemsProcessing');
offset := xmlResponse.GetChildIntValue('offset');
limit := xmlResponse.GetChildIntValue('limit');
i := 0;
count_i := xmlResponse.NumChildrenHavingTag('itemDetails|itemIngestionStatus');
while i < count_i do
  begin
    xmlResponse.I := i;
    martId := xmlResponse.GetChildIntValue('itemDetails|itemIngestionStatus[i]|martId');
    sku := xmlResponse.GetChildContent('itemDetails|itemIngestionStatus[i]|sku');
    index := xmlResponse.GetChildIntValue('itemDetails|itemIngestionStatus[i]|index');
    ingestionStatus := xmlResponse.GetChildContent('itemDetails|itemIngestionStatus[i]|ingestionStatus');
    i := i + 1;
  end;
end;