(Delphi ActiveX) Shippo List All Orders

Demonstrates how to list all orders created by sending a GET request to the orders endpoint.

For more information, see https://goshippo.com/docs/orders/

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
http: TChilkatHttp;
success: Integer;
sbResponseBody: TChilkatStringBuilder;
jResp: TChilkatJsonObject;
respStatusCode: Integer;
intVal: Integer;
j: Integer;
count_j: Integer;
object_id: WideString;
title: WideString;
variant_title: WideString;
sku: WideString;
quantity: Integer;
total_price: WideString;
currency: WideString;
weight: WideString;
weight_unit: WideString;
manufacture_country: WideString;
max_ship_time: WideString;
max_delivery_time: WideString;
description: WideString;
count: Integer;
next: WideString;
previous: WideString;
i: Integer;
count_i: Integer;

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

http := TChilkatHttp.Create(Self);

// Implements the following CURL command:

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

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

sbResponseBody := TChilkatStringBuilder.Create(Self);
success := http.QuickGetSb('https://api.goshippo.com/orders/',sbResponseBody.ControlInterface);
if (success = 0) then
  begin
    Memo1.Lines.Add(http.LastErrorText);
    Exit;
  end;

jResp := TChilkatJsonObject.Create(Self);
jResp.LoadSb(sbResponseBody.ControlInterface);
jResp.EmitCompact := 0;

Memo1.Lines.Add('Response Body:');
Memo1.Lines.Add(jResp.Emit());

respStatusCode := http.LastStatus;
Memo1.Lines.Add('Response Status Code = ' + IntToStr(respStatusCode));
if (respStatusCode >= 400) then
  begin
    Memo1.Lines.Add('Response Header:');
    Memo1.Lines.Add(http.LastHeader);
    Memo1.Lines.Add('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;
end;