Pascal (Lazarus/Delphi)
Pascal (Lazarus/Delphi)
Frame.io - Get Team ID
See more Frame.io Examples
Get your team ID.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.Http,
Chilkat.StringBuilder,
Chilkat.JsonObject;
// ---------------------------------------------------------------------------
procedure RunDemo;
var
success: Boolean;
http: THttp;
sbResponseBody: TStringBuilder;
jResp: TJsonObject;
respStatusCode: Integer;
image_64: string;
project_count: Integer;
default_color: string;
deleted_at: string;
image_256: string;
background_color: string;
font_color: string;
email_branding_type: string;
email_brandingAccent_color: string;
email_brandingBackground_color: string;
email_brandingDefault_accent_color: string;
email_brandingDefault_background_color: string;
email_brandingId: string;
email_brandingImage: string;
email_brandingUpload_url: string;
bio: string;
updated_at: string;
link: string;
default_font_color: string;
image_128: string;
dark_theme: Boolean;
disable_sbwm_internally: Boolean;
account_id: string;
name: string;
location: string;
solo: Boolean;
watermark: string;
file_count: Integer;
duration: Integer;
image_32: string;
team_image: string;
default_background_color: string;
resource_id: string;
color: string;
frames: Integer;
storage: Integer;
collaborator_count: Integer;
creator_id: string;
default_session_watermark_template_id: string;
archived_storage: Integer;
slack_webhook: string;
upload_url: string;
member_count: Integer;
v_type: string;
asset_lifecycle_policy: string;
member_limit: string;
id: string;
storage_limit: string;
access: string;
inserted_at: string;
folder_count: Integer;
begin
success := False;
// This example assumes the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.
http := THttp.Create;
// Implements the following CURL command:
// curl \
// -H "Authorization: Bearer <FRAME_IO_DEV_TOKEN>" \
// https://api.frame.io/v2/accounts/<ACCOUNT_ID>/teams
// Use the following online tool to generate HTTP code from a CURL command
// Convert a cURL Command to HTTP Source Code
// Adds the "Authorization: Bearer <FRAME_IO_DEV_TOKEN>" header.
http.AuthToken := '<FRAME_IO_DEV_TOKEN>';
http.SetUrlVar('account_id','b1cd046b-a3bf-4ef8-81a6-0afd74ecc455');
sbResponseBody := TStringBuilder.Create;
success := http.QuickGetSb('https://api.frame.io/v2/accounts/{$account_id}/teams',sbResponseBody);
if (success = False) then
begin
WriteLn(http.LastErrorText);
Exit;
end;
jResp := TJsonObject.Create;
jResp.LoadSb(sbResponseBody);
jResp.EmitCompact := False;
WriteLn('Response Body:');
WriteLn(jResp.Emit());
respStatusCode := http.LastStatus;
WriteLn('Response Status Code = ' + respStatusCode);
if (respStatusCode >= 400) then
begin
WriteLn('Response Header:');
WriteLn(http.LastHeader);
WriteLn('Failed.');
Exit;
end;
// Sample JSON response:
// (Sample code for parsing the JSON response is shown below)
// {
// "image_64": null,
// "project_count": 1,
// "default_color": "5B53FF",
// "deleted_at": null,
// "image_256": null,
// "background_color": null,
// "session_watermark_templates": [
// ],
// "font_color": null,
// "email_branding": {
// "_type": "email_branding",
// "accent_color": null,
// "background_color": null,
// "default_accent_color": "5B53FF",
// "default_background_color": "F7F8FA",
// "id": "71cddf30-cdd6-4db9-9f1f-f119c3a6c36d",
// "image": null,
// "upload_url": "https://frameio-uploads-production.s3-accelerate.amazonaws.com/email_branding/71c...508199e26038"
// },
// "bio": null,
// "updated_at": "2020-08-18T02:20:14.432078Z",
// "link": null,
// "default_font_color": "20222B",
// "image_128": null,
// "dark_theme": false,
// "disable_sbwm_internally": false,
// "account_id": "b1cd046b-a3bf-4ef8-81a6-0afd74ecc455",
// "name": "Chilkat's Team",
// "location": null,
// "solo": false,
// "watermark": null,
// "file_count": 0,
// "duration": 0,
// "image_32": null,
// "team_image": null,
// "default_background_color": "FFFFFF",
// "resource_id": "8e32b1ae-86db-4164-83b1-81b37b2e7499",
// "color": null,
// "frames": 0,
// "storage": 0,
// "collaborator_count": 1,
// "creator_id": "34b4f98a-7cc9-4159-8f46-c7c3d837fc6f",
// "default_session_watermark_template_id": null,
// "archived_storage": 0,
// "slack_webhook": null,
// "upload_url": "https://frameio-uploads-production.s3-accelerate.amazonaws.com/teams/95a5fb..a86b2663",
// "member_count": 1,
// "_type": "team",
// "asset_lifecycle_policy": null,
// "member_limit": null,
// "id": "95a5fbad-688d-46fc-aef1-2f011dd76c10",
// "storage_limit": null,
// "access": "private",
// "inserted_at": "2020-08-18T02:20:13.171582Z",
// "folder_count": 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
image_64 := jResp.StringOf('image_64');
project_count := jResp.IntOf('project_count');
default_color := jResp.StringOf('default_color');
deleted_at := jResp.StringOf('deleted_at');
image_256 := jResp.StringOf('image_256');
background_color := jResp.StringOf('background_color');
font_color := jResp.StringOf('font_color');
email_branding_type := jResp.StringOf('email_branding._type');
email_brandingAccent_color := jResp.StringOf('email_branding.accent_color');
email_brandingBackground_color := jResp.StringOf('email_branding.background_color');
email_brandingDefault_accent_color := jResp.StringOf('email_branding.default_accent_color');
email_brandingDefault_background_color := jResp.StringOf('email_branding.default_background_color');
email_brandingId := jResp.StringOf('email_branding.id');
email_brandingImage := jResp.StringOf('email_branding.image');
email_brandingUpload_url := jResp.StringOf('email_branding.upload_url');
bio := jResp.StringOf('bio');
updated_at := jResp.StringOf('updated_at');
link := jResp.StringOf('link');
default_font_color := jResp.StringOf('default_font_color');
image_128 := jResp.StringOf('image_128');
dark_theme := jResp.BoolOf('dark_theme');
disable_sbwm_internally := jResp.BoolOf('disable_sbwm_internally');
account_id := jResp.StringOf('account_id');
name := jResp.StringOf('name');
location := jResp.StringOf('location');
solo := jResp.BoolOf('solo');
watermark := jResp.StringOf('watermark');
file_count := jResp.IntOf('file_count');
duration := jResp.IntOf('duration');
image_32 := jResp.StringOf('image_32');
team_image := jResp.StringOf('team_image');
default_background_color := jResp.StringOf('default_background_color');
resource_id := jResp.StringOf('resource_id');
color := jResp.StringOf('color');
frames := jResp.IntOf('frames');
storage := jResp.IntOf('storage');
collaborator_count := jResp.IntOf('collaborator_count');
creator_id := jResp.StringOf('creator_id');
default_session_watermark_template_id := jResp.StringOf('default_session_watermark_template_id');
archived_storage := jResp.IntOf('archived_storage');
slack_webhook := jResp.StringOf('slack_webhook');
upload_url := jResp.StringOf('upload_url');
member_count := jResp.IntOf('member_count');
v_type := jResp.StringOf('_type');
asset_lifecycle_policy := jResp.StringOf('asset_lifecycle_policy');
member_limit := jResp.StringOf('member_limit');
id := jResp.StringOf('id');
storage_limit := jResp.StringOf('storage_limit');
access := jResp.StringOf('access');
inserted_at := jResp.StringOf('inserted_at');
folder_count := jResp.IntOf('folder_count');
http.Free;
sbResponseBody.Free;
jResp.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.