[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

[Kaktuz]

А вот как быть если на сайте используется PHP скрип и страницы отображаются не полным путем, а к примеру: http://www.web.com/?g=num.
Как бы так прямого формата для сохранения нету, но страница есть. Наверное таки нужно будет грузить её сначала в WebBrowser и потом уже сохранять? Хотелось бы конечно облегчить программу, сделать компактной.

[NumLock]

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

Как бы так прямого формата для сохранения нету, но страница есть.

Response.ContentType == 'text/html'

[PhoeniX]

Бррр, а нафиг вообще тут TMemoryStream, если есть православный TFileStream?