Delphi ActiveX Box: Get Root Folder Info

Back to Index

Gets the folder info for the root folder of a Box.com account. The root folder of a box.com account always has an id = "0".

Documentation: https://developer.box.com/reference#get-folder-info

CURL Command

curl https://api.box.com/2.0/folders/0 \
-H "Authorization: Bearer BOX_ACCESS_TOKEN" \

Delphi ActiveX Example

var
rest: TChilkatRest;
success: Integer;
bTls: Integer;
port: Integer;
bAutoReconnect: Integer;
sbResponseBody: TChilkatStringBuilder;
jsonResponse: TChilkatJsonObject;
type: WideString;
id: WideString;
sequence_id: Integer;
etag: Integer;
name: WideString;
created_at: Integer;
modified_at: Integer;
description: WideString;
size: Integer;
path_collectionTotal_count: Integer;
created_byType: WideString;
created_byId: WideString;
created_byName: WideString;
created_byLogin: WideString;
modified_byType: WideString;
modified_byId: WideString;
modified_byName: WideString;
modified_byLogin: WideString;
trashed_at: Integer;
purged_at: Integer;
content_created_at: Integer;
content_modified_at: Integer;
owned_byType: WideString;
owned_byId: WideString;
owned_byName: WideString;
owned_byLogin: WideString;
shared_link: Integer;
folder_upload_email: Integer;
parent: Integer;
item_status: WideString;
item_collectionTotal_count: Integer;
item_collectionOffset: Integer;
item_collectionLimit: Integer;
i: Integer;
count_i: Integer;
file_versionType: WideString;
file_versionId: WideString;
file_versionSha1: WideString;
sequence_id_str: WideString;
etag_str: WideString;
sha1: WideString;
by: WideString;
direction: WideString;

begin
rest := TChilkatRest.Create(Self);

//  URL: https://api.box.com/2.0/folders/0
bTls := 1;
port := 443;
bAutoReconnect := 1;
success := rest.Connect('api.box.com',port,bTls,bAutoReconnect);
if (success <> 1) then
  begin
    Memo1.Lines.Add('ConnectFailReason: ' + IntToStr(rest.ConnectFailReason));
    Memo1.Lines.Add(rest.LastErrorText);
    Exit;
  end;

rest.AddHeader('Authorization','Bearer BOX_ACCESS_TOKEN');

sbResponseBody := TChilkatStringBuilder.Create(Self);
success := rest.FullRequestNoBodySb('GET','/2.0/folders/0',sbResponseBody.ControlInterface);
if (success <> 1) then
  begin
    Memo1.Lines.Add(rest.LastErrorText);
    Exit;
  end;

jsonResponse := TChilkatJsonObject.Create(Self);
jsonResponse.LoadSb(sbResponseBody.ControlInterface);

type := jsonResponse.StringOf('type');
id := jsonResponse.StringOf('id');
sequence_id := jsonResponse.IsNullOf('sequence_id');
etag := jsonResponse.IsNullOf('etag');
name := jsonResponse.StringOf('name');
created_at := jsonResponse.IsNullOf('created_at');
modified_at := jsonResponse.IsNullOf('modified_at');
description := jsonResponse.StringOf('description');
size := jsonResponse.IntOf('size');
path_collectionTotal_count := jsonResponse.IntOf('path_collection.total_count');
created_byType := jsonResponse.StringOf('created_by.type');
created_byId := jsonResponse.StringOf('created_by.id');
created_byName := jsonResponse.StringOf('created_by.name');
created_byLogin := jsonResponse.StringOf('created_by.login');
modified_byType := jsonResponse.StringOf('modified_by.type');
modified_byId := jsonResponse.StringOf('modified_by.id');
modified_byName := jsonResponse.StringOf('modified_by.name');
modified_byLogin := jsonResponse.StringOf('modified_by.login');
trashed_at := jsonResponse.IsNullOf('trashed_at');
purged_at := jsonResponse.IsNullOf('purged_at');
content_created_at := jsonResponse.IsNullOf('content_created_at');
content_modified_at := jsonResponse.IsNullOf('content_modified_at');
owned_byType := jsonResponse.StringOf('owned_by.type');
owned_byId := jsonResponse.StringOf('owned_by.id');
owned_byName := jsonResponse.StringOf('owned_by.name');
owned_byLogin := jsonResponse.StringOf('owned_by.login');
shared_link := jsonResponse.IsNullOf('shared_link');
folder_upload_email := jsonResponse.IsNullOf('folder_upload_email');
parent := jsonResponse.IsNullOf('parent');
item_status := jsonResponse.StringOf('item_status');
item_collectionTotal_count := jsonResponse.IntOf('item_collection.total_count');
item_collectionOffset := jsonResponse.IntOf('item_collection.offset');
item_collectionLimit := jsonResponse.IntOf('item_collection.limit');
i := 0;
count_i := jsonResponse.SizeOfArray('path_collection.entries');
while i < count_i do
  begin
    jsonResponse.I := i;
    i := i + 1;
  end;

i := 0;
count_i := jsonResponse.SizeOfArray('item_collection.entries');
while i < count_i do
  begin
    jsonResponse.I := i;
    type := jsonResponse.StringOf('item_collection.entries[i].type');
    id := jsonResponse.StringOf('item_collection.entries[i].id');
    file_versionType := jsonResponse.StringOf('item_collection.entries[i].file_version.type');
    file_versionId := jsonResponse.StringOf('item_collection.entries[i].file_version.id');
    file_versionSha1 := jsonResponse.StringOf('item_collection.entries[i].file_version.sha1');
    sequence_id_str := jsonResponse.StringOf('item_collection.entries[i].sequence_id');
    etag_str := jsonResponse.StringOf('item_collection.entries[i].etag');
    sha1 := jsonResponse.StringOf('item_collection.entries[i].sha1');
    name := jsonResponse.StringOf('item_collection.entries[i].name');
    i := i + 1;
  end;

i := 0;
count_i := jsonResponse.SizeOfArray('item_collection.order');
while i < count_i do
  begin
    jsonResponse.I := i;
    by := jsonResponse.StringOf('item_collection.order[i].by');
    direction := jsonResponse.StringOf('item_collection.order[i].direction');
    i := i + 1;
  end;

Sample JSON Response Body

{
  "type": "folder",
  "id": "0",
  "sequence_id": null,
  "etag": null,
  "name": "All Files",
  "created_at": null,
  "modified_at": null,
  "description": "",
  "size": 826408,
  "path_collection": {
    "total_count": 0,
    "entries": [
    ]
  },
  "created_by": {
    "type": "user",
    "id": "",
    "name": "",
    "login": ""
  },
  "modified_by": {
    "type": "user",
    "id": "2787704945",
    "name": "chilkat",
    "login": "AutomationUser_434741_3nmGYSS7o5@@boxdevedition.com"
  },
  "trashed_at": null,
  "purged_at": null,
  "content_created_at": null,
  "content_modified_at": null,
  "owned_by": {
    "type": "user",
    "id": "2787704945",
    "name": "chilkat",
    "login": "AutomationUser_434741_3nmGYSS7o5@@boxdevedition.com"
  },
  "shared_link": null,
  "folder_upload_email": null,
  "parent": null,
  "item_status": "active",
  "item_collection": {
    "total_count": 2,
    "entries": [
      {
        "type": "file",
        "id": "246181882790",
        "file_version": {
          "type": "file_version",
          "id": "259636211878",
          "sha1": "c9d2492fb97f88a9b4d1e35f32a3410e95853f18"
        },
        "sequence_id": "0",
        "etag": "0",
        "sha1": "c9d2492fb97f88a9b4d1e35f32a3410e95853f18",
        "name": "hedgehogs.jpg"
      },
      {
        "type": "file",
        "id": "246167973161",
        "file_version": {
          "type": "file_version",
          "id": "259621592361",
          "sha1": "df7be9dc4f467187783aca68c7ce98e4df2172d0"
        },
        "sequence_id": "0",
        "etag": "0",
        "sha1": "df7be9dc4f467187783aca68c7ce98e4df2172d0",
        "name": "penguins.jpg"
      }
    ],
    "offset": 0,
    "limit": 100,
    "order": [
      {
        "by": "type",
        "direction": "ASC"
      },
      {
        "by": "name",
        "direction": "ASC"
      }
    ]
  }
}