(Delphi DLL) MWS List Orders (Amazon Marketplace Web Service)

See more Amazon MWS Examples

Send an MWS ListOrders request to return a list of orders created or updated during a time frame.

Important: The Chilkat v9.5.0.75 release accidentally breaks Amazon MWS (not AWS) authentication. If you need MWS with 9.5.0.75, send email to support@chilkatsoft.com for a hotfix, or revert back to v9.5.0.73, or update to a version after 9.5.0.75.

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, Rest;

...

procedure TForm1.Button1Click(Sender: TObject);
var
rest: HCkRest;
bTls: Boolean;
port: Integer;
bAutoReconnect: Boolean;
success: Boolean;
responseXml: PWideChar;

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

rest := CkRest_Create();

// ------------------------------------------------------------
// About using Chilkat with Amazon Marketplace SP-API
// ------------------------------------------------------------

// Connect to the Amazon MWS REST server.
// 
// Make sure to connect to the correct Amazon MWS Endpoint, otherwise
// you'll get an HTTP 401 response code.
// 
// The possible servers are:
// 
// North America (NA) 	https://mws.amazonservices.com
// Europe (EU) 	https://mws-eu.amazonservices.com
// India (IN) 	https://mws.amazonservices.in
// China (CN) 	https://mws.amazonservices.com.cn
// Japan (JP) 	https://mws.amazonservices.jp 
// 
bTls := True;
port := 443;
bAutoReconnect := True;
success := CkRest_Connect(rest,'mws.amazonservices.com',port,bTls,bAutoReconnect);

CkRest_putHost(rest,'mws.amazonservices.com');

// Add query params
CkRest_AddQueryParam(rest,'Action','ListOrders');
CkRest_AddQueryParam(rest,'CreatedAfter','2016-12-31T23:00:00Z');
CkRest_AddQueryParam(rest,'MarketplaceId.Id.1','MWS_MARKETPLACE_ID');
CkRest_AddQueryParam(rest,'SellerId','MWS_SELLER_ID');
CkRest_AddQueryParam(rest,'AWSAccessKeyId','MWS_ACCESS_KEY_ID');
CkRest_AddQueryParam(rest,'SignatureVersion','2');
CkRest_AddQueryParam(rest,'SignatureMethod','HmacSHA256');
CkRest_AddQueryParam(rest,'Version','2013-09-01');

// Add the MWS Signature param.  (Also adds the Timestamp parameter using the curent system date/time.)
CkRest_AddMwsSignature(rest,'POST','/Orders/2013-09-01','mws.amazonservices.com','MWS_SECRET_ACCESS_KEY_ID');

responseXml := CkRest__fullRequestFormUrlEncoded(rest,'POST','/Orders/2013-09-01');
if (CkRest_getLastMethodSuccess(rest) <> True) then
  begin
    Memo1.Lines.Add(CkRest__lastErrorText(rest));
    Exit;
  end;

if (CkRest_getResponseStatusCode(rest) <> 200) then
  begin
    // Examine the request/response to see what happened.
    Memo1.Lines.Add('response status code = ' + IntToStr(CkRest_getResponseStatusCode(rest)));
    Memo1.Lines.Add('response status text = ' + CkRest__responseStatusText(rest));
    Memo1.Lines.Add('response header: ' + CkRest__responseHeader(rest));
    Memo1.Lines.Add('response body: ' + responseXml);
    Memo1.Lines.Add('---');
    Memo1.Lines.Add('LastRequestStartLine: ' + CkRest__lastRequestStartLine(rest));
    Memo1.Lines.Add('LastRequestHeader: ' + CkRest__lastRequestHeader(rest));
  end;

// Examine the XML returned in the response body.
Memo1.Lines.Add(responseXml);
Memo1.Lines.Add('----');
Memo1.Lines.Add('Success.');

CkRest_Dispose(rest);

end;