(Tcl) Shopware List Categories

See more Shopware Examples

List categories in your Shopware database.

For more information, see https://developers.shopware.com/developers-guide/rest-api/api-resource-categories/

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

# This example assumes the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

set http [new_CkHttp]

CkHttp_put_Login $http "api_username"
CkHttp_put_Password $http "api_key"
CkHttp_put_BasicAuth $http 1

set sbResponseBody [new_CkStringBuilder]

set success [CkHttp_QuickGetSb $http "https://my-shopware-shop.com/api/categories?limit=2" $sbResponseBody]
if {$success == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    delete_CkStringBuilder $sbResponseBody
    exit
}

set jResp [new_CkJsonObject]

CkJsonObject_LoadSb $jResp $sbResponseBody
CkJsonObject_put_EmitCompact $jResp 0

puts "Response Body:"
puts [CkJsonObject_emit $jResp]

# Sample JSON response:
# (Sample code for parsing the JSON response is shown below)

# {
#   "data": [
#     {
#       "id": 1,
#       "active": true,
#       "name": "Root",
#       "position": 0,
#       "parentId": null,
#       "mediaId": null,
#       "childrenCount": "3",
#       "articleCount": "0"
#     },
#     {
#       "id": 384,
#       "active": true,
#       "name": "Deutsch",
#       "position": 0,
#       "parentId": 1,
#       "mediaId": null,
#       "childrenCount": "9",
#       "articleCount": "32"
#     }
#   ],
#   "total": 118,
#   "success": true
# }

# Sample code for parsing the JSON response...
# Use the following online tool to generate parsing code from sample JSON:
# Generate Parsing Code from JSON

set total [CkJsonObject_IntOf $jResp "total"]
set success [CkJsonObject_BoolOf $jResp "success"]
set i 0
set count_i [CkJsonObject_SizeOfArray $jResp "data"]
while {$i < $count_i} {
    CkJsonObject_put_I $jResp $i
    set id [CkJsonObject_IntOf $jResp "data[i].id"]
    set active [CkJsonObject_BoolOf $jResp "data[i].active"]
    set name [CkJsonObject_stringOf $jResp "data[i].name"]
    set position [CkJsonObject_IntOf $jResp "data[i].position"]
    set parentId [CkJsonObject_stringOf $jResp "data[i].parentId"]
    set mediaId [CkJsonObject_stringOf $jResp "data[i].mediaId"]
    set childrenCount [CkJsonObject_stringOf $jResp "data[i].childrenCount"]
    set articleCount [CkJsonObject_stringOf $jResp "data[i].articleCount"]
    set i [expr $i + 1]
}

delete_CkHttp $http
delete_CkStringBuilder $sbResponseBody
delete_CkJsonObject $jResp