Pascal (Lazarus/Delphi)

Shippo List All Orders

See more Shippo Examples

Demonstrates how to list all orders created by sending a GET request to the orders endpoint. 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.StringBuilder,
  Chilkat.JsonObject;

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

procedure RunDemo;
var
  success: Boolean;
  http: THttp;
  sbResponseBody: TStringBuilder;
  jResp: TJsonObject;
  respStatusCode: Integer;
  intVal: Integer;
  j: Integer;
  count_j: Integer;
  object_id: string;
  title: string;
  variant_title: string;
  sku: string;
  quantity: Integer;
  total_price: string;
  currency: string;
  weight: string;
  weight_unit: string;
  manufacture_country: string;
  max_ship_time: string;
  max_delivery_time: string;
  description: string;
  count: Integer;
  next: string;
  previous: string;
  i: Integer;
  count_i: Integer;

begin
  success := False;

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

  http := THttp.Create;

  //  Implements the following CURL command:

  //  curl https://api.goshippo.com/orders/ \
  //      -H "Authorization: ShippoToken <API_Token>"

  http.SetRequestHeader('Authorization','ShippoToken <API_Token>');

  sbResponseBody := TStringBuilder.Create;
  success := http.QuickGetSb('https://api.goshippo.com/orders/',sbResponseBody);
  if (success = False) then
    begin
      WriteLn(http.LastErrorText);
      Exit;
    end;

  jResp := TJsonObject.Create;
  jResp.LoadSb(sbResponseBody);
  jResp.EmitCompact := False;

  WriteLn('Response Body:');
  WriteLn(jResp.Emit());

  respStatusCode := http.LastStatus;
  WriteLn('Response Status Code = ' + respStatusCode);
  if (respStatusCode >= 400) then
    begin
      WriteLn('Response Header:');
      WriteLn(http.LastHeader);
      WriteLn('Failed.');
      Exit;
    end;

  //  Sample JSON response:
  //  (Sample code for parsing the JSON response is shown below)

  //  {
  //    "count": 1382,
  //    "next": "https://api.goshippo.com/orders/?page=2",
  //    "previous": null,
  //    "results": [
  //      {
  //        "object_id": "4f2bc588e4e5446cb3f9fdb7cd5e190b",
  //        "object_owner": "shippotle@goshippo.com",
  //        "order_number": "#1068",
  //        "order_status": "PAID",
  //        "placed_at": "2016-09-23T01:28:12Z",
  //        "to_address": {
  //          "object_created": "2016-09-23T01:38:56Z",
  //          "object_updated": "2016-09-23T01:38:56Z",
  //          "object_id": "d799c2679e644279b59fe661ac8fa488",
  //          "object_owner": "shippotle@goshippo.com",
  //          "is_complete": true,
  //          "validation_results": {},
  //          "name": "Mr Hippo",
  //          "company": "Shippo",
  //          "street1": "215 Clayton St.",
  //          "street2": "",
  //          "city": "San Francisco",
  //          "state": "CA",
  //          "zip": "94117",
  //          "country": "US",
  //          "phone": "15553419393",
  //          "email": "shippotle@goshippo.com",
  //          "is_residential": null,
  //          "metadata": ""
  //        },
  //        "from_address": null,
  //        "line_items": [
  //          {
  //            "object_id": "abf7d5675d744b6ea9fdb6f796b28f28",
  //            "title": "Hippo Magazines",
  //            "variant_title": "",
  //            "sku": "HM-123",
  //            "quantity": 1,
  //            "total_price": "12.10",
  //            "currency": "USD",
  //            "weight": "0.40",
  //            "weight_unit": "lb",
  //            "manufacture_country": null,
  //            "max_ship_time": null,
  //            "max_delivery_time": null,
  //            "description": null
  //          }
  //        ],
  //        "shipping_cost": "12.83",
  //        "shipping_cost_currency": "USD",
  //        "shipping_method": "USPS First Class Package",
  //        "shop_app": "Shippo",
  //        "subtotal_price": "12.10",
  //        "total_price": "24.93",
  //        "total_tax": "0.00",
  //        "currency": "USD",
  //        "transactions": [
  //        ],
  //        "weight": "0.40",
  //        "weight_unit": "lb",
  //        "notes": null
  //      },
  //      ...
  //    ]
  //  }

  //  Sample code for parsing the JSON response...
  //  Use the following online tool to generate parsing code from sample JSON:
  //  Generate Parsing Code from JSON

  count := jResp.IntOf('count');
  next := jResp.StringOf('next');
  previous := jResp.StringOf('previous');
  i := 0;
  count_i := jResp.SizeOfArray('results');
  while i < count_i do
    begin
      jResp.I := i;
      intVal := jResp.IntOf('results[i]');
      j := 0;
      count_j := jResp.SizeOfArray('results[i].line_items');
      while j < count_j do
        begin
          jResp.J := j;
          object_id := jResp.StringOf('results[i].line_items[j].object_id');
          title := jResp.StringOf('results[i].line_items[j].title');
          variant_title := jResp.StringOf('results[i].line_items[j].variant_title');
          sku := jResp.StringOf('results[i].line_items[j].sku');
          quantity := jResp.IntOf('results[i].line_items[j].quantity');
          total_price := jResp.StringOf('results[i].line_items[j].total_price');
          currency := jResp.StringOf('results[i].line_items[j].currency');
          weight := jResp.StringOf('results[i].line_items[j].weight');
          weight_unit := jResp.StringOf('results[i].line_items[j].weight_unit');
          manufacture_country := jResp.StringOf('results[i].line_items[j].manufacture_country');
          max_ship_time := jResp.StringOf('results[i].line_items[j].max_ship_time');
          max_delivery_time := jResp.StringOf('results[i].line_items[j].max_delivery_time');
          description := jResp.StringOf('results[i].line_items[j].description');
          j := j + 1;
        end;

      j := 0;
      count_j := jResp.SizeOfArray('results[i].transactions');
      while j < count_j do
        begin
          jResp.J := j;
          j := j + 1;
        end;

      i := i + 1;
    end;



  http.Free;
  sbResponseBody.Free;
  jResp.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.