Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(Delphi ActiveX) Faire - Get All ProductsSee more Faire ExamplesRetrieves a list of products, ordered ascending by updated_at. By default, it only returns non-deleted products. For more information, see https://faire.github.io/external-api-docs/#get-all-products
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; queryParams: TChilkatJsonObject; resp: IChilkatHttpResponse; sbResponseBody: TChilkatStringBuilder; jResp: TChilkatJsonObject; respStatusCode: Integer; id: WideString; brand_id: WideString; short_description: WideString; description: WideString; wholesale_price_cents: Integer; retail_price_cents: Integer; sale_state: WideString; active: Integer; deleted: Integer; name: WideString; unit_multiplier: Integer; taxonomy_typeId: WideString; taxonomy_typeName: WideString; created_at: WideString; updated_at: WideString; j: Integer; count_j: Integer; page: Integer; limit: Integer; 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 -X GET -H "X-FAIRE-ACCESS-TOKEN: <access_token>" -d "limit=50" -d "page=1" https://www.faire.com/api/v1/products // Use the following online tool to generate HTTP code from a CURL command // Convert a cURL Command to HTTP Source Code queryParams := TChilkatJsonObject.Create(Self); queryParams.UpdateInt('limit',50); queryParams.UpdateInt('page',1); http.SetRequestHeader('X-FAIRE-ACCESS-TOKEN','<access_token>'); resp := http.QuickRequestParams('GET','https://www.faire.com/api/v1/products',queryParams.ControlInterface); if (http.LastMethodSuccess = 0) then begin Memo1.Lines.Add(http.LastErrorText); Exit; end; sbResponseBody := TChilkatStringBuilder.Create(Self); resp.GetBodySb(sbResponseBody.ControlInterface); jResp := TChilkatJsonObject.Create(Self); jResp.LoadSb(sbResponseBody.ControlInterface); jResp.EmitCompact := 0; Memo1.Lines.Add('Response Body:'); Memo1.Lines.Add(jResp.Emit()); respStatusCode := resp.StatusCode; Memo1.Lines.Add('Response Status Code = ' + IntToStr(respStatusCode)); if (respStatusCode >= 400) then begin Memo1.Lines.Add('Response Header:'); Memo1.Lines.Add(resp.Header); Memo1.Lines.Add('Failed.'); Exit; end; // Sample JSON response: // (Sample code for parsing the JSON response is shown below) // { // "page": 1, // "limit": 50, // "products": [ // { // "id": "p_123", // "brand_id": "b_abc", // "short_description": "Our candles smell fantastic. Want to know how good? Read our description!", // "description": "Glad you decided to read our description! We have significantly more characters to describe to you just how good our candles smell.", // "wholesale_price_cents": 500, // "retail_price_cents": 1000, // "sale_state": "FOR_SALE", // "active": true, // "deleted": false, // "name": "Faire's fantastic candle", // "unit_multiplier": 8, // "taxonomy_type": { // "id": "tt_23nl3bzl00", // "name": "Votive Candle" // }, // "options": [ // ], // "created_at": "20190314T000915.000Z", // "updated_at": "20190315T000915.000Z" // } // ] // } // Sample code for parsing the JSON response... // Use the following online tool to generate parsing code from sample JSON: // Generate Parsing Code from JSON page := jResp.IntOf('page'); limit := jResp.IntOf('limit'); i := 0; count_i := jResp.SizeOfArray('products'); while i < count_i do begin jResp.I := i; id := jResp.StringOf('products[i].id'); brand_id := jResp.StringOf('products[i].brand_id'); short_description := jResp.StringOf('products[i].short_description'); description := jResp.StringOf('products[i].description'); wholesale_price_cents := jResp.IntOf('products[i].wholesale_price_cents'); retail_price_cents := jResp.IntOf('products[i].retail_price_cents'); sale_state := jResp.StringOf('products[i].sale_state'); active := jResp.BoolOf('products[i].active'); deleted := jResp.BoolOf('products[i].deleted'); name := jResp.StringOf('products[i].name'); unit_multiplier := jResp.IntOf('products[i].unit_multiplier'); taxonomy_typeId := jResp.StringOf('products[i].taxonomy_type.id'); taxonomy_typeName := jResp.StringOf('products[i].taxonomy_type.name'); created_at := jResp.StringOf('products[i].created_at'); updated_at := jResp.StringOf('products[i].updated_at'); j := 0; count_j := jResp.SizeOfArray('products[i].options'); while j < count_j do begin jResp.J := j; j := j + 1; end; i := i + 1; end; end; |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.