Pascal (Lazarus/Delphi)

Upload String to Dropbox

See more Dropbox Examples

Uploads a string to a file on Dropbox. This example can upload content up to 150MB, assuming a 150MB string fits in memory for your app. Larger files must be uploaded with an upload session (upload_session/start). Pascal (Lazarus/Delphi)

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.Rest,
  Chilkat.DtObj,
  Chilkat.JsonObject,
  Chilkat.CkDateTime;

// ---------------------------------------------------------------------------

procedure RunDemo;
var
  success: Boolean;
  rest: TRest;
  content: string;
  json: TJsonObject;
  responseStr: string;
  jsonResp: TJsonObject;
  size: Integer;
  rev: string;
  clientModified: string;
  ckdt: TCkDateTime;
  bLocalTime: Boolean;
  dt: TDtObj;

begin
  success := False;

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

  //  A Dropbox access token should have been previously obtained.
  //  Dropbox access tokens do not expire.
  //  See Dropbox Access Token.

  rest := TRest.Create;

  //  Connect to Dropbox
  success := rest.Connect('content.dropboxapi.com',443,True,True);
  if (success = False) then
    begin
      WriteLn(rest.LastErrorText);
      Exit;
    end;

  //  Add request headers.
  rest.AddHeader('Content-Type','application/octet-stream');
  rest.AddHeader('Authorization','Bearer DROPBOX_ACCESS_TOKEN');

  //  The upload "parameters" contained in JSON passed in an HTTP request header.
  //  This is the JSON to be added in this example:
  //  { 
  //     "path": "/jack.txt",
  //     "mode": "add",
  //     "autorename": true,
  //     "mute": false
  //  }

  //  This will be the content of the file created in Dropbox.
  content := 'All work and no play makes Jack a dull boy';

  json := TJsonObject.Create;
  json.AppendString('path','/jack.txt');
  json.AppendString('mode','add');
  json.AppendBool('autorename',True);
  json.AppendBool('mute',False);
  rest.AddHeader('Dropbox-API-Arg',json.Emit());

  //  Do the upload.  The URL is https://content.dropboxapi.com/2/files/upload.
  //  We already connected to content.dropboxapi.com using TLS (i.e. HTTPS),
  //  so now we only need to specify the path "/2/files/upload".

  responseStr := rest.FullRequestString('POST','/2/files/upload',content);
  if (rest.LastMethodSuccess = False) then
    begin
      WriteLn(rest.LastErrorText);
      Exit;
    end;

  //  When successful, Dropbox responds with a 200 response code.
  if (rest.ResponseStatusCode <> 200) then
    begin
      //  Examine the request/response to see what happened.
      WriteLn('response status code = ' + rest.ResponseStatusCode);
      WriteLn('response status text = ' + rest.ResponseStatusText);
      WriteLn('response header: ' + rest.ResponseHeader);
      WriteLn('response body (if any): ' + responseStr);
      WriteLn('---');
      WriteLn('LastRequestStartLine: ' + rest.LastRequestStartLine);
      WriteLn('LastRequestHeader: ' + rest.LastRequestHeader);
      Exit;
    end;
  WriteLn('LastRequestHeader: ' + rest.LastRequestHeader);

  //  The response is JSON.
  jsonResp := TJsonObject.Create;
  jsonResp.EmitCompact := False;
  jsonResp.Load(responseStr);

  //  Show the JSON response.
  WriteLn(jsonResp.Emit());

  //  Returns JSON that looks like this:
  //  { 
  //   "name": "jack.txt",
  //   "path_lower": "/jack.txt",
  //   "path_display": "/jack.txt",
  //   "id": "id:yqx4-tE_NKAAAAAAAAAAAQ",
  //   "client_modified": "2016-06-02T20:42:11Z",
  //   "server_modified": "2016-06-02T20:42:11Z",
  //   "rev": "8482db15f",
  //   "size": 42
  //  }

  //  Sample code to get data from the JSON response:
  size := jsonResp.IntOf('size');
  WriteLn('size = ' + size);

  rev := jsonResp.StringOf('rev');
  WriteLn('rev = ' + rev);

  clientModified := jsonResp.StringOf('client_modified');
  ckdt := TCkDateTime.Create;
  ckdt.SetFromTimestamp(clientModified);
  bLocalTime := True;
  dt := TDtObj.Create;
  ckdt.ToDtObj(bLocalTime,dt);

  WriteLn(dt.Day + '/' + dt.Month + '/' + dt.Year + ' ' + dt.Hour + ':' + dt.Minute);


  rest.Free;
  json.Free;
  jsonResp.Free;
  ckdt.Free;
  dt.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.