(Delphi DLL) 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 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, HttpResponse, JsonObject;

...

procedure TForm1.Button1Click(Sender: TObject);
var
http: HCkHttp;
success: Boolean;
json: HCkJsonObject;
resp: HCkHttpResponse;
sbResponseBody: HCkStringBuilder;
jResp: HCkJsonObject;
respStatusCode: Integer;
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: 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 := CkJsonObject_Create();
CkJsonObject_UpdateString(json,'MPItemFeedHeader.version','3.2.1');
CkJsonObject_UpdateString(json,'MPItem[0].sku','setup_by_ref');
CkJsonObject_UpdateString(json,'MPItem[0].productIdentifiers[0].productIdType','GTIN');
CkJsonObject_UpdateString(json,'MPItem[0].productIdentifiers[0].productId','05518319011365');
CkJsonObject_UpdateString(json,'MPItem[0].MPProduct.category','Electronics');
CkJsonObject_UpdateString(json,'MPItem[0].MPProduct.subCategory','ElectronicsAccessories');
CkJsonObject_UpdateNumber(json,'MPItem[0].MPOffer.price','12.00');
CkJsonObject_UpdateNumber(json,'MPItem[0].MPOffer.shippingWeight.measure','0.5');
CkJsonObject_UpdateString(json,'MPItem[0].MPOffer.shippingWeight.unit','lb');
CkJsonObject_UpdateInt(json,'MPItem[0].MPOffer.productTaxCode',2038710);

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

resp := CkHttp_PostJson3(http,'https://marketplace.walmartapis.com/v3/feeds?feedType=item','application/json',json);
if (CkHttp_getLastMethodSuccess(http) = False) then
  begin
    Memo1.Lines.Add(CkHttp__lastErrorText(http));
    Exit;
  end;

sbResponseBody := CkStringBuilder_Create();
CkHttpResponse_GetBodySb(resp,sbResponseBody);
jResp := CkJsonObject_Create();
CkJsonObject_LoadSb(jResp,sbResponseBody);
CkJsonObject_putEmitCompact(jResp,False);

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

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

// 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 := CkJsonObject__stringOf(jResp,'feedId');

CkHttp_Dispose(http);
CkJsonObject_Dispose(json);
CkStringBuilder_Dispose(sbResponseBody);
CkJsonObject_Dispose(jResp);

end;