(Delphi DLL) MWS List Orders by Next Token (Amazon Marketplace Web Service)

Returns the next page of orders using the NextToken parameter.

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.

// See MWS List Orders By Next Token for additional details 

// We need to send a GET request like this:

// https://mws.amazonservices.jp/Orders/2013-09-01
//   ?AWSAccessKeyId=0PB842EXAMPLE7N4ZTR2
//   &Action=ListOrdersByNextToken
//   &MWSAuthToken=amzn.mws.4ea38b7b-f563-7709-4bae-87aeaEXAMPLE
//   &SellerId=A2986ZQ066CH2F
//   &Signature=ZQLpf8vEXAMPLE0iC265pf18n0%3D
//   &SignatureVersion=2
//   &SignatureMethod=HmacSHA256
//   &NextToken=2YgYW55IGNhcm5hbCBwbGVhc3VyZS4%3D
//   &Timestamp=2017-02-05T18%3A12%3A21.687Z
//   &Version=2013-09-01

rest := CkRest_Create();

// 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,'NextToken','THE_NEXT_TOKEN_FROM_THE_PREVIOUS_REPLY');
CkRest_AddQueryParam(rest,'Action','ListOrdersByNextToken');
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;