Pascal (Lazarus/Delphi)

eBay -- Upload Bulk Data using FileTransferService

See more eBay Examples

Demonstrates how to upload your data file using the eBay File Transfer API. 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.HttpRequest,
  Chilkat.Xml,
  Chilkat.HttpResponse,
  Chilkat.StringBuilder;

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

procedure RunDemo;
var
  success: Boolean;
  accessToken: string;
  http: THttp;
  apiCall: string;
  fileAttachmentUuid: string;
  xmlUuid: string;
  req: THttpRequest;
  sbContentType: TStringBuilder;
  replaceCount: Integer;
  pathToFileOnDisk1: string;
  pathToFileOnDisk2: string;
  resp: THttpResponse;
  xml: TXml;

begin
  success := False;

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

  //  Use a previously obtained access token.  The token should look something like this:
  //  "AgAAAA**AQA ..."
  accessToken := 'EBAY_ACCESS_TOKEN';

  http := THttp.Create;

  apiCall := 'uploadFile';
  fileAttachmentUuid := '<urn:uuid:bb47b86a237311e793ae92361f002671>';
  xmlUuid := '<urn:uuid:bb47b766237311e793ae92361f002671>';

  req := THttpRequest.Create;

  req.HttpVerb := 'POST';
  req.Path := '/FileTransferService';

  sbContentType := TStringBuilder.Create;
  sbContentType.Append('multipart/related; type="application/xop+xml"; start="XMLUUID"; start-info="text/xml"');
  replaceCount := sbContentType.Replace('XMLUUID',xmlUuid);
  req.ContentType := sbContentType.GetAsString();

  req.AddHeader('X-EBAY-SOA-SERVICE-NAME','FileTransferService');
  req.AddHeader('X-EBAY-SOA-OPERATION-NAME',apiCall);
  req.AddHeader('X-EBAY-SOA-SECURITY-TOKEN',accessToken);
  req.AddHeader('X-EBAY-SOA-REQUEST-DATA-FORMAT','XML');
  req.AddHeader('X-EBAY-SOA-RESPONSE-DATA-FORMAT','XML');
  req.AddHeader('User-Agent','AnythingYouWant');

  pathToFileOnDisk1 := 'qa_data/ebay/uploadFileRequest.xml';
  success := req.AddFileForUpload('uploadFileRequest.xml',pathToFileOnDisk1);
  if (success = False) then
    begin
      WriteLn(req.LastErrorText);
      Exit;
    end;

  pathToFileOnDisk2 := 'qa_data/ebay/BulkDataExchangeRequests.gz';
  success := req.AddFileForUpload('BulkDataExchangeRequests.gz',pathToFileOnDisk2);
  if (success = False) then
    begin
      WriteLn(req.LastErrorText);
      Exit;
    end;

  //  Add sub-headers for each file in the request.
  req.AddSubHeader(0,'Content-Type','application/xop+xml; charset=UTF-8; type="text/xml"');
  req.AddSubHeader(0,'Content-Transfer-Encoding','binary');
  req.AddSubHeader(0,'Content-ID',xmlUuid);
  req.AddSubHeader(1,'Content-Type','application/octet-stream');
  req.AddSubHeader(1,'Content-Transfer-Encoding','binary');
  req.AddSubHeader(1,'Content-ID',fileAttachmentUuid);

  resp := THttpResponse.Create;
  success := http.HttpSReq('storage.sandbox.ebay.com',443,True,req,resp);
  if (success = False) then
    begin
      WriteLn(http.LastErrorText);
      Exit;
    end;

  WriteLn('Response status code = ' + resp.StatusCode);

  xml := TXml.Create;
  xml.LoadXml(resp.BodyStr);

  if (resp.StatusCode <> 200) then
    begin
      WriteLn(xml.GetXml());
      WriteLn('Failed.');
      Exit;
    end;

  //  We still may have a failure.  The XML needs to be checked.
  //  A failed response might look like this:

  //  	<?xml version="1.0" encoding="UTF-8" ?>
  //  	<uploadFileResponse xmlns="http://www.ebay.com/marketplace/services">
  //  	    <ack>Failure</ack>
  //  	    <errorMessage>
  //  	        <error>
  //  	            <errorId>1</errorId>
  //  	            <domain>Marketplace</domain>
  //  	            <severity>Error</severity>
  //  	            <category>Application</category>
  //  	            <message>Task Reference Id is invalid</message>
  //  	            <subdomain>FileTransfer</subdomain>
  //  	        </error>
  //  	    </errorMessage>
  //  	    <version>1.1.0</version>
  //  	    <timestamp>2017-04-18T01:05:27.475Z</timestamp>
  //  	</uploadFileResponse>

  //  A successful response looks like this:

  //  	<?xml version="1.0" encoding="UTF-8" ?>
  //  	<uploadFileResponse xmlns="http://www.ebay.com/marketplace/services">
  //  	    <ack>Success</ack>
  //  	    <version>1.1.0</version>
  //  	    <timestamp>2017-04-18T01:22:47.853Z</timestamp>
  //  	</uploadFileResponse>

  WriteLn(xml.GetXml());

  //  Get the "ack" to see if it's "Failure" or "Success"
  if (xml.ChildContentMatches('ack','Success',False)) then
    begin
      WriteLn('Success.');
    end
  else
    begin
      WriteLn('Failure.');
    end;


  http.Free;
  req.Free;
  sbContentType.Free;
  resp.Free;
  xml.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.