Delphi ActiveX

Zoom API - Create JWT to Authenticate API Requests

See more Zoom Examples

Creates a JWT for the Zoom 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;
apiKey: WideString;
apiSecret: WideString;
jwt: TChilkatJwt;
jose: TChilkatJsonObject;
claims: TChilkatJsonObject;
curDateTime: Integer;
oneMonth: Integer;
strJwt: WideString;
http: TChilkatHttp;
sbResponseBody: TChilkatStringBuilder;
jResp: TChilkatJsonObject;
respStatusCode: Integer;
id: WideString;
first_name: WideString;
last_name: WideString;
email: WideString;
v_type: Integer;
pmi: Integer;
timezone: WideString;
verified: Integer;
created_at: WideString;
last_login_time: WideString;
language: WideString;
phone_number: WideString;
status: WideString;
role_id: WideString;
page_count: Integer;
page_number: Integer;
page_size: Integer;
total_records: Integer;
i: Integer;
count_i: Integer;

begin
success := 0;

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

// Use your API key and secret here...
apiKey := 'o9rw6Gq0RnqlkfaSqtCMOA';
apiSecret := 'UslmE23Kjh7at9z3If1xAHEyLmPDNxvxQrjR';

// Create a JWT to authenticate Zoom API requests.
jwt := TChilkatJwt.Create(Self);

jose := TChilkatJsonObject.Create(Self);
success := jose.UpdateString('alg','HS256');
success := jose.UpdateString('typ','JWT');

// Build claims to look like this:
// {"aud":null,"iss":"o9rw6Gq0RnqlkfaSqtCMOA","exp":1627651762,"iat":1627646363}
claims := TChilkatJsonObject.Create(Self);
success := claims.UpdateString('iss',apiKey);
success := claims.UpdateNull('aud');

// Set the timestamp of when the JWT was created to now.
curDateTime := jwt.GenNumericDate(0);
success := claims.AddIntAt(-1,'iat',curDateTime);

// Set the timestamp defining an expiration time (end time) for the token
// to be now + 1 month(3600 * 24 * 30 seconds)
oneMonth := 3600 * 24 * 30;
success := claims.AddIntAt(-1,'exp',curDateTime + oneMonth);

// Produce the smallest possible JWT:
jwt.AutoCompact := 1;

strJwt := jwt.CreateJwt(jose.Emit(),claims.Emit(),apiSecret);

Memo1.Lines.Add(strJwt);

// Let's test the JWT to by sending the following request:

// curl --request GET \
//   --url 'https://api.zoom.us/v2/users?status=active&page_size=30&page_number=1' \
//   --header 'authorization: Bearer { your_token }' \
//   --header 'content-type: application/json

http := TChilkatHttp.Create(Self);

// Implements the following CURL command:

// curl --request GET \
//   --url 'https://api.zoom.us/v2/users?status=active&page_size=30&page_number=1' \
//   --header 'authorization: Bearer { your_token }' \
//   --header 'content-type: application/json

// Use the following online tool to generate HTTP code from a CURL command
// Convert a cURL Command to HTTP Source Code

http.SetRequestHeader('content-type','application/json');
// Adds the "Authorization: Bearer { your_token }" header.
http.AuthToken := strJwt;

sbResponseBody := TChilkatStringBuilder.Create(Self);
success := http.QuickGetSb('https://api.zoom.us/v2/users?status=active&page_size=30&page_number=1',sbResponseBody.ControlInterface);
if (success = 0) then
  begin
    Memo1.Lines.Add(http.LastErrorText);
    Exit;
  end;

jResp := TChilkatJsonObject.Create(Self);
jResp.LoadSb(sbResponseBody.ControlInterface);
jResp.EmitCompact := 0;

Memo1.Lines.Add('Response Body:');
Memo1.Lines.Add(jResp.Emit());

respStatusCode := http.LastStatus;
Memo1.Lines.Add('Response Status Code = ' + IntToStr(respStatusCode));
if (respStatusCode >= 400) then
  begin
    Memo1.Lines.Add('Response Header:');
    Memo1.Lines.Add(http.LastHeader);
    Memo1.Lines.Add('Failed.');
    Exit;
  end;

// Sample output:

// {
//   "page_count": 1,
//   "page_number": 1,
//   "page_size": 30,
//   "total_records": 1,
//   "users": [
//     {
//       "id": "s8uAiMJiRmS_-eu1yOhKlg",
//       "first_name": "Joe",
//       "last_name": "Example",
//       "email": "joe@example.com",
//       "type": 1,
//       "pmi": 5224934114,
//       "timezone": "America/Chicago",
//       "verified": 1,
//       "created_at": "2021-07-30T11:56:37Z",
//       "last_login_time": "2021-07-30T11:56:37Z",
//       "language": "en-US",
//       "phone_number": "",
//       "status": "active",
//       "role_id": "0"
//     }
//   ]
// }

// Sample code for parsing the JSON response...
// Use the following online tool to generate parsing code from sample JSON:
// Generate Parsing Code from JSON

page_count := jResp.IntOf('page_count');
page_number := jResp.IntOf('page_number');
page_size := jResp.IntOf('page_size');
total_records := jResp.IntOf('total_records');
i := 0;
count_i := jResp.SizeOfArray('users');
while i < count_i do
  begin
    jResp.I := i;
    id := jResp.StringOf('users[i].id');
    first_name := jResp.StringOf('users[i].first_name');
    last_name := jResp.StringOf('users[i].last_name');
    email := jResp.StringOf('users[i].email');
    v_type := jResp.IntOf('users[i].type');
    pmi := jResp.IntOf('users[i].pmi');
    timezone := jResp.StringOf('users[i].timezone');
    verified := jResp.IntOf('users[i].verified');
    created_at := jResp.StringOf('users[i].created_at');
    last_login_time := jResp.StringOf('users[i].last_login_time');
    language := jResp.StringOf('users[i].language');
    phone_number := jResp.StringOf('users[i].phone_number');
    status := jResp.StringOf('users[i].status');
    role_id := jResp.StringOf('users[i].role_id');
    i := i + 1;
  end;
end;