Tcl
Tcl
Shopify Create New Product
See more Shopify Examples
Create a new productChilkat Tcl Downloads
load ./chilkat.dll
set success 0
set rest [new_CkRest]
CkRest_SetAuthBasic $rest "SHOPIFY_PRIVATE_API_KEY" "SHOPIFY_PRIVATE_API_SECRET_KEY"
set success [CkRest_Connect $rest "chilkat.myshopify.com" 443 1 1]
if {$success != 1} then {
puts [CkRest_lastErrorText $rest]
delete_CkRest $rest
exit
}
# The following code creates the JSON request body.
# The JSON created by this code is shown below.
set jsonReq [new_CkJsonObject]
CkJsonObject_UpdateString $jsonReq "product.title" "Burton Custom Freestyle 151"
CkJsonObject_UpdateString $jsonReq "product.body_html" "<strong>Good snowboard!</strong>"
CkJsonObject_UpdateString $jsonReq "product.vendor" "Burton"
CkJsonObject_UpdateString $jsonReq "product.product_type" "Snowboard"
CkJsonObject_UpdateString $jsonReq "product.images[0].attachment" "R0lGODlhAQABAIAAAAAAAAAAACH5BAEAAAAALAAAAAABAAEAAAICRAEAOw=="
# The JSON request body created by the above code:
# {
# "product": {
# "title": "Burton Custom Freestyle 151",
# "body_html": "<strong>Good snowboard!<\/strong>",
# "vendor": "Burton",
# "product_type": "Snowboard",
# "images": [
# {
# "attachment": "R0lGODlhAQABAIAAAAAAAAAAACH5BAEAAAAALAAAAAABAAEAAAICRAEAOw=="
# }
# ]
# }
# }
set sbReq [new_CkStringBuilder]
CkJsonObject_EmitSb $jsonReq $sbReq
CkRest_AddHeader $rest "Content-Type" "application/json"
set sbJson [new_CkStringBuilder]
set success [CkRest_FullRequestSb $rest "POST" "/admin/products.json" $sbReq $sbJson]
if {$success != 1} then {
puts [CkRest_lastErrorText $rest]
delete_CkRest $rest
delete_CkJsonObject $jsonReq
delete_CkStringBuilder $sbReq
delete_CkStringBuilder $sbJson
exit
}
if {[CkRest_get_ResponseStatusCode $rest] != 201} then {
puts "Received error response code: [CkRest_get_ResponseStatusCode $rest]"
puts "Response body:"
puts [CkStringBuilder_getAsString $sbJson]
delete_CkRest $rest
delete_CkJsonObject $jsonReq
delete_CkStringBuilder $sbReq
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 productBody_html [CkJsonObject_stringOf $json "product.body_html"]
set productVendor [CkJsonObject_stringOf $json "product.vendor"]
set productProduct_type [CkJsonObject_stringOf $json "product.product_type"]
set productCreated_at [CkJsonObject_stringOf $json "product.created_at"]
set productHandle [CkJsonObject_stringOf $json "product.handle"]
set productUpdated_at [CkJsonObject_stringOf $json "product.updated_at"]
set productPublished_at [CkJsonObject_stringOf $json "product.published_at"]
set productTemplate_suffix [CkJsonObject_IsNullOf $json "product.template_suffix"]
set productPublished_scope [CkJsonObject_stringOf $json "product.published_scope"]
set productTags [CkJsonObject_stringOf $json "product.tags"]
set productImageId [CkJsonObject_IntOf $json "product.image.id"]
set productImageProduct_id [CkJsonObject_IntOf $json "product.image.product_id"]
set productImagePosition [CkJsonObject_IntOf $json "product.image.position"]
set productImageCreated_at [CkJsonObject_stringOf $json "product.image.created_at"]
set productImageUpdated_at [CkJsonObject_stringOf $json "product.image.updated_at"]
set productImageWidth [CkJsonObject_IntOf $json "product.image.width"]
set productImageHeight [CkJsonObject_IntOf $json "product.image.height"]
set productImageSrc [CkJsonObject_stringOf $json "product.image.src"]
set i 0
set count_i [CkJsonObject_SizeOfArray $json "product.variants"]
while {$i < $count_i} {
CkJsonObject_put_I $json $i
set id [CkJsonObject_IntOf $json "product.variants[i].id"]
set product_id [CkJsonObject_IntOf $json "product.variants[i].product_id"]
set title [CkJsonObject_stringOf $json "product.variants[i].title"]
set price [CkJsonObject_stringOf $json "product.variants[i].price"]
set sku [CkJsonObject_stringOf $json "product.variants[i].sku"]
set position [CkJsonObject_IntOf $json "product.variants[i].position"]
set grams [CkJsonObject_IntOf $json "product.variants[i].grams"]
set inventory_policy [CkJsonObject_stringOf $json "product.variants[i].inventory_policy"]
set compare_at_price [CkJsonObject_IsNullOf $json "product.variants[i].compare_at_price"]
set fulfillment_service [CkJsonObject_stringOf $json "product.variants[i].fulfillment_service"]
set inventory_management [CkJsonObject_IsNullOf $json "product.variants[i].inventory_management"]
set option1 [CkJsonObject_stringOf $json "product.variants[i].option1"]
set option2 [CkJsonObject_IsNullOf $json "product.variants[i].option2"]
set option3 [CkJsonObject_IsNullOf $json "product.variants[i].option3"]
set created_at [CkJsonObject_stringOf $json "product.variants[i].created_at"]
set updated_at [CkJsonObject_stringOf $json "product.variants[i].updated_at"]
set taxable [CkJsonObject_BoolOf $json "product.variants[i].taxable"]
set barcode [CkJsonObject_IsNullOf $json "product.variants[i].barcode"]
set image_id [CkJsonObject_IsNullOf $json "product.variants[i].image_id"]
set inventory_quantity [CkJsonObject_IntOf $json "product.variants[i].inventory_quantity"]
set weight [CkJsonObject_IntOf $json "product.variants[i].weight"]
set weight_unit [CkJsonObject_stringOf $json "product.variants[i].weight_unit"]
set old_inventory_quantity [CkJsonObject_IntOf $json "product.variants[i].old_inventory_quantity"]
set requires_shipping [CkJsonObject_BoolOf $json "product.variants[i].requires_shipping"]
set i [expr $i + 1]
}
set i 0
set count_i [CkJsonObject_SizeOfArray $json "product.options"]
while {$i < $count_i} {
CkJsonObject_put_I $json $i
set id [CkJsonObject_IntOf $json "product.options[i].id"]
set product_id [CkJsonObject_IntOf $json "product.options[i].product_id"]
set name [CkJsonObject_stringOf $json "product.options[i].name"]
set position [CkJsonObject_IntOf $json "product.options[i].position"]
set j 0
set count_j [CkJsonObject_SizeOfArray $json "product.options[i].values"]
while {$j < $count_j} {
CkJsonObject_put_J $json $j
set strVal [CkJsonObject_stringOf $json "product.options[i].values[j]"]
set j [expr $j + 1]
}
set i [expr $i + 1]
}
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 j [expr $j + 1]
}
set i [expr $i + 1]
}
set i 0
set count_i [CkJsonObject_SizeOfArray $json "image.product.variant_ids"]
while {$i < $count_i} {
CkJsonObject_put_I $json $i
set i [expr $i + 1]
}
# A sample JSON response body that is parsed by the above code:
# {
# "product": {
# "id": 1071559747,
# "title": "Burton Custom Freestyle 151",
# "body_html": "<strong>Good snowboard!<\/strong>",
# "vendor": "Burton",
# "product_type": "Snowboard",
# "created_at": "2017-09-22T14:48:43-04:00",
# "handle": "burton-custom-freestyle-151",
# "updated_at": "2017-09-22T14:48:44-04:00",
# "published_at": "2017-09-22T14:48:43-04:00",
# "template_suffix": null,
# "published_scope": "global",
# "tags": "",
# "variants": [
# {
# "id": 1070325218,
# "product_id": 1071559747,
# "title": "Default Title",
# "price": "0.00",
# "sku": "",
# "position": 1,
# "grams": 0,
# "inventory_policy": "deny",
# "compare_at_price": null,
# "fulfillment_service": "manual",
# "inventory_management": null,
# "option1": "Default Title",
# "option2": null,
# "option3": null,
# "created_at": "2017-09-22T14:48:44-04:00",
# "updated_at": "2017-09-22T14:48:44-04:00",
# "taxable": true,
# "barcode": null,
# "image_id": null,
# "inventory_quantity": 1,
# "weight": 0.0,
# "weight_unit": "lb",
# "old_inventory_quantity": 1,
# "requires_shipping": true
# }
# ],
# "options": [
# {
# "id": 1022828903,
# "product_id": 1071559747,
# "name": "Title",
# "position": 1,
# "values": [
# "Default Title"
# ]
# }
# ],
# "images": [
# {
# "id": 1001473945,
# "product_id": 1071559747,
# "position": 1,
# "created_at": "2017-09-22T14:48:43-04:00",
# "updated_at": "2017-09-22T14:48:43-04:00",
# "width": 1,
# "height": 1,
# "src": "https:\/\/cdn.shopify.com\/s\/files\/1\/0006\/9093\/3842\/products\/df3e567d6f16d040326c7a0ea29a4f41.gif?v=1506106123",
# "variant_ids": [
# ]
# }
# ],
# "image": {
# "id": 1001473945,
# "product_id": 1071559747,
# "position": 1,
# "created_at": "2017-09-22T14:48:43-04:00",
# "updated_at": "2017-09-22T14:48:43-04:00",
# "width": 1,
# "height": 1,
# "src": "https:\/\/cdn.shopify.com\/s\/files\/1\/0006\/9093\/3842\/products\/df3e567d6f16d040326c7a0ea29a4f41.gif?v=1506106123",
# "variant_ids": [
# ]
# }
# }
# }
puts "Example Completed."
delete_CkRest $rest
delete_CkJsonObject $jsonReq
delete_CkStringBuilder $sbReq
delete_CkStringBuilder $sbJson
delete_CkJsonObject $json