Upload a File to Dropbox
The API Docs for Dropbox can be found at the link below:
https://www.dropbox.com/developers/core/docs
This post doesn't show how the autorization flow procedure.
Use the following procedure to Upload a File to Dropbox
procedure TForm1.UploadtoCloud(file_path:String);
var
LURL:String;
cloud_path:String;
upload_stream:TFileStream;
begin
//Upload File
addtolog('Direct Upload File');
//root : The root relative to which the path is specified. Valid values are sandbox and dropbox - auto
//path : the path to the file you want to update
local_filename := ExtractFileName(file_path); //Currently extracts file name, and puts in parent folder
cloud_path := local_filename;
//file : Absolute path to the local file you want to upload
local_file_path := file_path;
addtolog(cloud_path);//add to system log
addtolog(local_file_path);//add to system log
//Disable Response Features
RESTResponseDataSetAdapter1.AutoUpdate := false;
//change Request Settings
//https://api-content.dropbox.com/1/
RESTRequest1.Method := TRestRequestMethod.rmPUT;
RESTClient1.BaseURL := 'https://api-content.dropbox.com/1/';
// files_put/auto/<path>?param=val
//Using auto, automatically selects dropbox or sandbox folders
LURL:= 'files_put/auto/'+ URLEncode(cloud_path);
RESTRequest1.Resource := LURL;
//Open File to FileStream
upload_stream := TFileStream.Create(local_file_path,fmOpenRead);
upload_stream.Position := 0;
//Set Content-Type to text/plain
RESTRequest1.Params.AddHeader('Content-Type', 'text/plain');
//Set Request Body to FileStream
RESTRequest1.ClearBody;
RESTRequest1.AddBody(upload_stream,TRESTContentType.ctTEXT_PLAIN);
addtolog(RESTClient1.BaseURL);//add to system log
addtolog(RESTRequest1.Resource);//add to system log
try
//Try Request
RESTRequest1.Execute;
except
on e: Exception do
begin
ShowMessage(e.Message);//Show Exception
addtolog(e.Message);//add to system log
end;
end;
upload_stream.Free; //Free File
end;