(Tcl) Shopify Get particular fields of a single product

Get particular fields of a single product

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

set rest [new_CkRest]

CkRest_SetAuthBasic $rest "SHOPIFY_PRIVATE_API_KEY" "SHOPIFY_PRIVATE_API_KEY"

set success [CkRest_Connect $rest "chilkat.myshopify.com" 443 1 1]
if {$success != 1} then {
    puts [CkRest_lastErrorText $rest]
    delete_CkRest $rest
    exit
}

set sbJson [new_CkStringBuilder]

set success [CkRest_FullRequestNoBodySb $rest "GET" "/admin/products/#{id}.json?fields=id,images,title" $sbJson]
if {$success != 1} then {
    puts [CkRest_lastErrorText $rest]
    delete_CkRest $rest
    delete_CkStringBuilder $sbJson
    exit
}

if {[CkRest_get_ResponseStatusCode $rest] != 200} then {
    puts "Received error response code: [CkRest_get_ResponseStatusCode $rest]"
    puts "Response body:"
    puts [CkStringBuilder_getAsString $sbJson]
    delete_CkRest $rest
    delete_CkStringBuilder $sbJson
    exit
}

set json [new_CkJsonObject]

CkJsonObject_LoadSb $json $sbJson

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

set productId [CkJsonObject_IntOf $json "product.id"]
set productTitle [CkJsonObject_stringOf $json "product.title"]
set i 0
set count_i [CkJsonObject_SizeOfArray $json "product.images"]
while {$i < $count_i} {
    CkJsonObject_put_I $json $i
    set id [CkJsonObject_IntOf $json "product.images[i].id"]
    set product_id [CkJsonObject_IntOf $json "product.images[i].product_id"]
    set position [CkJsonObject_IntOf $json "product.images[i].position"]
    set created_at [CkJsonObject_stringOf $json "product.images[i].created_at"]
    set updated_at [CkJsonObject_stringOf $json "product.images[i].updated_at"]
    set width [CkJsonObject_IntOf $json "product.images[i].width"]
    set height [CkJsonObject_IntOf $json "product.images[i].height"]
    set src [CkJsonObject_stringOf $json "product.images[i].src"]
    set j 0
    set count_j [CkJsonObject_SizeOfArray $json "product.images[i].variant_ids"]
    while {$j < $count_j} {
        CkJsonObject_put_J $json $j
        set intVal [CkJsonObject_IntOf $json "product.images[i].variant_ids[j]"]
        set j [expr $j + 1]
    }
    set i [expr $i + 1]
}

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

# {
#   "product": {
#     "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
#         ]
#       }
#     ]
#   }
# }

puts "Example Completed."

delete_CkRest $rest
delete_CkStringBuilder $sbJson
delete_CkJsonObject $json