Pascal (Lazarus/Delphi)

Amazon SP-API Upload Feed

See more Amazon SP-API Examples

Upload a feed document to the feed previously created. Pascal (Lazarus/Delphi)

program ChilkatDemo;

// Demonstrates using the Chilkat Pascal wrapper via the C bridge DLL.
// Builds as a console application under Lazarus (FPC) or Delphi.

{$IFDEF FPC}
  {$MODE DELPHI}
{$ENDIF}
{$APPTYPE CONSOLE}

uses
  {$IFDEF UNIX}
  cthreads,
  {$ENDIF}
  SysUtils,
  CkDllLoader,
  Chilkat.Http,
  Chilkat.StringBuilder,
  Chilkat.HttpResponse,
  Chilkat.JsonObject;

// ---------------------------------------------------------------------------

procedure RunDemo;
var
  success: Boolean;
  sbRequestBody: TStringBuilder;
  jsonFeedInfo: TJsonObject;
  url: string;
  http: THttp;
  resp: THttpResponse;

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 := TStringBuilder.Create;
  success := sbRequestBody.LoadFile('C:/AAWorkarea/test-despatch-upload.txt','utf-8');
  if (success = False) then
    begin
      WriteLn('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 := TJsonObject.Create;
  success := jsonFeedInfo.LoadFile('qa_data/json/sp_api_feed_upload_info.json');
  if (success = False) then
    begin
      WriteLn(jsonFeedInfo.LastErrorText);
      Exit;
    end;

  //  Get the pre-signed URL
  url := jsonFeedInfo.StringOf('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 := THttp.Create;

  //  NOTE: The string "text/tab-separated-values; charset=UTF-8" must match exactly the contentType specified when creating the feed.
  resp := THttpResponse.Create;
  success := http.HttpSb('PUT',url,sbRequestBody,'utf-8','text/tab-separated-values; charset=UTF-8',resp);
  if (success = False) then
    begin
      WriteLn(http.LastErrorText);
      Exit;
    end;

  WriteLn('status code = ' + resp.StatusCode);
  WriteLn('status text = ' + resp.StatusText);
  WriteLn('response body:');
  WriteLn(resp.BodyStr);


  sbRequestBody.Free;
  jsonFeedInfo.Free;
  http.Free;
  resp.Free;

end;

// ---------------------------------------------------------------------------

begin

  try
    RunDemo;
  except
    on E: Exception do
      WriteLn('Unhandled exception: ', E.ClassName, ': ', E.Message);
  end;

  WriteLn;
  {$IFDEF MSWINDOWS}
  WriteLn('Press Enter to exit...');
  ReadLn;
  {$ENDIF}
end.