delphi10 安卓手机下载文件

在 Delphi 10 中，你可以使用 TNetHTTPClient 组件来下载文件到安卓手机。下面是一个简单的示例代码：

uses
  System.Net.HttpClient, System.Net.URLClient, System.IOUtils;

procedure DownloadFile(const URL, DestFileName: string);
var
  HttpClient: THTTPClient;
  Response: IHTTPResponse;
begin
  HttpClient := THTTPClient.Create;
  try
    Response := HttpClient.Get(URL);
    if Response.StatusCode = 200 then
    begin
      TFile.WriteAllBytes(DestFileName, Response.RawBytes);
      ShowMessage('文件下载成功！');
    end
    else
    begin
      ShowMessageFmt('文件下载失败：%d %s', [Response.StatusCode, Response.StatusText]);
    end;
  finally
    HttpClient.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  DownloadFile('http://example.com/file.txt', TPath.Combine(TPath.GetDocumentsPath, 'file.txt'));
end;

你只需要将 `DownloadFile` 方法中的 URL 替换为你要下载的文件的链接，`DestFileName` 替换为你要保存的文件路径。然后在按钮的点击事件中调用 `DownloadFile` 方法即可完成下载。请注意，需要添加 `System.Net.HttpClient`、`System.Net.URLClient` 和 `System.IOUtils` 单元。

希望这可以帮助到你！如果你有任何问题，请随时提问。