procedure TAndroidModule1.jButton3Click(Sender: TObject); // downloand file
const
file_source='"/myfolder/myfile.jpg"';
downloandfile='newfile.jpg';
var
http: THTTPSend;
Url: string;
jpath:String;
begin
http := THTTPSend.Create;
http.Headers.Add ('Authorization:'+atoken) ; //Authorization
http.Headers.Add ('Dropbox-API-Arg:'+'{"path":'+file_source+'}') ;
Url := aurldown;
jpath :=self.GetEnvironmentDirectoryPath(dirDownloads)+'/'+downloandfile ;
if http.HTTPMethod('GET', Url) then
begin
HTTP.Document.SaveToFile(afile) ;
end
else
begin
ShowMessage('error(' + IntToStr(http.ResultCode) + ')' + http.ResultString);
end;
http.Free;
SHOWMESSAGE('fINISH');
end;
//----------------------
procedure TAndroidModule1.jButton4Click(Sender: TObject); //uploand file
const
alocalfile='myfile.jpg';
file_source='"/myfolder/myfile.jpg"';
var
http: THTTPSend;
Url: string;
// data:TfileStream ;
data:TStringList ;
jpath:String;
begin
jpath:=alocalfile;
http := THTTPSend.Create;
data:=TStringList .Create();
data.LoadFromFile(jPath);
HTTP.MimeType := 'Application/octet-stream';
http.UserAgent :='api-explorer-client';
HTTP.Headers.Add('Authorization' +':'+atoken) ;
http.Headers.Add('Dropbox-API-Arg'+':'+' {"path":'+file_source,"mode":{".tag":"overwrite"},"autorename":false,"mute":false,"strict_conflict":false}') ;
Url := 'https://content.dropboxapi.com/2/files/upload/' ;
try
HTTP.Document.LoadFromFile(jpath);
if HTTP.HTTPMethod('POST', URL) then
jPanel1 .Text :='Ολοκληρώθηκε η αποστολή του αρχείου'
else jPanel1 .Text :='Σφάλμα!!! Δεν έγινε η αποστολή του αρχείου....';
SHOWMESSAGE(INTTOSTR(HTTP.ResultCode)+':'+HTTP.ResultString);
finally
begin
jPanel1 .Text :=http.ResultString+http.Headers.Text ;
HTTP.Free;
end;
end;
data.Free ;
SHOWMESSAGE('OK');
end;
//------------ android
procedure TAndroidModule1.jButton1Click(Sender: TObject);
const
alocalfile='myfile.jpg';
file_source='"/myfolder/myfile.jpg"';
var
Url: string;
begin
jHttpClient1.AddClientHeader('User-Agent','api-explorer-client') ;
jHttpClient1.AddClientHeader('Authorization:',atoken) ; //Authorization
jHttpClient1.AddClientHeader('Dropbox-API-Arg:','{"path":'+file_source+'}') ;
jHttpClient1.UploadFormName:='DropBox' ;
Url := aurldown;
jHttpClient1.GetAsync (url) ;
SHOWMESSAGE('wait...');
end;
procedure TAndroidModule1.jHttpClient1ContentResult(Sender: TObject;
content: RawByteString);
var
list: TStringList;
jpath:String;
begin
showmessage('downloanding');
jpath:=Self.GetEnvironmentDirectoryPath(dirDownloads)+'/'+alocalfile;
if FileExists(jpath) then
DeleteFile(jpath) ;
list:= TStringList.Create;
list.Text:= content;
list.SaveToFile(jpath);
list.Free;
if FileExists(jpath) then
showmessage('file exist')
else
showmessage('Not Exist');
end;
procedure TAndroidModule1.jButton2Click(Sender: TObject);
const
alocalfile='myfile.jpg';
file_source='"/myfolder/myfile.jpg"';
var
Url: string;
ms:TMemoryStream ;
jpath:String;
begin
showmessage('uploanding');
jpath:=Self.GetEnvironmentDirectoryPath(dirDownloads)+'/'+alocalfile;
jHttpClient1.AddClientHeader('MimeType:','Application/octet-stream') ;
jHttpClient1.AddClientHeader('UserAgent:','api-explorer-client') ;
jHttpClient1.AddClientHeader('Authorization:',atoken) ;
jHttpClient1.AddClientHeader('Dropbox-API-Arg:',' {"path":"'+file_source+'","mode":{".tag":"overwrite"},"autorename":false,"mute":false,"strict_conflict":false}');
Url :='https://content.dropboxapi.com/2/files/upload/';
jHttpClient1.UploadFile(url,jpath) ;
// jHttpClient1.Post(aurldown);
showmessage(inttostr(jHttpClient1.GetResponseCode)) ;
showmessage('ok');
end;
procedure TAndroidModule1.jHttpClient1UploadFinished(Sender: TObject;
connectionStatusCode: integer; responseMessage: string; fileName: string);
begin
showmessage('finish upload connectionStatusCode' + inttostr(connectionStatusCode));
showmessage('finish upload responseMessage'+responseMessage);
end;