(Tcl) TikTok Shop Get Authorized Shops

See more TikTok Shop Examples

IMPORTANT: This example requires a pre-release for the next version of Chilkat after the current v9.5.0.99 release. Contact info@chilkatsoft.com if you wish to get a pre-release. However, pre-releases of .NET Core (hosted on NuGet) and Node.js will not be possible.

For more information, see https://partner.tiktokshop.com/docv2/page/6507ead7b99d5302be949ba9?external_id=6507ead7b99d5302be949ba9

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]

# It is assumed we previously obtained an OAuth2 access token.
# This example loads the JSON access token file 
# saved by this example: Get TikTok Shop OAuth2 Access Token
# or refrehsed by this example: Get TikTok Shop Refresh OAuth2 Access Token
set jsonToken [new_CkJsonObject]

set success [CkJsonObject_LoadFile $jsonToken "qa_data/tokens/tiktok-shops.json"]
if {$success != 1} then {
    puts "Failed to load tiktok-shops.json"
    delete_CkHttp $http
    delete_CkJsonObject $jsonToken
    exit
}

set queryParams [new_CkJsonObject]

CkJsonObject_UpdateString $queryParams "app_key" "APP_KEY"
set dt [new_CkDateTime]

CkJsonObject_UpdateString $queryParams "timestamp" [CkDateTime_getAsUnixTimeStr $dt 0]
CkJsonObject_UpdateInt $queryParams "version" 202309

# Sort the JSON members by member name, in ascending order (A-Z), case sensitive..
# Note: The Sort method is added in Chilkat v9.5.0.100
set ascending 1
set caseSensitive 1
CkJsonObject_Sort $queryParams $ascending $caseSensitive

set appSecret "APP_SECRET"
set path "/authorization/202309/shops"

# Build the StringToSign
set sb [new_CkStringBuilder]

CkStringBuilder_Append $sb $appSecret
CkStringBuilder_Append $sb $path
set numParams [CkJsonObject_get_Size $queryParams]
set i 0
while {$i < $numParams} {
    CkStringBuilder_Append $sb [CkJsonObject_nameAt $queryParams $i]
    CkStringBuilder_Append $sb [CkJsonObject_stringAt $queryParams $i]
    set i [expr $i + 1]
}
CkStringBuilder_Append $sb $appSecret

set crypt [new_CkCrypt2]

CkCrypt2_put_HashAlgorithm $crypt "SHA256"
CkCrypt2_put_MacAlgorithm $crypt "HMAC"
CkCrypt2_put_EncodingMode $crypt "hex_lower"
CkCrypt2_SetMacKeyString $crypt $appSecret

set sig [CkCrypt2_macStringENC $crypt [CkStringBuilder_getAsString $sb]]

CkJsonObject_UpdateString $queryParams "access_token" [CkJsonObject_stringOf $jsonToken "data.access_token"]
CkJsonObject_UpdateString $queryParams "sign" $sig

CkHttp_SetRequestHeader $http "x-tts-access-token" [CkJsonObject_stringOf $jsonToken "data.access_token"]
CkHttp_SetRequestHeader $http "content-type" "application/json"

# resp is a CkHttpResponse
set resp [CkHttp_QuickRequestParams $http "GET" "https://open-api.tiktokglobalshop.com/authorization/202309/shops" $queryParams]
if {[CkHttp_get_LastMethodSuccess $http] == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    delete_CkJsonObject $jsonToken
    delete_CkJsonObject $queryParams
    delete_CkDateTime $dt
    delete_CkStringBuilder $sb
    delete_CkCrypt2 $crypt
    exit
}

set json [new_CkJsonObject]

CkHttpResponse_GetBodyJson $resp $json

puts [CkHttpResponse_get_StatusCode $resp]
puts [CkHttpResponse_bodyStr $resp]
delete_CkHttpResponse $resp

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

# {
#   "code": 0,
#   "data": {
#     "shops": [
#       {
#         "cipher": "GCP_XF90igAAAABh00qsWgtvOiGFNqyubMt3",
#         "code": "CNGBCBA4LLU8",
#         "id": "7000714532876273420",
#         "name": "Maomao beauty shop",
#         "region": "GB",
#         "seller_type": "CROSS_BORDER"
#       }
#     ]
#   },
#   "message": "Success",
#   "request_id": "202203070749000101890810281E8C70B7"
# }

set code [CkJsonObject_IntOf $json "code"]
set message [CkJsonObject_stringOf $json "message"]
set request_id [CkJsonObject_stringOf $json "request_id"]
set i 0
set count_i [CkJsonObject_SizeOfArray $json "data.shops"]
while {$i < $count_i} {
    CkJsonObject_put_I $json $i
    set cipher [CkJsonObject_stringOf $json "data.shops[i].cipher"]
    set code_str [CkJsonObject_stringOf $json "data.shops[i].code"]
    set id [CkJsonObject_stringOf $json "data.shops[i].id"]
    set name [CkJsonObject_stringOf $json "data.shops[i].name"]
    set region [CkJsonObject_stringOf $json "data.shops[i].region"]
    set seller_type [CkJsonObject_stringOf $json "data.shops[i].seller_type"]
    set i [expr $i + 1]
}

delete_CkHttp $http
delete_CkJsonObject $jsonToken
delete_CkJsonObject $queryParams
delete_CkDateTime $dt
delete_CkStringBuilder $sb
delete_CkCrypt2 $crypt
delete_CkJsonObject $json