Delphi DLL

Amazon SP-API Get Feeds

See more Amazon SP-API Examples

Returns feed details for the feeds that match the filters that you specify. Delphi DLL

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, AuthAws, Rest, JsonObject, StringBuilder;

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Boolean;
authAws: HCkAuthAws;
rest: HCkRest;
jsonToken: HCkJsonObject;
lwa_token: PWideChar;
sbResponse: HCkStringBuilder;
path: PWideChar;
statusCode: Integer;
json: HCkJsonObject;
feedId: PWideChar;
feedType: PWideChar;
createdTime: PWideChar;
processingStatus: PWideChar;
processingStartTime: PWideChar;
processingEndTime: PWideChar;
nextToken: PWideChar;
i: Integer;
count_i: Integer;

begin
success := False;

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

authAws := CkAuthAws_Create();
CkAuthAws_putAccessKey(authAws,'AWS_ACCESS_KEY');
CkAuthAws_putSecretKey(authAws,'AWS_SECRET_KEY');
CkAuthAws_putServiceName(authAws,'execute-api');
// Use the region that is correct for your needs.
CkAuthAws_putRegion(authAws,'eu-west-1');

rest := CkRest_Create();
success := CkRest_Connect(rest,'sandbox.sellingpartnerapi-eu.amazon.com',443,True,True);
if (success = False) then
  begin
    Memo1.Lines.Add(CkRest__lastErrorText(rest));
    Exit;
  end;

success := CkRest_SetAuthAws(rest,authAws);

// Load the previously obtained LWA access token.
// See Fetch SP-API LWA Access Token
jsonToken := CkJsonObject_Create();
success := CkJsonObject_LoadFile(jsonToken,'qa_data/tokens/sp_api_lwa_token.json');
if (success = False) then
  begin
    Memo1.Lines.Add('Failed to load LWA access token.');
    Exit;
  end;

// Add the x-amz-access-token request header.
lwa_token := CkJsonObject__stringOf(jsonToken,'access_token');

CkRest_ClearAllHeaders(rest);
CkRest_AddHeader(rest,'x-amz-access-token',lwa_token);

CkRest_ClearAllQueryParams(rest);
CkRest_AddQueryParam(rest,'feedTypes','POST_PRODUCT_DATA');
CkRest_AddQueryParam(rest,'pageSize','10');
CkRest_AddQueryParam(rest,'processingStatuses','CANCELLED,DONE');

sbResponse := CkStringBuilder_Create();
path := '/feeds/2021-06-30/feeds';
success := CkRest_FullRequestNoBodySb(rest,'GET',path,sbResponse);
if (success = False) then
  begin
    Memo1.Lines.Add(CkRest__lastErrorText(rest));
    Exit;
  end;

// Examine the response status.
statusCode := CkRest_getResponseStatusCode(rest);
if (statusCode <> 200) then
  begin
    Memo1.Lines.Add('Response status text: ' + CkRest__responseStatusText(rest));
    Memo1.Lines.Add('Response body: ');
    Memo1.Lines.Add(CkStringBuilder__getAsString(sbResponse));
    Memo1.Lines.Add('Failed.');
    Exit;
  end;

Memo1.Lines.Add(CkStringBuilder__getAsString(sbResponse));

// If successful, gets a JSON response such as the following:

// {
//   "feeds": [
//     {
//       "feedId": "FeedId1",
//       "feedType": "POST_PRODUCT_DATA",
//       "createdTime": "2019-12-11T13:16:24.630Z",
//       "processingStatus": "CANCELLED",
//       "processingStartTime": "2019-12-11T13:16:24.630Z",
//       "processingEndTime": "2019-12-11T13:16:24.630Z"
//     }
//   ],
//   "nextToken": "VGhpcyB0b2tlbiBpcyBvcGFxdWUgYW5kIGludGVudGlvbmFsbHkgb2JmdXNjYXRlZA=="
// }

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

json := CkJsonObject_Create();

CkJsonObject_LoadSb(json,sbResponse);

nextToken := CkJsonObject__stringOf(json,'nextToken');
i := 0;
count_i := CkJsonObject_SizeOfArray(json,'feeds');
while i < count_i do
  begin
    CkJsonObject_putI(json,i);
    feedId := CkJsonObject__stringOf(json,'feeds[i].feedId');
    feedType := CkJsonObject__stringOf(json,'feeds[i].feedType');
    createdTime := CkJsonObject__stringOf(json,'feeds[i].createdTime');
    processingStatus := CkJsonObject__stringOf(json,'feeds[i].processingStatus');
    processingStartTime := CkJsonObject__stringOf(json,'feeds[i].processingStartTime');
    processingEndTime := CkJsonObject__stringOf(json,'feeds[i].processingEndTime');
    i := i + 1;
  end;

Memo1.Lines.Add('Success!');

CkAuthAws_Dispose(authAws);
CkRest_Dispose(rest);
CkJsonObject_Dispose(jsonToken);
CkStringBuilder_Dispose(sbResponse);
CkJsonObject_Dispose(json);

end;