(Delphi DLL) Frame.io - Get Account ID

Make a GET /me request if you don't have your Account ID on hand:

For more information, see https://docs.frame.io/docs/root-asset-ids

Chilkat for Delphi Downloads Chilkat non-ActiveX DLL for Delphi Chilkat ActiveX DLL for Delphi * The examples here use the non-ActiveX DLL.

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
http: HCkHttp;
success: Boolean;
sbResponseBody: HCkStringBuilder;
jResp: HCkJsonObject;
respStatusCode: Integer;
v_type: PWideChar;
account_id: PWideChar;
bio: PWideChar;
context: PWideChar;
deleted_at: PWideChar;
digest_frequency: PWideChar;
email: PWideChar;
email_confirm_by: PWideChar;
email_preferences: PWideChar;
features_seen: PWideChar;
first_login_at: PWideChar;
from_google: Boolean;
id: PWideChar;
image_128: PWideChar;
image_256: PWideChar;
image_32: PWideChar;
image_64: PWideChar;
inserted_at: PWideChar;
joined_via: PWideChar;
last_seen: PWideChar;
location: PWideChar;
name: PWideChar;
next_digest_date: PWideChar;
phone: PWideChar;
profile_image: PWideChar;
profile_image_original: PWideChar;
roles: PWideChar;
timezone_value: PWideChar;
updated_at: PWideChar;
upload_url: PWideChar;
user_default_color: PWideChar;
user_hash: PWideChar;

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

http := CkHttp_Create();

// Implements the following CURL command:

// curl \
//     -H "Authorization: Bearer <FRAME_IO_DEV_TOKEN>" \
//     https://api.frame.io/v2/me

// 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.
CkHttp_putAuthToken(http,'<FRAME_IO_DEV_TOKEN>');

sbResponseBody := CkStringBuilder_Create();
success := CkHttp_QuickGetSb(http,'https://api.frame.io/v2/me',sbResponseBody);
if (success = False) then
  begin
    Memo1.Lines.Add(CkHttp__lastErrorText(http));
    Exit;
  end;

jResp := CkJsonObject_Create();
CkJsonObject_LoadSb(jResp,sbResponseBody);
CkJsonObject_putEmitCompact(jResp,False);

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

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

// Sample JSON response:
// (Sample code for parsing the JSON response is shown below)

// {
//   "_type": "user",
//   "account_id": "b1cd046b-a3bf-4ef8-81a6-0afd74ecc455",
//   "bio": null,
//   "context": null,
//   "deleted_at": null,
//   "digest_frequency": "*/5 * * * *",
//   "email": "admin@chilkatsoft.com",
//   "email_confirm_by": null,
//   "email_preferences": null,
//   "features_seen": null,
//   "first_login_at": "2020-08-18T02:20:56.732000Z",
//   "from_google": false,
//   "id": "34b4f98a-7cc9-4159-8f46-c7c3d837fc6f",
//   "image_128": null,
//   "image_256": null,
//   "image_32": null,
//   "image_64": null,
//   "inserted_at": "2020-08-18T02:20:13.145929Z",
//   "joined_via": "organic",
//   "last_seen": "2020-08-18T02:20:52.852871Z",
//   "location": null,
//   "name": "Chilkat Software",
//   "next_digest_date": "2020-08-18T02:20:13.145828Z",
//   "phone": null,
//   "profile_image": "https://static-assets.frame.io/app/anon.jpg",
//   "profile_image_original": null,
//   "roles": null,
//   "timezone_value": "America/New_York",
//   "updated_at": "2020-08-18T02:20:56.950455Z",
//   "upload_url": "https://frameio-uploads-production.s3-accelerate.amazonaws.com/users/34b4f...cdcfe42b2e2f",
//   "user_default_color": "#ff40ff",
//   "user_hash": "1D39653455C86A85CA3D479C6D2ACE831211BC1B65770DF3747116DD320C3A00"
// }

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

v_type := CkJsonObject__stringOf(jResp,'_type');
account_id := CkJsonObject__stringOf(jResp,'account_id');
bio := CkJsonObject__stringOf(jResp,'bio');
context := CkJsonObject__stringOf(jResp,'context');
deleted_at := CkJsonObject__stringOf(jResp,'deleted_at');
digest_frequency := CkJsonObject__stringOf(jResp,'digest_frequency');
email := CkJsonObject__stringOf(jResp,'email');
email_confirm_by := CkJsonObject__stringOf(jResp,'email_confirm_by');
email_preferences := CkJsonObject__stringOf(jResp,'email_preferences');
features_seen := CkJsonObject__stringOf(jResp,'features_seen');
first_login_at := CkJsonObject__stringOf(jResp,'first_login_at');
from_google := CkJsonObject_BoolOf(jResp,'from_google');
id := CkJsonObject__stringOf(jResp,'id');
image_128 := CkJsonObject__stringOf(jResp,'image_128');
image_256 := CkJsonObject__stringOf(jResp,'image_256');
image_32 := CkJsonObject__stringOf(jResp,'image_32');
image_64 := CkJsonObject__stringOf(jResp,'image_64');
inserted_at := CkJsonObject__stringOf(jResp,'inserted_at');
joined_via := CkJsonObject__stringOf(jResp,'joined_via');
last_seen := CkJsonObject__stringOf(jResp,'last_seen');
location := CkJsonObject__stringOf(jResp,'location');
name := CkJsonObject__stringOf(jResp,'name');
next_digest_date := CkJsonObject__stringOf(jResp,'next_digest_date');
phone := CkJsonObject__stringOf(jResp,'phone');
profile_image := CkJsonObject__stringOf(jResp,'profile_image');
profile_image_original := CkJsonObject__stringOf(jResp,'profile_image_original');
roles := CkJsonObject__stringOf(jResp,'roles');
timezone_value := CkJsonObject__stringOf(jResp,'timezone_value');
updated_at := CkJsonObject__stringOf(jResp,'updated_at');
upload_url := CkJsonObject__stringOf(jResp,'upload_url');
user_default_color := CkJsonObject__stringOf(jResp,'user_default_color');
user_hash := CkJsonObject__stringOf(jResp,'user_hash');

CkHttp_Dispose(http);
CkStringBuilder_Dispose(sbResponseBody);
CkJsonObject_Dispose(jResp);

end;