Подгрузить файл из интернета

[tronuo]

Подскажите плз, как подгрузить текстовый файл (*.txt) в программу Delphi. Типо LoadFromFile(), только из интернета.

[Alex11223]

мемо\ричедит и т.д. := idhttp1.get('адрес'); idhttp1 переменная типа Tidhttp


и из него SaveToFile.

[Shouldercannon]

Сообщение от Docbrain13

tronuo, попробуйте API-функцию KillYouselfByWall

Чёткая функция

[_Troy]

Вот есть пример. Код не мой (нашел где-то в интернете).

[Стелс]

uses UrlMon;
.......
function DownloadFile(Source, Dest: string): Boolean;
begin
  try
    Result := UrlDownloadToFile(nil, PChar(Source), PChar(Dest), 0, nil) = 0;
  except
    Result := False;
  end;
end;

TForm1.Button1Click(Sender: TObject);
var
    apath:string;
begin
......
  if DownloadFile('http://www.ваш адрес/ваш файл', PChar(apath) + '/ваш файл') then
  begin
.........
end;
 end.