![]() |
Chilkat HOME Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi DLL Go Java Node.js Objective-C PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(Tcl) TikTok Shop Get Authorized ShopsSee more TikTok Shop ExamplesAn example showing how to get the authorized shops in the TikTok Shops API.Note: This example requires Chilkat v11.0.0 or greater. For more information, see https://partner.tiktokshop.com/docv2/page/6507ead7b99d5302be949ba9?external_id=6507ead7b99d5302be949ba9
load ./chilkat.dll set success 0 # 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.. 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" set resp [new_CkHttpResponse] set success [CkHttp_HttpParams $http "GET" "https://open-api.tiktokglobalshop.com/authorization/202309/shops" $queryParams $resp] if {$success == 0} then { puts [CkHttp_lastErrorText $http] delete_CkHttp $http delete_CkJsonObject $jsonToken delete_CkJsonObject $queryParams delete_CkDateTime $dt delete_CkStringBuilder $sb delete_CkCrypt2 $crypt delete_CkHttpResponse $resp exit } set json [new_CkJsonObject] CkHttpResponse_GetBodyJson $resp $json puts [CkHttpResponse_get_StatusCode $resp] puts [CkHttpResponse_bodyStr $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_CkHttpResponse $resp delete_CkJsonObject $json |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.