Как скачать файл с сервера в delphi?

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14

uses
  IdHTTP;

procedure DownloadFile(const AURL, AFileName: string);
var
  IdHTTP: TIdHTTP;
begin
  IdHTTP := TIdHTTP.Create(nil);
  try
    IdHTTP.Get(AURL, AFileName);
  finally
    IdHTTP.Free;
  end;
end;

1

DownloadFile('http://www.example.com/file.zip', 'C:Downloadsile.zip');

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

uses
  IdHTTP, IdException, IdSSL, IdSSLOpenSSL;

function DownloadFile(const AURL, AFileName: string): Boolean;
var
  IdHTTP: TIdHTTP;
begin
  IdHTTP := TIdHTTP.Create(nil);

  try
    IdHTTP.HandleRedirects := True;
    IdHTTP.Request.UserAgent := 'Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/89.0.4389.114 Safari/537.36';
    IdHTTP.IOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
    IdHTTP.Get(AURL, AFileName);
    Result := True;
  except
    on E: Exception do
    begin
      // Обработка ошибок
      Result := False;
    end;
  end;

  IdHTTP.Free;
end;

1
2
3
4

if DownloadFile('http://www.example.com/file.zip', 'C:Downloadsile.zip') then
  ShowMessage('Файл успешно загружен.')
else
  ShowMessage('Не удалось загрузить файл.');