delphi10 安卓下载文件
时间: 2023-08-23 20:10:11 浏览: 116
在Delphi 10中,你可以使用THTTPClient组件来下载文件到安卓设备。下面是一个简单的例子:
```delphi
uses
System.Net.HttpClient, System.Net.URLClient, System.Classes;
procedure DownloadFile(const AURL, AFileName: string);
var
HTTPClient: THTTPClient;
Response: IHTTPResponse;
FileStream: TFileStream;
begin
HTTPClient := THTTPClient.Create;
try
Response := HTTPClient.Get(AURL);
if Response.StatusCode = 200 then // 确保请求成功
begin
FileStream := TFileStream.Create(AFileName, fmCreate);
try
Response.ContentStream.Position := 0;
FileStream.CopyFrom(Response.ContentStream, Response.ContentStream.Size);
finally
FileStream.Free;
end;
end;
finally
HTTPClient.Free;
end;
end;
```
你可以调用`DownloadFile`函数,传入要下载的文件的URL和保存的文件名。例如:
```delphi
DownloadFile('http://example.com/file.txt', 'C:\path\to\save\file.txt');
```
请注意,你需要确保在安卓设备上有适当的权限来访问网络和文件系统。