Pascal (Lazarus/Delphi)
Pascal (Lazarus/Delphi)
TikTok Shop OAuth2
See more TikTok Shop Examples
Demonstrates how to get the initial OAuth2 access token for a TikTop Shop application. This is for desktop applications and scripts only. It is not for server-side code running on a web server.Chilkat Pascal (Lazarus/Delphi) Downloads
program ChilkatDemo;
// Demonstrates using the Chilkat Pascal wrapper via the C bridge DLL.
// Builds as a console application under Lazarus (FPC) or Delphi.
{$IFDEF FPC}
{$MODE DELPHI}
{$ENDIF}
{$APPTYPE CONSOLE}
uses
{$IFDEF UNIX}
cthreads,
{$ENDIF}
SysUtils,
CkDllLoader,
Chilkat.FileAccess,
Chilkat.OAuth2,
Chilkat.JsonObject;
// ---------------------------------------------------------------------------
procedure RunDemo;
var
success: Boolean;
oauth2: TOAuth2;
url: string;
numMsWaited: Integer;
json: TJsonObject;
strVal: string;
code: Integer;
message: string;
Access_token: string;
Access_token_expire_in: Integer;
Refresh_token: string;
Refresh_token_expire_in: Integer;
Open_id: string;
Seller_name: string;
Seller_base_region: string;
User_type: Integer;
request_id: string;
i: Integer;
count_i: Integer;
fac: TFileAccess;
begin
success := False;
// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.
oauth2 := TOAuth2.Create;
// This should be the port in the localhost callback URL for your app.
// The callback URL would look like "http://localhost:3017/" if the port number is 3017.
oauth2.ListenPort := 3017;
oauth2.AuthorizationEndpoint := 'https://services.tiktokshop.com/open/authorize';
oauth2.TokenEndpoint := 'https://auth.tiktok-shops.com/api/v2/token/get';
// Replace these with actual values.
oauth2.ClientId := 'APP_KEY';
oauth2.ClientSecret := 'APP_SECRET';
oauth2.Scope := '';
// See https://partner.tiktokshop.com/doc/page/63fd743c715d622a338c4e5a
// for information about how to manually get your service_id
// Once you have the service_id, it should not change.
oauth2.AddAuthQueryParam('service_id','YOUR_SERVICE_ID');
// Begin the OAuth2 three-legged flow. This returns a URL that should be loaded in a browser.
url := oauth2.StartAuth();
if (oauth2.LastMethodSuccess = False) then
begin
WriteLn(oauth2.LastErrorText);
Exit;
end;
// Launch the system's default browser navigated to the URL.
success := oauth2.LaunchBrowser(url);
if (success = False) then
begin
WriteLn(oauth2.LastErrorText);
Exit;
end;
// Now wait for the authorization.
// We'll wait for a max of 60 seconds.
numMsWaited := 0;
while (numMsWaited < 60000) and (oauth2.AuthFlowState < 3) do
begin
oauth2.SleepMs(100);
numMsWaited := numMsWaited + 100;
end;
// If there was no response from the browser within 30 seconds, then
// the AuthFlowState will be equal to 1 or 2.
// 1: Waiting for Redirect. The OAuth2 background thread is waiting to receive the redirect HTTP request from the browser.
// 2: Waiting for Final Response. The OAuth2 background thread is waiting for the final access token response.
// In that case, cancel the background task started in the call to StartAuth.
if (oauth2.AuthFlowState < 3) then
begin
oauth2.Cancel();
WriteLn('No response from the browser!');
Exit;
end;
// Check the AuthFlowState to see if authorization was granted, denied, or if some error occurred
// The possible AuthFlowState values are:
// 3: Completed with Success. The OAuth2 flow has completed, the background thread exited, and the successful JSON response is available in AccessTokenResponse property.
// 4: Completed with Access Denied. The OAuth2 flow has completed, the background thread exited, and the error JSON is available in AccessTokenResponse property.
// 5: Failed Prior to Completion. The OAuth2 flow failed to complete, the background thread exited, and the error information is available in the FailureInfo property.
if (oauth2.AuthFlowState = 5) then
begin
WriteLn('OAuth2 failed to complete.');
WriteLn(oauth2.FailureInfo);
Exit;
end;
if (oauth2.AuthFlowState = 4) then
begin
WriteLn('OAuth2 authorization was denied.');
WriteLn(oauth2.AccessTokenResponse);
Exit;
end;
if (oauth2.AuthFlowState <> 3) then
begin
WriteLn('Unexpected AuthFlowState:' + oauth2.AuthFlowState);
Exit;
end;
WriteLn('OAuth2 authorization granted!');
WriteLn('Access Token = ' + oauth2.AccessToken);
// Get the full JSON response:
json := TJsonObject.Create;
json.Load(oauth2.AccessTokenResponse);
json.EmitCompact := False;
// The JSON response looks like this:
// {
// "code": 0,
// "message": "success",
// "data": {
// "access_token": "GCP_3n......",
// "access_token_expire_in": 1722342011,
// "refresh_token": "GCP_hA......",
// "refresh_token_expire_in": 4841467787,
// "open_id": "_VIz.......",
// "seller_name": "****",
// "seller_base_region": "GB",
// "user_type": 0,
// "granted_scopes": [
// "seller.authorization.info",
// "seller.delivery.status.write",
// "seller.product.basic",
// "seller.order.info",
// "seller.fulfillment.basic",
// "seller.shop.info",
// "seller.fulfillment.package.write",
// "seller.product.write"
// ]
// },
// "request_id": "20240723......"
// }
WriteLn(json.Emit());
// How to get values from the JSON:
code := json.IntOf('code');
message := json.StringOf('message');
Access_token := json.StringOf('data.access_token');
Access_token_expire_in := json.IntOf('data.access_token_expire_in');
Refresh_token := json.StringOf('data.refresh_token');
Refresh_token_expire_in := json.IntOf('data.refresh_token_expire_in');
Open_id := json.StringOf('data.open_id');
Seller_name := json.StringOf('data.seller_name');
Seller_base_region := json.StringOf('data.seller_base_region');
User_type := json.IntOf('data.user_type');
request_id := json.StringOf('request_id');
i := 0;
count_i := json.SizeOfArray('data.granted_scopes');
while i < count_i do
begin
json.I := i;
strVal := json.StringOf('data.granted_scopes[i]');
i := i + 1;
end;
// Save the JSON to a file for future requests, if needed..
fac := TFileAccess.Create;
fac.WriteEntireTextFile('qa_data/tokens/tiktok-shops.json',json.Emit(),'utf-8',False);
oauth2.Free;
json.Free;
fac.Free;
end;
// ---------------------------------------------------------------------------
begin
try
RunDemo;
except
on E: Exception do
WriteLn('Unhandled exception: ', E.ClassName, ': ', E.Message);
end;
WriteLn;
{$IFDEF MSWINDOWS}
WriteLn('Press Enter to exit...');
ReadLn;
{$ENDIF}
end.