Delphi ActiveX Box: Upload File

Back to Index

Uploads a file to a destination (parent) folder. The BOX_FOLDER_ID should be replaced with the id of the folder, or 0 for the root folder.

Documentation: https://developer.box.com/reference#upload-a-file

CURL Command

curl https://upload.box.com/api/2.0/files/content \
  -H "Authorization: Bearer BOX_ACCESS_TOKEN" -X POST \
  -F attributes='{"name":"tigers.jpeg", "parent":{"id":"BOX_FOLDER_ID"}}' \
  -F file=@tigers.jpeg

Delphi ActiveX Example

var
rest: TChilkatRest;
success: Integer;
bTls: Integer;
port: Integer;
bAutoReconnect: Integer;
fileStream2: TChilkatStream;
strResponseBody: WideString;
jsonResponse: TChilkatJsonObject;
total_count: Integer;
i: Integer;
count_i: Integer;
type: WideString;
id: WideString;
sequence_id: WideString;
etag: WideString;
sha1: WideString;
name: WideString;
description: WideString;
size: Integer;
path_collectionTotal_count: Integer;
created_at: WideString;
modified_at: WideString;
trashed_at: Integer;
purged_at: Integer;
content_created_at: WideString;
content_modified_at: WideString;
created_byType: WideString;
created_byId: WideString;
created_byName: WideString;
created_byLogin: WideString;
modified_byType: WideString;
modified_byId: WideString;
modified_byName: WideString;
modified_byLogin: WideString;
owned_byType: WideString;
owned_byId: WideString;
owned_byName: WideString;
owned_byLogin: WideString;
shared_link: Integer;
parentType: WideString;
parentId: WideString;
parentSequence_id: WideString;
parentEtag: WideString;
parentName: WideString;
item_status: WideString;
j: Integer;
count_j: Integer;
sequence_id_bool: Integer;
etag_bool: Integer;

begin
rest := TChilkatRest.Create(Self);

//  URL: https://upload.box.com/api/2.0/files/content
bTls := 1;
port := 443;
bAutoReconnect := 1;
success := rest.Connect('upload.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.PartSelector := '1';
rest.AddHeader('Content-Disposition','form-data; name="attributes"');
rest.SetMultipartBodyString('{"name":"tigers.jpeg", "parent":{"id":"BOX_FOLDER_ID"}}');

rest.PartSelector := '2';
fileStream2 := TChilkatStream.Create(Self);
fileStream2.SourceFile := 'tigers.jpeg';
rest.AddHeader('Content-Disposition','form-data; name="tigers.jpeg"; filename="tigers.jpeg"');
rest.AddHeader('Content-Type','image/jpeg');
rest.SetMultipartBodyStream(fileStream2.ControlInterface);

rest.PartSelector := '0';

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

rest.PartSelector := '0';
rest.AddHeader('Content-Type','multipart/form-data');

strResponseBody := rest.FullRequestMultipart('POST','/api/2.0/files/content');
if (rest.LastMethodSuccess <> 1) then
  begin
    Memo1.Lines.Add(rest.LastErrorText);
    Exit;
  end;

jsonResponse := TChilkatJsonObject.Create(Self);
jsonResponse.Load(strResponseBody);

total_count := jsonResponse.IntOf('total_count');
i := 0;
count_i := jsonResponse.SizeOfArray('entries');
while i < count_i do
  begin
    jsonResponse.I := i;
    type := jsonResponse.StringOf('entries[i].type');
    id := jsonResponse.StringOf('entries[i].id');
    sequence_id := jsonResponse.StringOf('entries[i].sequence_id');
    etag := jsonResponse.StringOf('entries[i].etag');
    sha1 := jsonResponse.StringOf('entries[i].sha1');
    name := jsonResponse.StringOf('entries[i].name');
    description := jsonResponse.StringOf('entries[i].description');
    size := jsonResponse.IntOf('entries[i].size');
    path_collectionTotal_count := jsonResponse.IntOf('entries[i].path_collection.total_count');
    created_at := jsonResponse.StringOf('entries[i].created_at');
    modified_at := jsonResponse.StringOf('entries[i].modified_at');
    trashed_at := jsonResponse.IsNullOf('entries[i].trashed_at');
    purged_at := jsonResponse.IsNullOf('entries[i].purged_at');
    content_created_at := jsonResponse.StringOf('entries[i].content_created_at');
    content_modified_at := jsonResponse.StringOf('entries[i].content_modified_at');
    created_byType := jsonResponse.StringOf('entries[i].created_by.type');
    created_byId := jsonResponse.StringOf('entries[i].created_by.id');
    created_byName := jsonResponse.StringOf('entries[i].created_by.name');
    created_byLogin := jsonResponse.StringOf('entries[i].created_by.login');
    modified_byType := jsonResponse.StringOf('entries[i].modified_by.type');
    modified_byId := jsonResponse.StringOf('entries[i].modified_by.id');
    modified_byName := jsonResponse.StringOf('entries[i].modified_by.name');
    modified_byLogin := jsonResponse.StringOf('entries[i].modified_by.login');
    owned_byType := jsonResponse.StringOf('entries[i].owned_by.type');
    owned_byId := jsonResponse.StringOf('entries[i].owned_by.id');
    owned_byName := jsonResponse.StringOf('entries[i].owned_by.name');
    owned_byLogin := jsonResponse.StringOf('entries[i].owned_by.login');
    shared_link := jsonResponse.IsNullOf('entries[i].shared_link');
    parentType := jsonResponse.StringOf('entries[i].parent.type');
    parentId := jsonResponse.StringOf('entries[i].parent.id');
    parentSequence_id := jsonResponse.StringOf('entries[i].parent.sequence_id');
    parentEtag := jsonResponse.StringOf('entries[i].parent.etag');
    parentName := jsonResponse.StringOf('entries[i].parent.name');
    item_status := jsonResponse.StringOf('entries[i].item_status');
    j := 0;
    count_j := jsonResponse.SizeOfArray('entries[i].path_collection.entries');
    while j < count_j do
      begin
        jsonResponse.J := j;
        type := jsonResponse.StringOf('entries[i].path_collection.entries[j].type');
        id := jsonResponse.StringOf('entries[i].path_collection.entries[j].id');
        sequence_id_bool := jsonResponse.IsNullOf('entries[i].path_collection.entries[j].sequence_id');
        etag_bool := jsonResponse.IsNullOf('entries[i].path_collection.entries[j].etag');
        name := jsonResponse.StringOf('entries[i].path_collection.entries[j].name');
        j := j + 1;
      end;

    i := i + 1;
  end;

Sample JSON Response Body

{
  "total_count": 1,
  "entries": [
    {
      "type": "file",
      "id": "5000948880",
      "sequence_id": "3",
      "etag": "3",
      "sha1": "134b65991ed521fcfe4724b7d814ab8ded5185dc",
      "name": "tigers.jpeg",
      "description": "a picture of tigers",
      "size": 629644,
      "path_collection": {
        "total_count": 2,
        "entries": [
          {
            "type": "folder",
            "id": "0",
            "sequence_id": null,
            "etag": null,
            "name": "All Files"
          },
          {
            "type": "folder",
            "id": "11446498",
            "sequence_id": "1",
            "etag": "1",
            "name": "Pictures"
          }
        ]
      },
      "created_at": "2012-12-12T10:55:30-08:00",
      "modified_at": "2012-12-12T11:04:26-08:00",
      "trashed_at": null,
      "purged_at": null,
      "content_created_at": "2013-02-04T16:57:52-08:00",
      "content_modified_at": "2013-02-04T16:57:52-08:00",
      "created_by": {
        "type": "user",
        "id": "17738362",
        "name": "sean rose",
        "login": "sean@box.com"
      },
      "modified_by": {
        "type": "user",
        "id": "17738362",
        "name": "sean rose",
        "login": "sean@box.com"
      },
      "owned_by": {
        "type": "user",
        "id": "17738362",
        "name": "sean rose",
        "login": "sean@box.com"
      },
      "shared_link": null,
      "parent": {
        "type": "folder",
        "id": "11446498",
        "sequence_id": "1",
        "etag": "1",
        "name": "Pictures"
      },
      "item_status": "active"
    }
  ]
}