procedure TForm1.Button1Click(Sender: TObject);
var
SomeStream : TMemoryStream;
begin
RESTRequest1.Method:=TRESTRequestMethod.rmGET;
RESTClient1.BaseURL:='https://content.dropboxapi.com/2/files/download';
with RESTRequest1.Params.AddItem do begin
name := 'Authorization';
Value := 'Bearer Z*************************'; // настоящий токен
ContentType := ctNone;
Kind := pkHTTPHEADER;
Options := [poDoNotEncode];
end;
with RESTRequest1.Params.AddItem do begin
name := 'Dropbox-API-Arg';
Value := '{"path": "/имя файла на боксе"}';
ContentType := ctNone;
Kind := pkHTTPHEADER;
Options := [poDoNotEncode];
end;
RESTRequest1.Execute;
SomeStream := tmemorystream.Create;
try
Somestream.WriteData(RESTResponse1.RawBytes,Length(RESTResponse1.RawBytes));
SomeStream.SaveToFile('dowloaded.file');
finally
SomeStream.free;
end;
end;