Delphi DLL

Amazon SP-API Upload Feed

See more Amazon SP-API Examples

Upload a feed document to the feed previously created. Delphi 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
success: Boolean;
sbRequestBody: HCkStringBuilder;
jsonFeedInfo: HCkJsonObject;
url: PWideChar;
http: HCkHttp;
resp: HCkHttpResponse;

begin
success := False;

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

// Load your own feed data file.
sbRequestBody := CkStringBuilder_Create();
success := CkStringBuilder_LoadFile(sbRequestBody,'C:/AAWorkarea/test-despatch-upload.txt','utf-8');
if (success = False) then
  begin
    Memo1.Lines.Add('Failed to load test-despatch-upload.txt.');
    Exit;
  end;

// The SP-API Create Feed example returned JSON such as this.

// {
//   "feedDocumentId": "amzn1.tortuga.4.eu.8fb6f9c4-XXXX-4e7f-824f-XXXXXXXXXXXXX.ZZZZZZZZZZZZZZ",
//   "url": "https://tortuga-prod-eu.s3-eu-west-1.amazonaws.com/%2FNinetyDays/amzn1.tortuga.4.eu.8fb6f9c4-XXXX-4e7f-824f-XXXXXXXXXXXXX.ZZZZZZZZZZZZZZ?X-Amz-Algorithm=AWS4-HMAC-SHA256&X-Amz-Date=20230222T014944Z&X-Amz-SignedHeaders=content-type%3Bhost&X-Amz-Expires=300&X-Amz-Credential=XXXXXXXXXXXXXXXXX%2F20230222%2Feu-west-1%2Fs3%2Faws4_request&X-Amz-Signature=XXXXXXXXXXXXXXXXXXXXXXXXXXXX"
// }

// Load the JSON feed file created by this example:  SP-API Create Feed
jsonFeedInfo := CkJsonObject_Create();
success := CkJsonObject_LoadFile(jsonFeedInfo,'qa_data/json/sp_api_feed_upload_info.json');
if (success = False) then
  begin
    Memo1.Lines.Add(CkJsonObject__lastErrorText(jsonFeedInfo));
    Exit;
  end;

// Get the pre-signed URL
url := CkJsonObject__stringOf(jsonFeedInfo,'url');

// We can use the Chilkat HTTP object because the URL is pre-signed.
// We don't need to add our own AWS authentication because it's already in the pre-signed URL,
// which is only valid for short amount of time.
http := CkHttp_Create();

// NOTE: The string "text/tab-separated-values; charset=UTF-8" must match exactly the contentType specified when creating the feed.
resp := CkHttpResponse_Create();
success := CkHttp_HttpSb(http,'PUT',url,sbRequestBody,'utf-8','text/tab-separated-values; charset=UTF-8',resp);
if (success = False) then
  begin
    Memo1.Lines.Add(CkHttp__lastErrorText(http));
    Exit;
  end;

Memo1.Lines.Add('status code = ' + IntToStr(CkHttpResponse_getStatusCode(resp)));
Memo1.Lines.Add('status text = ' + CkHttpResponse__statusText(resp));
Memo1.Lines.Add('response body:');
Memo1.Lines.Add(CkHttpResponse__bodyStr(resp));

CkStringBuilder_Dispose(sbRequestBody);
CkJsonObject_Dispose(jsonFeedInfo);
CkHttp_Dispose(http);
CkHttpResponse_Dispose(resp);

end;