Delphi ActiveX

Shopify Get all products, showing only some attributes

See more Shopify Examples

Get all products, showing only some attributes Delphi ActiveX

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
success: Integer;
rest: TChilkatRest;
sbJson: TChilkatStringBuilder;
json: TChilkatJsonObject;
i: Integer;
count_i: Integer;
id: Integer;
title: WideString;
j: Integer;
count_j: Integer;
product_id: Integer;
position: Integer;
created_at: WideString;
updated_at: WideString;
width: Integer;
height: Integer;
src: WideString;
k: Integer;
count_k: Integer;
intVal: Integer;

begin
success := 0;

rest := TChilkatRest.Create(Self);

rest.SetAuthBasic('SHOPIFY_PRIVATE_API_KEY','SHOPIFY_PRIVATE_API_KEY');

success := rest.Connect('chilkat.myshopify.com',443,1,1);
if (success <> 1) then
  begin
    Memo1.Lines.Add(rest.LastErrorText);
    Exit;
  end;

sbJson := TChilkatStringBuilder.Create(Self);
success := rest.FullRequestNoBodySb('GET','/admin/products.json?fields=id,images,title',sbJson.ControlInterface);
if (success <> 1) then
  begin
    Memo1.Lines.Add(rest.LastErrorText);
    Exit;
  end;

if (rest.ResponseStatusCode <> 200) then
  begin
    Memo1.Lines.Add('Received error response code: ' + IntToStr(rest.ResponseStatusCode));
    Memo1.Lines.Add('Response body:');
    Memo1.Lines.Add(sbJson.GetAsString());
    Exit;
  end;

json := TChilkatJsonObject.Create(Self);
json.LoadSb(sbJson.ControlInterface);

// The following code parses the JSON response.
// A sample JSON response is shown below the sample code.

i := 0;
count_i := json.SizeOfArray('products');
while i < count_i do
  begin
    json.I := i;
    id := json.IntOf('products[i].id');
    title := json.StringOf('products[i].title');
    j := 0;
    count_j := json.SizeOfArray('products[i].images');
    while j < count_j do
      begin
        json.J := j;
        id := json.IntOf('products[i].images[j].id');
        product_id := json.IntOf('products[i].images[j].product_id');
        position := json.IntOf('products[i].images[j].position');
        created_at := json.StringOf('products[i].images[j].created_at');
        updated_at := json.StringOf('products[i].images[j].updated_at');
        width := json.IntOf('products[i].images[j].width');
        height := json.IntOf('products[i].images[j].height');
        src := json.StringOf('products[i].images[j].src');
        k := 0;
        count_k := json.SizeOfArray('products[i].images[j].variant_ids');
        while k < count_k do
          begin
            json.K := k;
            intVal := json.IntOf('products[i].images[j].variant_ids[k]');
            k := k + 1;
          end;

        j := j + 1;
      end;

    i := i + 1;
  end;

// A sample JSON response body that is parsed by the above code:

// {
//   "products": [
//     {
//       "id": 632910392,
//       "title": "IPod Nano - 8GB",
//       "images": [
//         {
//           "id": 850703190,
//           "product_id": 632910392,
//           "position": 1,
//           "created_at": "2017-09-22T14:08:02-04:00",
//           "updated_at": "2017-09-22T14:08:02-04:00",
//           "width": 123,
//           "height": 456,
//           "src": "https:\/\/cdn.shopify.com\/s\/files\/1\/0006\/9093\/3842\/products\/ipod-nano.png?v=1506103682",
//           "variant_ids": [
//           ]
//         },
//         {
//           "id": 562641783,
//           "product_id": 632910392,
//           "position": 2,
//           "created_at": "2017-09-22T14:08:02-04:00",
//           "updated_at": "2017-09-22T14:08:02-04:00",
//           "width": 123,
//           "height": 456,
//           "src": "https:\/\/cdn.shopify.com\/s\/files\/1\/0006\/9093\/3842\/products\/ipod-nano-2.png?v=1506103682",
//           "variant_ids": [
//             808950810
//           ]
//         }
//       ]
//     },
//     {
//       "id": 921728736,
//       "title": "IPod Touch 8GB",
//       "images": [
//       ]
//     }
//   ]
// }

Memo1.Lines.Add('Example Completed.');
end;