(Delphi DLL) Faire - Update Inventory Levels

See more Faire Examples

Update the inventory levels for multiple product options in one request.

For more information, see https://faire.github.io/external-api-docs/#update-inventory-levels

Chilkat for Delphi Downloads Chilkat non-ActiveX DLL for Delphi Chilkat ActiveX DLL for Delphi * The examples here use the non-ActiveX DLL.

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Http, StringBuilder, HttpResponse, JsonObject;

...

procedure TForm1.Button1Click(Sender: TObject);
var
http: HCkHttp;
success: Boolean;
json: HCkJsonObject;
sbRequestBody: HCkStringBuilder;
resp: HCkHttpResponse;
sbResponseBody: HCkStringBuilder;
jResp: HCkJsonObject;
respStatusCode: Integer;
id: PWideChar;
product_id: PWideChar;
active: Boolean;
deleted: Boolean;
name: PWideChar;
sku: PWideChar;
available_quantity: Integer;
created_at: PWideChar;
updated_at: PWideChar;
retail_price_cents: Integer;
wholesale_price_cents: Integer;
backordered_until: PWideChar;
j: Integer;
count_j: Integer;
value: PWideChar;
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 := CkHttp_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 := CkJsonObject_Create();
CkJsonObject_UpdateString(json,'inventories[0].sku','vanilla-candle');
CkJsonObject_UpdateInt(json,'inventories[0].current_quantity',24);
CkJsonObject_UpdateBool(json,'inventories[0].discontinued',False);
CkJsonObject_UpdateNull(json,'inventories[0].backordered_until');
CkJsonObject_UpdateString(json,'inventories[1].sku','cinnamon-candle');
CkJsonObject_UpdateInt(json,'inventories[1].current_quantity',0);
CkJsonObject_UpdateBool(json,'inventories[1].discontinued',False);
CkJsonObject_UpdateString(json,'inventories[1].backordered_until','20190314T000915.000Z');
CkJsonObject_UpdateString(json,'inventories[2].sku','fall-candle');
CkJsonObject_UpdateInt(json,'inventories[2].current_quantity',0);
CkJsonObject_UpdateBool(json,'inventories[2].discontinued',True);
CkJsonObject_UpdateNull(json,'inventories[2].backordered_until');
CkJsonObject_UpdateString(json,'inventories[3].sku','fall-candle');
CkJsonObject_UpdateNull(json,'inventories[3].current_quantity');
CkJsonObject_UpdateBool(json,'inventories[3].discontinued',False);
CkJsonObject_UpdateNull(json,'inventories[3].backordered_until');

CkHttp_SetRequestHeader(http,'Content-Type','application/json');
CkHttp_SetRequestHeader(http,'X-FAIRE-ACCESS-TOKEN','<access_token>');

sbRequestBody := CkStringBuilder_Create();
CkJsonObject_EmitSb(json,sbRequestBody);

resp := CkHttp_PTextSb(http,'PATCH','https://www.faire.com/api/v1/products/options/inventory-levels',sbRequestBody,'utf-8','application/json',False,False);
if (CkHttp_getLastMethodSuccess(http) = False) then
  begin
    Memo1.Lines.Add(CkHttp__lastErrorText(http));
    Exit;
  end;

sbResponseBody := CkStringBuilder_Create();
CkHttpResponse_GetBodySb(resp,sbResponseBody);

jResp := CkJsonObject_Create();
CkJsonObject_LoadSb(jResp,sbResponseBody);
CkJsonObject_putEmitCompact(jResp,False);

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

respStatusCode := CkHttpResponse_getStatusCode(resp);
Memo1.Lines.Add('Response Status Code = ' + IntToStr(respStatusCode));
if (respStatusCode >= 400) then
  begin
    Memo1.Lines.Add('Response Header:');
    Memo1.Lines.Add(CkHttpResponse__header(resp));
    Memo1.Lines.Add('Failed.');
    CkHttpResponse_Dispose(resp);
    Exit;
  end;
CkHttpResponse_Dispose(resp);

// 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 := CkJsonObject_SizeOfArray(jResp,'options');
while i < count_i do
  begin
    CkJsonObject_putI(jResp,i);
    id := CkJsonObject__stringOf(jResp,'options[i].id');
    product_id := CkJsonObject__stringOf(jResp,'options[i].product_id');
    active := CkJsonObject_BoolOf(jResp,'options[i].active');
    deleted := CkJsonObject_BoolOf(jResp,'options[i].deleted');
    name := CkJsonObject__stringOf(jResp,'options[i].name');
    sku := CkJsonObject__stringOf(jResp,'options[i].sku');
    available_quantity := CkJsonObject_IntOf(jResp,'options[i].available_quantity');
    created_at := CkJsonObject__stringOf(jResp,'options[i].created_at');
    updated_at := CkJsonObject__stringOf(jResp,'options[i].updated_at');
    retail_price_cents := CkJsonObject_IntOf(jResp,'options[i].retail_price_cents');
    wholesale_price_cents := CkJsonObject_IntOf(jResp,'options[i].wholesale_price_cents');
    backordered_until := CkJsonObject__stringOf(jResp,'options[i].backordered_until');
    j := 0;
    count_j := CkJsonObject_SizeOfArray(jResp,'options[i].variations');
    while j < count_j do
      begin
        CkJsonObject_putJ(jResp,j);
        name := CkJsonObject__stringOf(jResp,'options[i].variations[j].name');
        value := CkJsonObject__stringOf(jResp,'options[i].variations[j].value');
        j := j + 1;
      end;

    i := i + 1;
  end;

CkHttp_Dispose(http);
CkJsonObject_Dispose(json);
CkStringBuilder_Dispose(sbRequestBody);
CkStringBuilder_Dispose(sbResponseBody);
CkJsonObject_Dispose(jResp);

end;