Pascal (Lazarus/Delphi)

Merge SP-API JSON Order Arrays

See more Amazon SP-API Examples

Demonstrates how to merge JSON arrays for the case of Amazon SP-API orders. 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.JsonArray,
  Chilkat.JsonObject;

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

procedure RunDemo;
var
  success: Boolean;
  a1: string;
  a2: string;
  json1: TJsonObject;
  json2: TJsonObject;
  jarr1: TJsonArray;
  jarr2: TJsonArray;
  i: Integer;
  numOrders: Integer;
  jOrder: TJsonObject;

begin
  success := False;

  //  Batch 1 File
  a1 := '{"payload": {"Orders": [{"AmazonOrderId": "1","OrderStatus": "Unshipped"},{"AmazonOrderId": "2","OrderStatus": "Unshipped"}]}';

  //  Batch 2 File
  a2 := '{"payload": {"Orders": [{"AmazonOrderId": "3","OrderStatus": "Unshipped"},{"AmazonOrderId": "4","OrderStatus": "Unshipped"}]}';

  //  Required Merged File
  //  {"payload": {"Orders": [{"AmazonOrderId": "1","OrderStatus": "Unshipped"},{"AmazonOrderId": "2","OrderStatus": "Unshipped"},{"AmazonOrderId": "3","OrderStatus": "Unshipped"},{"AmazonOrderId": "4","OrderStatus": "Unshipped"}]}

  success := True;
  json1 := TJsonObject.Create;
  json1.Load(a1);

  json2 := TJsonObject.Create;
  json2.Load(a2);

  //  We're going to add the order records from json2 to json1.
  jarr1 := json1.ArrayOf('payload.Orders');
  jarr2 := json2.ArrayOf('payload.Orders');

  i := 0;
  numOrders := jarr2.Size;
  while (i < numOrders) do
    begin
      jOrder := jarr2.ObjectAt(i);
      //  Assuming non-null return...
      jarr1.AddObjectCopyAt(-1,jOrder);
      i := i + 1;
    end;

  //  Show the merged JSON.
  json1.EmitCompact := False;
  WriteLn(json1.Emit());

  //  Result:

  //  {
  //    "payload": {
  //      "Orders": [
  //        {
  //          "AmazonOrderId": "1",
  //          "OrderStatus": "Unshipped"
  //        },
  //        {
  //          "AmazonOrderId": "2",
  //          "OrderStatus": "Unshipped"
  //        },
  //        {
  //          "AmazonOrderId": "3",
  //          "OrderStatus": "Unshipped"
  //        },
  //        {
  //          "AmazonOrderId": "4",
  //          "OrderStatus": "Unshipped"
  //        }
  //      ]
  //    }
  //  }


  json1.Free;
  json2.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.