(Delphi ActiveX) TikTok Shop Get Authorized Shops

See more TikTok Shop Examples

An example showing how to get the authorized shops in the TikTok Shops API.

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 for Delphi Downloads Chilkat ActiveX DLL for Delphi Chilkat non-ActiveX DLL for Delphi * The examples here use the ActiveX DLL.

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB;

...

procedure TForm1.Button1Click(Sender: TObject);
var
http: TChilkatHttp;
jsonToken: TChilkatJsonObject;
success: Integer;
queryParams: TChilkatJsonObject;
dt: TCkDateTime;
ascending: Integer;
caseSensitive: Integer;
appSecret: WideString;
path: WideString;
sb: TChilkatStringBuilder;
numParams: Integer;
i: Integer;
crypt: TChilkatCrypt2;
sig: WideString;
resp: IChilkatHttpResponse;
json: TChilkatJsonObject;
cipher: WideString;
code_str: WideString;
id: WideString;
name: WideString;
region: WideString;
seller_type: WideString;
code: Integer;
message: WideString;
request_id: WideString;
count_i: Integer;

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

http := TChilkatHttp.Create(Self);

// 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
jsonToken := TChilkatJsonObject.Create(Self);
success := jsonToken.LoadFile('qa_data/tokens/tiktok-shops.json');
if (success <> 1) then
  begin
    Memo1.Lines.Add('Failed to load tiktok-shops.json');
    Exit;
  end;

queryParams := TChilkatJsonObject.Create(Self);
queryParams.UpdateString('app_key','APP_KEY');
dt := TCkDateTime.Create(Self);
queryParams.UpdateString('timestamp',dt.GetAsUnixTimeStr(0));
queryParams.UpdateInt('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
ascending := 1;
caseSensitive := 1;
queryParams.Sort(ascending,caseSensitive);

appSecret := 'APP_SECRET';
path := '/authorization/202309/shops';

// Build the StringToSign
sb := TChilkatStringBuilder.Create(Self);
sb.Append(appSecret);
sb.Append(path);
numParams := queryParams.Size;
i := 0;
while i < numParams do
  begin
    sb.Append(queryParams.NameAt(i));
    sb.Append(queryParams.StringAt(i));
    i := i + 1;
  end;

sb.Append(appSecret);

crypt := TChilkatCrypt2.Create(Self);
crypt.HashAlgorithm := 'SHA256';
crypt.MacAlgorithm := 'HMAC';
crypt.EncodingMode := 'hex_lower';
crypt.SetMacKeyString(appSecret);

sig := crypt.MacStringENC(sb.GetAsString());

queryParams.UpdateString('access_token',jsonToken.StringOf('data.access_token'));
queryParams.UpdateString('sign',sig);

http.SetRequestHeader('x-tts-access-token',jsonToken.StringOf('data.access_token'));
http.SetRequestHeader('content-type','application/json');

resp := http.QuickRequestParams('GET','https://open-api.tiktokglobalshop.com/authorization/202309/shops',queryParams.ControlInterface);
if (http.LastMethodSuccess = 0) then
  begin
    Memo1.Lines.Add(http.LastErrorText);
    Exit;
  end;

json := TChilkatJsonObject.Create(Self);
resp.GetBodyJson(json.ControlInterface);

Memo1.Lines.Add(IntToStr(resp.StatusCode));
Memo1.Lines.Add(resp.BodyStr);

// 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"
// }

code := json.IntOf('code');
message := json.StringOf('message');
request_id := json.StringOf('request_id');
i := 0;
count_i := json.SizeOfArray('data.shops');
while i < count_i do
  begin
    json.I := i;
    cipher := json.StringOf('data.shops[i].cipher');
    code_str := json.StringOf('data.shops[i].code');
    id := json.StringOf('data.shops[i].id');
    name := json.StringOf('data.shops[i].name');
    region := json.StringOf('data.shops[i].region');
    seller_type := json.StringOf('data.shops[i].seller_type');
    i := i + 1;
  end;
end;