(Delphi DLL) Shopify Add a metafield to an existing product

Add a metafield to an existing product

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, StringBuilder, Rest, JsonObject;

...

procedure TForm1.Button1Click(Sender: TObject);
var
rest: HCkRest;
success: Boolean;
jsonReq: HCkJsonObject;
sbReq: HCkStringBuilder;
sbJson: HCkStringBuilder;
json: HCkJsonObject;
productId: Integer;
productTitle: PWideChar;
productBody_html: PWideChar;
productVendor: PWideChar;
productProduct_type: PWideChar;
productCreated_at: PWideChar;
productHandle: PWideChar;
productUpdated_at: PWideChar;
productPublished_at: PWideChar;
productTemplate_suffix: Boolean;
productPublished_scope: PWideChar;
productTags: PWideChar;
productImageId: Integer;
productImageProduct_id: Integer;
productImagePosition: Integer;
productImageCreated_at: PWideChar;
productImageUpdated_at: PWideChar;
productImageWidth: Integer;
productImageHeight: Integer;
productImageSrc: PWideChar;
i: Integer;
count_i: Integer;
id: Integer;
product_id: Integer;
title: PWideChar;
price: PWideChar;
sku: PWideChar;
position: Integer;
grams: Integer;
inventory_policy: PWideChar;
compare_at_price: Boolean;
fulfillment_service: PWideChar;
inventory_management: PWideChar;
option1: PWideChar;
option2: Boolean;
option3: Boolean;
created_at: PWideChar;
updated_at: PWideChar;
taxable: Boolean;
barcode: PWideChar;
image_id: Integer;
inventory_quantity: Integer;
weight: Integer;
weight_unit: PWideChar;
old_inventory_quantity: Integer;
requires_shipping: Boolean;
name: PWideChar;
j: Integer;
count_j: Integer;
strVal: PWideChar;
width: Integer;
height: Integer;
src: PWideChar;
intVal: Integer;

begin
rest := CkRest_Create();

CkRest_SetAuthBasic(rest,'SHOPIFY_PRIVATE_API_KEY','SHOPIFY_PRIVATE_API_KEY');

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

// The following code creates the JSON request body.
// The JSON created by this code is shown below.
jsonReq := CkJsonObject_Create();
CkJsonObject_UpdateNumber(jsonReq,'product.id','632910392');
CkJsonObject_UpdateString(jsonReq,'product.metafields[0].key','new');
CkJsonObject_UpdateString(jsonReq,'product.metafields[0].value','newvalue');
CkJsonObject_UpdateString(jsonReq,'product.metafields[0].value_type','string');
CkJsonObject_UpdateString(jsonReq,'product.metafields[0].namespace','global');

// The JSON request body created by the above code:

// {
//   "product": {
//     "id": 632910392,
//     "metafields": [
//       {
//         "key": "new",
//         "value": "newvalue",
//         "value_type": "string",
//         "namespace": "global"
//       }
//     ]
//   }
// }

sbReq := CkStringBuilder_Create();
CkJsonObject_EmitSb(jsonReq,sbReq);

CkRest_AddHeader(rest,'Content-Type','application/json');

sbJson := CkStringBuilder_Create();
success := CkRest_FullRequestSb(rest,'PUT','/admin/products/#{id}.json',sbReq,sbJson);
if (success <> True) then
  begin
    Memo1.Lines.Add(CkRest__lastErrorText(rest));
    Exit;
  end;

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

json := CkJsonObject_Create();
CkJsonObject_LoadSb(json,sbJson);

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

productId := CkJsonObject_IntOf(json,'product.id');
productTitle := CkJsonObject__stringOf(json,'product.title');
productBody_html := CkJsonObject__stringOf(json,'product.body_html');
productVendor := CkJsonObject__stringOf(json,'product.vendor');
productProduct_type := CkJsonObject__stringOf(json,'product.product_type');
productCreated_at := CkJsonObject__stringOf(json,'product.created_at');
productHandle := CkJsonObject__stringOf(json,'product.handle');
productUpdated_at := CkJsonObject__stringOf(json,'product.updated_at');
productPublished_at := CkJsonObject__stringOf(json,'product.published_at');
productTemplate_suffix := CkJsonObject_IsNullOf(json,'product.template_suffix');
productPublished_scope := CkJsonObject__stringOf(json,'product.published_scope');
productTags := CkJsonObject__stringOf(json,'product.tags');
productImageId := CkJsonObject_IntOf(json,'product.image.id');
productImageProduct_id := CkJsonObject_IntOf(json,'product.image.product_id');
productImagePosition := CkJsonObject_IntOf(json,'product.image.position');
productImageCreated_at := CkJsonObject__stringOf(json,'product.image.created_at');
productImageUpdated_at := CkJsonObject__stringOf(json,'product.image.updated_at');
productImageWidth := CkJsonObject_IntOf(json,'product.image.width');
productImageHeight := CkJsonObject_IntOf(json,'product.image.height');
productImageSrc := CkJsonObject__stringOf(json,'product.image.src');
i := 0;
count_i := CkJsonObject_SizeOfArray(json,'product.variants');
while i < count_i do
  begin
    CkJsonObject_putI(json,i);
    id := CkJsonObject_IntOf(json,'product.variants[i].id');
    product_id := CkJsonObject_IntOf(json,'product.variants[i].product_id');
    title := CkJsonObject__stringOf(json,'product.variants[i].title');
    price := CkJsonObject__stringOf(json,'product.variants[i].price');
    sku := CkJsonObject__stringOf(json,'product.variants[i].sku');
    position := CkJsonObject_IntOf(json,'product.variants[i].position');
    grams := CkJsonObject_IntOf(json,'product.variants[i].grams');
    inventory_policy := CkJsonObject__stringOf(json,'product.variants[i].inventory_policy');
    compare_at_price := CkJsonObject_IsNullOf(json,'product.variants[i].compare_at_price');
    fulfillment_service := CkJsonObject__stringOf(json,'product.variants[i].fulfillment_service');
    inventory_management := CkJsonObject__stringOf(json,'product.variants[i].inventory_management');
    option1 := CkJsonObject__stringOf(json,'product.variants[i].option1');
    option2 := CkJsonObject_IsNullOf(json,'product.variants[i].option2');
    option3 := CkJsonObject_IsNullOf(json,'product.variants[i].option3');
    created_at := CkJsonObject__stringOf(json,'product.variants[i].created_at');
    updated_at := CkJsonObject__stringOf(json,'product.variants[i].updated_at');
    taxable := CkJsonObject_BoolOf(json,'product.variants[i].taxable');
    barcode := CkJsonObject__stringOf(json,'product.variants[i].barcode');
    image_id := CkJsonObject_IntOf(json,'product.variants[i].image_id');
    inventory_quantity := CkJsonObject_IntOf(json,'product.variants[i].inventory_quantity');
    weight := CkJsonObject_IntOf(json,'product.variants[i].weight');
    weight_unit := CkJsonObject__stringOf(json,'product.variants[i].weight_unit');
    old_inventory_quantity := CkJsonObject_IntOf(json,'product.variants[i].old_inventory_quantity');
    requires_shipping := CkJsonObject_BoolOf(json,'product.variants[i].requires_shipping');
    i := i + 1;
  end;

i := 0;
count_i := CkJsonObject_SizeOfArray(json,'product.options');
while i < count_i do
  begin
    CkJsonObject_putI(json,i);
    id := CkJsonObject_IntOf(json,'product.options[i].id');
    product_id := CkJsonObject_IntOf(json,'product.options[i].product_id');
    name := CkJsonObject__stringOf(json,'product.options[i].name');
    position := CkJsonObject_IntOf(json,'product.options[i].position');
    j := 0;
    count_j := CkJsonObject_SizeOfArray(json,'product.options[i].values');
    while j < count_j do
      begin
        CkJsonObject_putJ(json,j);
        strVal := CkJsonObject__stringOf(json,'product.options[i].values[j]');
        j := j + 1;
      end;

    i := i + 1;
  end;

i := 0;
count_i := CkJsonObject_SizeOfArray(json,'product.images');
while i < count_i do
  begin
    CkJsonObject_putI(json,i);
    id := CkJsonObject_IntOf(json,'product.images[i].id');
    product_id := CkJsonObject_IntOf(json,'product.images[i].product_id');
    position := CkJsonObject_IntOf(json,'product.images[i].position');
    created_at := CkJsonObject__stringOf(json,'product.images[i].created_at');
    updated_at := CkJsonObject__stringOf(json,'product.images[i].updated_at');
    width := CkJsonObject_IntOf(json,'product.images[i].width');
    height := CkJsonObject_IntOf(json,'product.images[i].height');
    src := CkJsonObject__stringOf(json,'product.images[i].src');
    j := 0;
    count_j := CkJsonObject_SizeOfArray(json,'product.images[i].variant_ids');
    while j < count_j do
      begin
        CkJsonObject_putJ(json,j);
        intVal := CkJsonObject_IntOf(json,'product.images[i].variant_ids[j]');
        j := j + 1;
      end;

    i := i + 1;
  end;

i := 0;
count_i := CkJsonObject_SizeOfArray(json,'image.product.variant_ids');
while i < count_i do
  begin
    CkJsonObject_putI(json,i);
    i := i + 1;
  end;

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

// {
//   "product": {
//     "id": 632910392,
//     "title": "IPod Nano - 8GB",
//     "body_html": "<p>It's the small iPod with one very big idea: Video. Now the world's most popular music player, available in 4GB and 8GB models, lets you enjoy TV shows, movies, video podcasts, and more. The larger, brighter display means amazing picture quality. In six eye-catching colors, iPod nano is stunning all around. And with models starting at just $149, little speaks volumes.<\/p>",
//     "vendor": "Apple",
//     "product_type": "Cult Products",
//     "created_at": "2017-09-22T14:08:02-04:00",
//     "handle": "ipod-nano",
//     "updated_at": "2017-09-22T14:48:57-04:00",
//     "published_at": "2007-12-31T19:00:00-05:00",
//     "template_suffix": null,
//     "published_scope": "web",
//     "tags": "Emotive, Flash Memory, MP3, Music",
//     "variants": [
//       {
//         "id": 808950810,
//         "product_id": 632910392,
//         "title": "Pink",
//         "price": "199.00",
//         "sku": "IPOD2008PINK",
//         "position": 1,
//         "grams": 567,
//         "inventory_policy": "continue",
//         "compare_at_price": null,
//         "fulfillment_service": "manual",
//         "inventory_management": "shopify",
//         "option1": "Pink",
//         "option2": null,
//         "option3": null,
//         "created_at": "2017-09-22T14:08:02-04:00",
//         "updated_at": "2017-09-22T14:48:57-04:00",
//         "taxable": true,
//         "barcode": "1234_pink",
//         "image_id": 562641783,
//         "inventory_quantity": 10,
//         "weight": 1.25,
//         "weight_unit": "lb",
//         "old_inventory_quantity": 10,
//         "requires_shipping": true
//       },
//       {
//         "id": 49148385,
//         "product_id": 632910392,
//         "title": "Red",
//         "price": "199.00",
//         "sku": "IPOD2008RED",
//         "position": 2,
//         "grams": 567,
//         "inventory_policy": "continue",
//         "compare_at_price": null,
//         "fulfillment_service": "manual",
//         "inventory_management": "shopify",
//         "option1": "Red",
//         "option2": null,
//         "option3": null,
//         "created_at": "2017-09-22T14:08:02-04:00",
//         "updated_at": "2017-09-22T14:08:02-04:00",
//         "taxable": true,
//         "barcode": "1234_red",
//         "image_id": null,
//         "inventory_quantity": 20,
//         "weight": 1.25,
//         "weight_unit": "lb",
//         "old_inventory_quantity": 20,
//         "requires_shipping": true
//       },
//       {
//         "id": 39072856,
//         "product_id": 632910392,
//         "title": "Green",
//         "price": "199.00",
//         "sku": "IPOD2008GREEN",
//         "position": 3,
//         "grams": 567,
//         "inventory_policy": "continue",
//         "compare_at_price": null,
//         "fulfillment_service": "manual",
//         "inventory_management": "shopify",
//         "option1": "Green",
//         "option2": null,
//         "option3": null,
//         "created_at": "2017-09-22T14:08:02-04:00",
//         "updated_at": "2017-09-22T14:08:02-04:00",
//         "taxable": true,
//         "barcode": "1234_green",
//         "image_id": null,
//         "inventory_quantity": 30,
//         "weight": 1.25,
//         "weight_unit": "lb",
//         "old_inventory_quantity": 30,
//         "requires_shipping": true
//       },
//       {
//         "id": 457924702,
//         "product_id": 632910392,
//         "title": "Black",
//         "price": "199.00",
//         "sku": "IPOD2008BLACK",
//         "position": 4,
//         "grams": 567,
//         "inventory_policy": "continue",
//         "compare_at_price": null,
//         "fulfillment_service": "manual",
//         "inventory_management": "shopify",
//         "option1": "Black",
//         "option2": null,
//         "option3": null,
//         "created_at": "2017-09-22T14:08:02-04:00",
//         "updated_at": "2017-09-22T14:08:02-04:00",
//         "taxable": true,
//         "barcode": "1234_black",
//         "image_id": null,
//         "inventory_quantity": 40,
//         "weight": 1.25,
//         "weight_unit": "lb",
//         "old_inventory_quantity": 40,
//         "requires_shipping": true
//       }
//     ],
//     "options": [
//       {
//         "id": 594680422,
//         "product_id": 632910392,
//         "name": "Color",
//         "position": 1,
//         "values": [
//           "Pink",
//           "Red",
//           "Green",
//           "Black"
//         ]
//       }
//     ],
//     "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
//         ]
//       }
//     ],
//     "image": {
//       "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": [
//       ]
//     }
//   }
// }

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

CkRest_Dispose(rest);
CkJsonObject_Dispose(jsonReq);
CkStringBuilder_Dispose(sbReq);
CkStringBuilder_Dispose(sbJson);
CkJsonObject_Dispose(json);

end;