Pascal (Lazarus/Delphi)

Download File from Dropbox

See more Dropbox Examples

Downloads a file from Dropbox. 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.BinData,
  Chilkat.Rest,
  Chilkat.DtObj,
  Chilkat.JsonObject,
  Chilkat.CkDateTime;

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

procedure RunDemo;
var
  success: Boolean;
  rest: TRest;
  json: TJsonObject;
  bd: TBinData;
  apiResult: string;
  jsonResult: 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('Authorization','Bearer DROPBOX_ACCESS_TOKEN');

  //  The download "parameters" are contained in JSON passed in an HTTP request header.
  //  This is the JSON indicating the file to be downloaded:
  //  { 
  //     "path": "/Homework/lit/hamlet.xml",
  //  }

  json := TJsonObject.Create;
  json.AppendString('path','/Homework/lit/hamlet.xml');
  rest.AddHeader('Dropbox-API-Arg',json.Emit());

  bd := TBinData.Create;
  success := rest.FullRequestNoBodyBd('POST','/2/files/download',bd);
  if (success = 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): ' + bd.GetString('utf-8'));
      WriteLn('---');
      WriteLn('LastRequestStartLine: ' + rest.LastRequestStartLine);
      WriteLn('LastRequestHeader: ' + rest.LastRequestHeader);
      Exit;
    end;

  //  The file was downloaded into bd.
  //  Save it to the filesystem.
  success := bd.WriteFile('c:/temp/qa_output/hamlet.xml');

  //  Information about the downloaded file is also available as JSON in a response header.
  //  The "dropbox-api-result" response header contains the information.  For example:
  apiResult := rest.ResponseHdrByName('dropbox-api-result');
  WriteLn(apiResult);

  //  In this case, the pretty-formatted dropbox-api-result JSON looks like this:
  //  { 
  //    "name": "hamlet.xml",
  //    "path_lower": "/homework/lit/hamlet.xml",
  //    "path_display": "/Homework/lit/hamlet.xml",
  //    "id": "id:74FkdeNuyKAAAAAAAAAAAQ",
  //    "client_modified": "2016-06-02T23:19:00Z",
  //    "server_modified": "2016-06-02T23:19:00Z",
  //    "rev": "9482db15f",
  //    "size": 279658
  //  }

  //  Load the JSON, pretty-print it, and demonstrate how to get some values...
  jsonResult := TJsonObject.Create;
  jsonResult.EmitCompact := False;
  jsonResult.Load(apiResult);
  //  Show the JSON pretty-printed...
  WriteLn(jsonResult.Emit());

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

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

  clientModified := jsonResult.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;
  bd.Free;
  jsonResult.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.