Содержимое HTML страницы

[Fok]

Пробую получить содержимое страницы при помощи Инди

var
  s:string;
begin
 s:= IdHTTP1.Get('http://zalil.ru/30338175');
 Memo1.Lines.Add(s);
 end;

Нулевой результат

var
  ms : TMemoryStream;
  sl : TStringList;
  s : string;
begin
  sl := TStringList.Create;
  ms := TMemoryStream.Create;
  IdHTTP1.Get('http://zalil.ru/30338175',ms);
  ms.Seek(0,0);
  sl.LoadFromStream(ms);
  s := sl.Text;
  Form1.Memo1.Lines.Add(s);
  end;

Так тоже ничего (
Подскажите как с инди релизовать ?

[dosha]

проснифери , там заголовок разный, поэтому в результате 0

[Fok]

Проблема и в получении

 Memo1.Lines.Text:=IdHTTP1.Response.RawHeaders.Text;
  IdHTTP1.Response.RawHeaders.Extract('Cookie', Memo1.Lines);

Может кто нибудь поделится мыслями ?

[bulldog5293]

var
z:integer;
p:string;
begin
...
for Z:=0 to IdHTTP1.CookieManager.CookieCollection.Count-1 do
        p:=p+IdHTTP1.CookieManager.CookieCollection[Z].CookieName+'='+IdHTTP1.CookieManager.CookieCollection[Z].Value+';';
...
end;

[Пепел Феникса]

Memo1.Text:=idhttp1.Get('http://zalil.ru/30338175');

[Fok]

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

var
z:integer;
p:string;
begin
...
for Z:=0 to IdHTTP1.CookieManager.CookieCollection.Count-1 do
        p:=p+IdHTTP1.CookieManager.CookieCollection[Z].CookieName+'='
+IdHTTP1.CookieManager.CookieCollection[Z].Value+';';
...
end;

Сообщение от Пепел Феникса

Memo1.Text:=idhttp1.Get('http://zalil.ru/30338175');

В обоих случаях результат нулевой(пустой лист)
?

[Stilet]

Пардонте, а с чего ты взял что http://zalil.ru/30338175 не выкатит тебе содержимое файла? С чего ты взял что вернется именно страница?
Вот тот второй вариант через Stream вполне правильной, но нужно не TMemoryStream а TFileStream чтоб в файл сохранило.

[Fok]

Stilet Всё верно ,заработало !!!

[Fok]

Никак не получается получит содержимое
пробую

  fs:= TFileStream.Create('c:\file', fmCreate);
  (*результат =ok! *)  IdHTTP1.Get('http://programmersforum.ru/images/1070/misc/vbulletin3_logo_white.gif',fs);
  (* результат =0 ??? *)  IdHTTP1.Get('http://zalil.ru/30338175',fs);

Нужна помощь !

[exn]

на zalil "забанен" юзерагент indy )