(Delphi ActiveX) Walmart v3 Item Setup by Match

Provides a quick and convenient way to set up items by matching your items to existing item content on Walmart.com.

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

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

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
http: TChilkatHttp;
success: Integer;
json: TChilkatJsonObject;
resp: IChilkatHttpResponse;
sbResponseBody: TChilkatStringBuilder;
jResp: TChilkatJsonObject;
respStatusCode: Integer;
feedId: WideString;

begin
// 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 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: application/json'
//   -H 'Accept: application/json'
//   -d '{
//     "MPItemFeedHeader": {
//         "version": "3.2.1"
//     },
//     "MPItem": [
//         {
//             "sku": "setup_by_ref",
//             "productIdentifiers": [
//                 {
//                     "productIdType": "GTIN",
//                     "productId": "05518319011365"
//                 }
//             ],
//             "MPProduct": {
//                 "category": "Electronics",
//                 "subCategory": "ElectronicsAccessories"
//             },
//             "MPOffer": {
//                 "price": 12.00,
//                 "shippingWeight": {
//                     "measure": 0.5,
//                     "unit": "lb"
//                 },
//                 "productTaxCode": 2038710
//             }
//         }
//     ]
// }'

// Use this online tool to generate code from sample JSON:
// Generate Code to Create JSON

// The following JSON is sent in the request body.

// {
//   "MPItemFeedHeader": {
//     "version": "3.2.1"
//   },
//   "MPItem": [
//     {
//       "sku": "setup_by_ref",
//       "productIdentifiers": [
//         {
//           "productIdType": "GTIN",
//           "productId": "05518319011365"
//         }
//       ],
//       "MPProduct": {
//         "category": "Electronics",
//         "subCategory": "ElectronicsAccessories"
//       },
//       "MPOffer": {
//         "price": 12.00,
//         "shippingWeight": {
//           "measure": 0.5,
//           "unit": "lb"
//         },
//         "productTaxCode": 2038710
//       }
//     }
//   ]
// }

json := TChilkatJsonObject.Create(Self);
json.UpdateString('MPItemFeedHeader.version','3.2.1');
json.UpdateString('MPItem[0].sku','setup_by_ref');
json.UpdateString('MPItem[0].productIdentifiers[0].productIdType','GTIN');
json.UpdateString('MPItem[0].productIdentifiers[0].productId','05518319011365');
json.UpdateString('MPItem[0].MPProduct.category','Electronics');
json.UpdateString('MPItem[0].MPProduct.subCategory','ElectronicsAccessories');
json.UpdateNumber('MPItem[0].MPOffer.price','12.00');
json.UpdateNumber('MPItem[0].MPOffer.shippingWeight.measure','0.5');
json.UpdateString('MPItem[0].MPOffer.shippingWeight.unit','lb');
json.UpdateInt('MPItem[0].MPOffer.productTaxCode',2038710);

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

resp := http.PostJson3('https://marketplace.walmartapis.com/v3/feeds?feedType=item','application/json',json.ControlInterface);
if (http.LastMethodSuccess = 0) then
  begin
    Memo1.Lines.Add(http.LastErrorText);
    Exit;
  end;

sbResponseBody := TChilkatStringBuilder.Create(Self);
resp.GetBodySb(sbResponseBody.ControlInterface);
jResp := TChilkatJsonObject.Create(Self);
jResp.LoadSb(sbResponseBody.ControlInterface);
jResp.EmitCompact := 0;

Memo1.Lines.Add('Response Body:');
Memo1.Lines.Add(jResp.Emit());

respStatusCode := resp.StatusCode;
Memo1.Lines.Add('Response Status Code = ' + IntToStr(respStatusCode));
if (respStatusCode >= 400) then
  begin
    Memo1.Lines.Add('Response Header:');
    Memo1.Lines.Add(resp.Header);
    Memo1.Lines.Add('Failed.');

    Exit;
  end;

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

// {
//   "feedId": "BC141881F6BB4B5891F084B225581BF2@AUUBAQA"
// }

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

feedId := jResp.StringOf('feedId');
end;