[alikoder]

Помогите, плиз, как скачать с нета любой файл, в каталог с программой, нашел пару примеров, но не помогает.

[The Shadow]

Код:

var
fs: TFileStream;
begin
fs:=TFileStream.Create('file.txt', fmCreate);
IdHTTP.Get('http://site/file.txt');
fs.Free;
end;

[alikoder]

неа((( не качает, только создает пустой файл в папке и все((

[The Shadow]

Ой.

Код:

var
fs: TFileStream;
begin
fs:=TFileStream.Create('file.txt', fmCreate);
IdHTTP.Get('http://site/file.txt', fs);
fs.Free;
end;

[alikoder]

Спасибо =) сейчас качает