Как скачать файл с сайта используя firemonkey для android в Delphi?

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22

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

procedure TForm1.Button1Click(Sender: TObject);
var
  httpClient: TNetHTTPClient;
  url: TURI;
  response: IHTTPResponse;
  filename: string;
begin
  // Создаем экземпляр клиента HTTP
  httpClient := TNetHTTPClient.Create(nil);
  try
    url := TURI.Create('https://example.com/file.txt'); // Задаем URL файла для скачивания
    response := httpClient.Get(url); // Скачиваем файл
    filename := TPath.Combine(TPath.GetDocumentsPath, 'file.txt'); // Задаем имя файла и путь сохранения
    TFile.WriteAllBytes(filename, response.RawBytes); // Сохраняем файл
    ShowMessage('Файл успешно скачан');
  finally
    httpClient.Free;
  end;
end;