[Cadmy]

Как сохранить текстовый файл со статическим адресом, например http://site.ru/test.txt, из интернета на диск C?

[lux16]

Код:

var
 http: TIdHTTP;
 ms: TMemoryStream;
begin
 http := TIdHTTP.Create(nil);
 http.Get('http://site.ru/test.txt', ms);
 ms.Position := 0;
 ms.SaveToFile('file.txt');
 ms.Free;
 http.Free;
end;

[Kaktuz]

Не пойму по какой причине мой делфи ругается на данный код.
В чем может быть загвоздка, знает кто?

[angvelem]

ms не создан и при его освобождении будет "ругаться".

[mak-karpov]

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

ms не создан и при его освобождении будет "ругаться".

ms действительно не создан, но ругаться будет только при освобождении методом Destroy (метод Free проверяет). В данном случае ругаться будет на ms.Position и т.д.

[Pyro]

http://www.delphisources.ru/forum/sh...ad.php?t=18167