Pascal (Lazarus/Delphi)
Pascal (Lazarus/Delphi)
Faire - Update Inventory Levels
See more Faire Examples
Update the inventory levels for multiple product options in one request.Chilkat Pascal (Lazarus/Delphi) Downloads
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.HttpResponse,
Chilkat.JsonObject;
// ---------------------------------------------------------------------------
procedure RunDemo;
var
success: Boolean;
http: THttp;
json: TJsonObject;
sbRequestBody: TStringBuilder;
resp: THttpResponse;
sbResponseBody: TStringBuilder;
jResp: TJsonObject;
respStatusCode: Integer;
id: string;
product_id: string;
active: Boolean;
deleted: Boolean;
name: string;
sku: string;
available_quantity: Integer;
created_at: string;
updated_at: string;
retail_price_cents: Integer;
wholesale_price_cents: Integer;
backordered_until: string;
j: Integer;
count_j: Integer;
value: 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 -X PATCH
// -H "Content-Type: application/json"
// -H "X-FAIRE-ACCESS-TOKEN: <access_token>"
// -d '{
// "inventories": [
// {
// "sku": "vanilla-candle",
// "current_quantity": 24,
// "discontinued": false,
// "backordered_until": null
// },
// {
// "sku": "cinnamon-candle",
// "current_quantity": 0,
// "discontinued": false,
// "backordered_until": "20190314T000915.000Z"
// },
// {
// "sku": "fall-candle",
// "current_quantity": 0,
// "discontinued": true,
// "backordered_until": null
// },
// {
// "sku": "fall-candle",
// "current_quantity": null,
// "discontinued": false,
// "backordered_until": null
// }
// ]
// }' https://www.faire.com/api/v1/products/options/inventory-levels
// Use the following online tool to generate HTTP code from a CURL command
// Convert a cURL Command to HTTP Source Code
// Use this online tool to generate code from sample JSON:
// Generate Code to Create JSON
// The following JSON is sent in the request body.
// {
// "inventories": [
// {
// "sku": "vanilla-candle",
// "current_quantity": 24,
// "discontinued": false,
// "backordered_until": null
// },
// {
// "sku": "cinnamon-candle",
// "current_quantity": 0,
// "discontinued": false,
// "backordered_until": "20190314T000915.000Z"
// },
// {
// "sku": "fall-candle",
// "current_quantity": 0,
// "discontinued": true,
// "backordered_until": null
// },
// {
// "sku": "fall-candle",
// "current_quantity": null,
// "discontinued": false,
// "backordered_until": null
// }
// ]
// }
json := TJsonObject.Create;
json.UpdateString('inventories[0].sku','vanilla-candle');
json.UpdateInt('inventories[0].current_quantity',24);
json.UpdateBool('inventories[0].discontinued',False);
json.UpdateNull('inventories[0].backordered_until');
json.UpdateString('inventories[1].sku','cinnamon-candle');
json.UpdateInt('inventories[1].current_quantity',0);
json.UpdateBool('inventories[1].discontinued',False);
json.UpdateString('inventories[1].backordered_until','20190314T000915.000Z');
json.UpdateString('inventories[2].sku','fall-candle');
json.UpdateInt('inventories[2].current_quantity',0);
json.UpdateBool('inventories[2].discontinued',True);
json.UpdateNull('inventories[2].backordered_until');
json.UpdateString('inventories[3].sku','fall-candle');
json.UpdateNull('inventories[3].current_quantity');
json.UpdateBool('inventories[3].discontinued',False);
json.UpdateNull('inventories[3].backordered_until');
http.SetRequestHeader('Content-Type','application/json');
http.SetRequestHeader('X-FAIRE-ACCESS-TOKEN','<access_token>');
sbRequestBody := TStringBuilder.Create;
json.EmitSb(sbRequestBody);
resp := THttpResponse.Create;
success := http.HttpSb('PATCH','https://www.faire.com/api/v1/products/options/inventory-levels',sbRequestBody,'utf-8','application/json',resp);
if (success = False) then
begin
WriteLn(http.LastErrorText);
Exit;
end;
sbResponseBody := TStringBuilder.Create;
resp.GetBodySb(sbResponseBody);
jResp := TJsonObject.Create;
jResp.LoadSb(sbResponseBody);
jResp.EmitCompact := False;
WriteLn('Response Body:');
WriteLn(jResp.Emit());
respStatusCode := resp.StatusCode;
WriteLn('Response Status Code = ' + respStatusCode);
if (respStatusCode >= 400) then
begin
WriteLn('Response Header:');
WriteLn(resp.Header);
WriteLn('Failed.');
Exit;
end;
// Sample JSON response:
// (Sample code for parsing the JSON response is shown below)
// {
// "options": [
// {
// "id": "po_012",
// "product_id": "p_ghi",
// "active": false,
// "deleted": false,
// "name": "Fall Scent",
// "sku": "fall-candle",
// "available_quantity": 0,
// "created_at": "20190313T000915.000Z",
// "updated_at": "20190315T000915.000Z",
// "variations": [
// {
// "name": "Scent",
// "value": "Fall"
// }
// ],
// "retail_price_cents": 599,
// "wholesale_price_cents": 300
// },
// {
// "id": "po_789",
// "product_id": "p_def",
// "active": false,
// "deleted": false,
// "name": "Cinnamon Scent",
// "sku": "cinnamon-candle",
// "available_quantity": 0,
// "created_at": "20190312T000915.000Z",
// "updated_at": "20190315T000915.000Z",
// "backordered_until": "20190314T000915.000Z",
// "variations": [
// {
// "name": "Scent",
// "value": "Cinnamon"
// }
// ],
// "retail_price_cents": 599,
// "wholesale_price_cents": 300
// },
// {
// "id": "po_456",
// "product_id": "p_abc",
// "active": true,
// "deleted": false,
// "name": "Vanilla Scent",
// "sku": "vanilla-candle",
// "available_quantity": 24,
// "created_at": "20190314T000915.000Z",
// "updated_at": "20190315T000915.000Z",
// "variations": [
// {
// "name": "Scent",
// "value": "Vanilla"
// }
// ],
// "retail_price_cents": 599,
// "wholesale_price_cents": 300
// }
// ]
// }
// Sample code for parsing the JSON response...
// Use the following online tool to generate parsing code from sample JSON:
// Generate Parsing Code from JSON
i := 0;
count_i := jResp.SizeOfArray('options');
while i < count_i do
begin
jResp.I := i;
id := jResp.StringOf('options[i].id');
product_id := jResp.StringOf('options[i].product_id');
active := jResp.BoolOf('options[i].active');
deleted := jResp.BoolOf('options[i].deleted');
name := jResp.StringOf('options[i].name');
sku := jResp.StringOf('options[i].sku');
available_quantity := jResp.IntOf('options[i].available_quantity');
created_at := jResp.StringOf('options[i].created_at');
updated_at := jResp.StringOf('options[i].updated_at');
retail_price_cents := jResp.IntOf('options[i].retail_price_cents');
wholesale_price_cents := jResp.IntOf('options[i].wholesale_price_cents');
backordered_until := jResp.StringOf('options[i].backordered_until');
j := 0;
count_j := jResp.SizeOfArray('options[i].variations');
while j < count_j do
begin
jResp.J := j;
name := jResp.StringOf('options[i].variations[j].name');
value := jResp.StringOf('options[i].variations[j].value');
j := j + 1;
end;
i := i + 1;
end;
http.Free;
json.Free;
sbRequestBody.Free;
resp.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.