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. Delphi ActiveX

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
success: Integer;
http: TChilkatHttp;
jsonToken: TChilkatJsonObject;
queryParams: TChilkatJsonObject;
dt: TCkDateTime;
ascending: Integer;
caseSensitive: Integer;
appSecret: WideString;
path: WideString;
sb: TChilkatStringBuilder;
numParams: Integer;
i: Integer;
crypt: TChilkatCrypt2;
sig: WideString;
resp: TChilkatHttpResponse;
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
success := 0;

// 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..
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 := TChilkatHttpResponse.Create(Self);
success := http.HttpParams('GET','https://open-api.tiktokglobalshop.com/authorization/202309/shops',queryParams.ControlInterface,resp.ControlInterface);
if (success = 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;