(Delphi ActiveX) Amazon SP-API Get Orders

See more Amazon SP-API Examples

Demonstrates Amazon SP-API Sellers API -- get orders. Returns orders created or updated during the time frame indicated by the specified parameters.

For more information, see https://developer-docs.amazon.com/sp-api/docs/orders-api-v0-reference#getorders

Chilkat for Delphi Downloads Chilkat ActiveX DLL for Delphi Chilkat non-ActiveX DLL for Delphi * The examples here use the ActiveX DLL.

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB;

...

procedure TForm1.Button1Click(Sender: TObject);
var
authAws: TChilkatAuthAws;
rest: TChilkatRest;
bTls: Integer;
port: Integer;
bAutoReconnect: Integer;
success: Integer;
jsonToken: TChilkatJsonObject;
rdt_token: WideString;
sbResponse: TChilkatStringBuilder;
uri: WideString;
statusCode: Integer;
json: TChilkatJsonObject;
AmazonOrderId: WideString;
PurchaseDate: WideString;
LastUpdateDate: WideString;
OrderStatus: WideString;
FulfillmentChannel: WideString;
SalesChannel: WideString;
ShipServiceLevel: WideString;
CurrencyCode: WideString;
Amount: WideString;
NumberOfItemsShipped: Integer;
NumberOfItemsUnshipped: Integer;
PaymentMethod: WideString;
IsReplacementOrder: Integer;
MarketplaceId: WideString;
ShipmentServiceLevelCategory: WideString;
OrderType: WideString;
EarliestShipDate: WideString;
LatestShipDate: WideString;
EarliestDeliveryDate: WideString;
LatestDeliveryDate: WideString;
IsBusinessOrder: Integer;
IsPrime: Integer;
IsGlobalExpressEnabled: Integer;
IsPremiumOrder: Integer;
IsSoldByAB: Integer;
IsIBA: Integer;
Name: WideString;
AddressLine1: WideString;
City: WideString;
StateOrRegion: WideString;
PostalCode: WideString;
CountryCode: WideString;
Phone: WideString;
AddressType: WideString;
FulfillmentSupplySourceId: WideString;
IsISPU: Integer;
IsAccessPointOrder: Integer;
HasAutomatedShippingSettings: Integer;
EasyShipShipmentStatus: WideString;
ElectronicInvoiceStatus: WideString;
j: Integer;
count_j: Integer;
strVal: WideString;
CreatedBefore: WideString;
i: Integer;
count_i: Integer;

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

// IMPORTANT:
// You'll need to make changes to use values specific to your own region and account.
// 
// Here is a list of values you'll need to change or provide:
// 
// 1) The access key. Change AWS_ACCESS_KEY to your actual access key.
// 2) The secret key. Change AWS_SECRET_KEY to your actual access key.
// 3) Your region.  Change "ew-west-1" to your region.
// 4) The domain to which you connect.  Change sandbox.sellingpartnerapi-eu.amazon.com to non-sandbox by removing the "sandbox." 
//    and change the "-eu" part of the domain to your region. See https://developer-docs.amazon.com/sp-api/docs/sp-api-endpoints
// 5) Use the restricted data token (RDT) obtained from your code that previously obtained the RDT.
// 	If you saved the RDT to a file, update the relative file path "qa_data/tokens/sp_api_rdt_token.json" to your actual file path.
// 6) Update your Marketplace ID(s), such as ATVPDKIKX0DER
// 7) If using the non-sandbox, change the CreatedAfter from "TEST_CASE_200" to an actual date, such as "2022-12-25"

authAws := TChilkatAuthAws.Create(Self);
authAws.AccessKey := 'AWS_ACCESS_KEY';
authAws.SecretKey := 'AWS_SECRET_KEY';
authAws.ServiceName := 'execute-api';
// Use the region that is correct for your needs.
authAws.Region := 'eu-west-1';

rest := TChilkatRest.Create(Self);
bTls := 1;
port := 443;
bAutoReconnect := 1;
// Make sure to use the correct domain.
// This example is using the sandbox
success := rest.Connect('sandbox.sellingpartnerapi-eu.amazon.com',port,bTls,bAutoReconnect);
if (success = 0) then
  begin
    Memo1.Lines.Add(rest.LastErrorText);
    Exit;
  end;

success := rest.SetAuthAws(authAws.ControlInterface);

// Here's the example to get the RDT access token: Get SP-API Restricted Data Token

// Load the previously obtained RDT access token.
// See Fetch SP-API RDT Access Token
jsonToken := TChilkatJsonObject.Create(Self);
success := jsonToken.LoadFile('qa_data/tokens/sp_api_rdt_token.json');
if (success = 0) then
  begin
    Memo1.Lines.Add('Failed to load RDT access token.');
    Exit;
  end;

// Add the x-amz-access-token request header.
rdt_token := jsonToken.StringOf('restrictedDataToken');
rest.ClearAllHeaders();
rest.AddHeader('x-amz-access-token',rdt_token);

// Indicate the marketplace IDs.  Use the marketplace ID for your needs. See https://developer-docs.amazon.com/sp-api/docs/marketplace-ids
rest.ClearAllQueryParams();
// When using the sandbox, use these params literally and exactly has shown here:
rest.AddQueryParam('MarketplaceIds','ATVPDKIKX0DER');
rest.AddQueryParam('CreatedAfter','TEST_CASE_200');

sbResponse := TChilkatStringBuilder.Create(Self);
uri := '/orders/v0/orders';
success := rest.FullRequestNoBodySb('GET',uri,sbResponse.ControlInterface);
if (success = 0) then
  begin
    Memo1.Lines.Add(rest.LastErrorText);
    Exit;
  end;

// Examine the response status.
statusCode := rest.ResponseStatusCode;
if (statusCode <> 200) then
  begin
    Memo1.Lines.Add('Response status text: ' + rest.ResponseStatusText);
    Memo1.Lines.Add('Response body: ');
    Memo1.Lines.Add(sbResponse.GetAsString());
    Memo1.Lines.Add('Failed.');
    Exit;
  end;

Memo1.Lines.Add(sbResponse.GetAsString());

// If successful, gets a JSON response such as the following:

// {
//   "payload": {
//     "CreatedBefore": "1.569521782042E9",
//     "Orders": [
//       {
//         "AmazonOrderId": "902-1845936-5435065",
//         "PurchaseDate": "1970-01-19T03:58:30Z",
//         "LastUpdateDate": "1970-01-19T03:58:32Z",
//         "OrderStatus": "Unshipped",
//         "FulfillmentChannel": "MFN",
//         "SalesChannel": "Amazon.com",
//         "ShipServiceLevel": "Std US D2D Dom",
//         "OrderTotal": {
//           "CurrencyCode": "USD",
//           "Amount": "11.01"
//         },
//         "NumberOfItemsShipped": 0,
//         "NumberOfItemsUnshipped": 1,
//         "PaymentMethod": "Other",
//         "PaymentMethodDetails": [
//           "Standard"
//         ],
//         "IsReplacementOrder": false,
//         "MarketplaceId": "ATVPDKIKX0DER",
//         "ShipmentServiceLevelCategory": "Standard",
//         "OrderType": "StandardOrder",
//         "EarliestShipDate": "1970-01-19T03:59:27Z",
//         "LatestShipDate": "1970-01-19T04:05:13Z",
//         "EarliestDeliveryDate": "1970-01-19T04:06:39Z",
//         "LatestDeliveryDate": "1970-01-19T04:15:17Z",
//         "IsBusinessOrder": false,
//         "IsPrime": false,
//         "IsGlobalExpressEnabled": false,
//         "IsPremiumOrder": false,
//         "IsSoldByAB": false,
//         "IsIBA": false,
//         "DefaultShipFromLocationAddress": {
//           "Name": "MFNIntegrationTestMerchant",
//           "AddressLine1": "2201 WESTLAKE AVE",
//           "City": "SEATTLE",
//           "StateOrRegion": "WA",
//           "PostalCode": "98121-2778",
//           "CountryCode": "US",
//           "Phone": "+1 480-386-0930 ext. 73824",
//           "AddressType": "Commercial"
//         },
//         "FulfillmentInstruction": {
//           "FulfillmentSupplySourceId": "sampleSupplySourceId"
//         },
//         "IsISPU": false,
//         "IsAccessPointOrder": false,
//         "AutomatedShippingSettings": {
//           "HasAutomatedShippingSettings": false
//         },
//         "EasyShipShipmentStatus": "PendingPickUp",
//         "ElectronicInvoiceStatus": "NotRequired"
//       },
//       {
//         "AmazonOrderId": "902-8745147-1934268",
//         "PurchaseDate": "1970-01-19T03:58:30Z",
//         "LastUpdateDate": "1970-01-19T03:58:32Z",
//         "OrderStatus": "Unshipped",
//         "FulfillmentChannel": "MFN",
//         "SalesChannel": "Amazon.com",
//         "ShipServiceLevel": "Std US D2D Dom",
//         "OrderTotal": {
//           "CurrencyCode": "USD",
//           "Amount": "11.01"
//         },
//         "NumberOfItemsShipped": 0,
//         "NumberOfItemsUnshipped": 1,
//         "PaymentMethod": "Other",
//         "PaymentMethodDetails": [
//           "Standard"
//         ],
//         "IsReplacementOrder": false,
//         "MarketplaceId": "ATVPDKIKX0DER",
//         "ShipmentServiceLevelCategory": "Standard",
//         "OrderType": "StandardOrder",
//         "EarliestShipDate": "1970-01-19T03:59:27Z",
//         "LatestShipDate": "1970-01-19T04:05:13Z",
//         "EarliestDeliveryDate": "1970-01-19T04:06:39Z",
//         "LatestDeliveryDate": "1970-01-19T04:15:17Z",
//         "IsBusinessOrder": false,
//         "IsPrime": false,
//         "IsAccessPointOrder": false,
//         "IsGlobalExpressEnabled": false,
//         "IsPremiumOrder": false,
//         "IsSoldByAB": false,
//         "IsIBA": false,
//         "EasyShipShipmentStatus": "PendingPickUp",
//         "ElectronicInvoiceStatus": "NotRequired"
//       }
//     ]
//   }
// }

// Use this online tool to generate parsing code from sample JSON: 
// Generate Parsing Code from JSON

json := TChilkatJsonObject.Create(Self);

json.LoadSb(sbResponse.ControlInterface);

CreatedBefore := json.StringOf('payload.CreatedBefore');
i := 0;
count_i := json.SizeOfArray('payload.Orders');
while i < count_i do
  begin
    json.I := i;
    AmazonOrderId := json.StringOf('payload.Orders[i].AmazonOrderId');
    PurchaseDate := json.StringOf('payload.Orders[i].PurchaseDate');
    LastUpdateDate := json.StringOf('payload.Orders[i].LastUpdateDate');
    OrderStatus := json.StringOf('payload.Orders[i].OrderStatus');
    FulfillmentChannel := json.StringOf('payload.Orders[i].FulfillmentChannel');
    SalesChannel := json.StringOf('payload.Orders[i].SalesChannel');
    ShipServiceLevel := json.StringOf('payload.Orders[i].ShipServiceLevel');
    CurrencyCode := json.StringOf('payload.Orders[i].OrderTotal.CurrencyCode');
    Amount := json.StringOf('payload.Orders[i].OrderTotal.Amount');
    NumberOfItemsShipped := json.IntOf('payload.Orders[i].NumberOfItemsShipped');
    NumberOfItemsUnshipped := json.IntOf('payload.Orders[i].NumberOfItemsUnshipped');
    PaymentMethod := json.StringOf('payload.Orders[i].PaymentMethod');
    IsReplacementOrder := json.BoolOf('payload.Orders[i].IsReplacementOrder');
    MarketplaceId := json.StringOf('payload.Orders[i].MarketplaceId');
    ShipmentServiceLevelCategory := json.StringOf('payload.Orders[i].ShipmentServiceLevelCategory');
    OrderType := json.StringOf('payload.Orders[i].OrderType');
    EarliestShipDate := json.StringOf('payload.Orders[i].EarliestShipDate');
    LatestShipDate := json.StringOf('payload.Orders[i].LatestShipDate');
    EarliestDeliveryDate := json.StringOf('payload.Orders[i].EarliestDeliveryDate');
    LatestDeliveryDate := json.StringOf('payload.Orders[i].LatestDeliveryDate');
    IsBusinessOrder := json.BoolOf('payload.Orders[i].IsBusinessOrder');
    IsPrime := json.BoolOf('payload.Orders[i].IsPrime');
    IsGlobalExpressEnabled := json.BoolOf('payload.Orders[i].IsGlobalExpressEnabled');
    IsPremiumOrder := json.BoolOf('payload.Orders[i].IsPremiumOrder');
    IsSoldByAB := json.BoolOf('payload.Orders[i].IsSoldByAB');
    IsIBA := json.BoolOf('payload.Orders[i].IsIBA');
    Name := json.StringOf('payload.Orders[i].DefaultShipFromLocationAddress.Name');
    AddressLine1 := json.StringOf('payload.Orders[i].DefaultShipFromLocationAddress.AddressLine1');
    City := json.StringOf('payload.Orders[i].DefaultShipFromLocationAddress.City');
    StateOrRegion := json.StringOf('payload.Orders[i].DefaultShipFromLocationAddress.StateOrRegion');
    PostalCode := json.StringOf('payload.Orders[i].DefaultShipFromLocationAddress.PostalCode');
    CountryCode := json.StringOf('payload.Orders[i].DefaultShipFromLocationAddress.CountryCode');
    Phone := json.StringOf('payload.Orders[i].DefaultShipFromLocationAddress.Phone');
    AddressType := json.StringOf('payload.Orders[i].DefaultShipFromLocationAddress.AddressType');
    FulfillmentSupplySourceId := json.StringOf('payload.Orders[i].FulfillmentInstruction.FulfillmentSupplySourceId');
    IsISPU := json.BoolOf('payload.Orders[i].IsISPU');
    IsAccessPointOrder := json.BoolOf('payload.Orders[i].IsAccessPointOrder');
    HasAutomatedShippingSettings := json.BoolOf('payload.Orders[i].AutomatedShippingSettings.HasAutomatedShippingSettings');
    EasyShipShipmentStatus := json.StringOf('payload.Orders[i].EasyShipShipmentStatus');
    ElectronicInvoiceStatus := json.StringOf('payload.Orders[i].ElectronicInvoiceStatus');
    j := 0;
    count_j := json.SizeOfArray('payload.Orders[i].PaymentMethodDetails');
    while j < count_j do
      begin
        json.J := j;
        strVal := json.StringOf('payload.Orders[i].PaymentMethodDetails[j]');
        j := j + 1;
      end;

    i := i + 1;
  end;

Memo1.Lines.Add('Success!');
end;