Delphi DLL
Delphi DLL
Shippo List All Orders
See more Shippo Examples
Demonstrates how to list all orders created by sending a GET request to the orders endpoint.Chilkat Delphi DLL Downloads
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Http, StringBuilder, JsonObject;
...
procedure TForm1.Button1Click(Sender: TObject);
var
success: Boolean;
http: HCkHttp;
sbResponseBody: HCkStringBuilder;
jResp: HCkJsonObject;
respStatusCode: Integer;
intVal: Integer;
j: Integer;
count_j: Integer;
object_id: PWideChar;
title: PWideChar;
variant_title: PWideChar;
sku: PWideChar;
quantity: Integer;
total_price: PWideChar;
currency: PWideChar;
weight: PWideChar;
weight_unit: PWideChar;
manufacture_country: PWideChar;
max_ship_time: PWideChar;
max_delivery_time: PWideChar;
description: PWideChar;
count: Integer;
next: PWideChar;
previous: PWideChar;
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 := CkHttp_Create();
// Implements the following CURL command:
// curl https://api.goshippo.com/orders/ \
// -H "Authorization: ShippoToken <API_Token>"
CkHttp_SetRequestHeader(http,'Authorization','ShippoToken <API_Token>');
sbResponseBody := CkStringBuilder_Create();
success := CkHttp_QuickGetSb(http,'https://api.goshippo.com/orders/',sbResponseBody);
if (success = False) then
begin
Memo1.Lines.Add(CkHttp__lastErrorText(http));
Exit;
end;
jResp := CkJsonObject_Create();
CkJsonObject_LoadSb(jResp,sbResponseBody);
CkJsonObject_putEmitCompact(jResp,False);
Memo1.Lines.Add('Response Body:');
Memo1.Lines.Add(CkJsonObject__emit(jResp));
respStatusCode := CkHttp_getLastStatus(http);
Memo1.Lines.Add('Response Status Code = ' + IntToStr(respStatusCode));
if (respStatusCode >= 400) then
begin
Memo1.Lines.Add('Response Header:');
Memo1.Lines.Add(CkHttp__lastHeader(http));
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 := CkJsonObject_IntOf(jResp,'count');
next := CkJsonObject__stringOf(jResp,'next');
previous := CkJsonObject__stringOf(jResp,'previous');
i := 0;
count_i := CkJsonObject_SizeOfArray(jResp,'results');
while i < count_i do
begin
CkJsonObject_putI(jResp,i);
intVal := CkJsonObject_IntOf(jResp,'results[i]');
j := 0;
count_j := CkJsonObject_SizeOfArray(jResp,'results[i].line_items');
while j < count_j do
begin
CkJsonObject_putJ(jResp,j);
object_id := CkJsonObject__stringOf(jResp,'results[i].line_items[j].object_id');
title := CkJsonObject__stringOf(jResp,'results[i].line_items[j].title');
variant_title := CkJsonObject__stringOf(jResp,'results[i].line_items[j].variant_title');
sku := CkJsonObject__stringOf(jResp,'results[i].line_items[j].sku');
quantity := CkJsonObject_IntOf(jResp,'results[i].line_items[j].quantity');
total_price := CkJsonObject__stringOf(jResp,'results[i].line_items[j].total_price');
currency := CkJsonObject__stringOf(jResp,'results[i].line_items[j].currency');
weight := CkJsonObject__stringOf(jResp,'results[i].line_items[j].weight');
weight_unit := CkJsonObject__stringOf(jResp,'results[i].line_items[j].weight_unit');
manufacture_country := CkJsonObject__stringOf(jResp,'results[i].line_items[j].manufacture_country');
max_ship_time := CkJsonObject__stringOf(jResp,'results[i].line_items[j].max_ship_time');
max_delivery_time := CkJsonObject__stringOf(jResp,'results[i].line_items[j].max_delivery_time');
description := CkJsonObject__stringOf(jResp,'results[i].line_items[j].description');
j := j + 1;
end;
j := 0;
count_j := CkJsonObject_SizeOfArray(jResp,'results[i].transactions');
while j < count_j do
begin
CkJsonObject_putJ(jResp,j);
j := j + 1;
end;
i := i + 1;
end;
CkHttp_Dispose(http);
CkStringBuilder_Dispose(sbResponseBody);
CkJsonObject_Dispose(jResp);
end;