Компонент IdHTTP

[Nicker]

Добрый день, нужна помощь с IdHTTP, когда запрашиваю GET он мне ток выводит текст страници а мне нужно и хедер ее, как мне получить его в одном запросе и то и другое?

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

хидер ответа сервера?
посмотрите idhttp.responde(или как то так он называется)

[Nicker]

Мучал его но он ток частями показывает, а мне нужно весь(

[Nicker]

Все поискал хорошо нашол

Http.Response.RawHeaders.GetText

еще вопрос, подключаю компонент IdCompressionIntercept1

 Http.Intercept:=IdCompressionIntercept1;

и все равно одни закарлючки((( как правильно его подключить?

Вот мой код:

begin
 try
    Http := TIdHTTP.Create(Self);
    Data := TStringList.Create;
    CM := TidCookieManager.Create(Http);
    Http.AllowCookies := true;
    Http.CookieManager := CM;
    Http.Intercept:=IdCompressionIntercept1;
    Http.HandleRedirects := true;

   Http.Request.Host:='host';
   Http.Request.UserAgent:='Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.0.10) Gecko/2009042316 Firefox/3.0.10';
   Http.Request.Accept:='text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8';
   Http.Request.AcceptLanguage:='ru,en-us;q=0.7,en;q=0.3';
   Http.Request.AcceptCharSet:='windows-1251,utf-8;q=0.7,*;q=0.7';
   Http.Request.Referer:='http://host/';
   Http.Request.AcceptEncoding:='gzip,deflate';




Memo1.Lines.Text:=Http.Get('http://host');

Memo2.Lines.Add(Http.Response.RawHeaders.GetText);
for i := 0 to Http.CookieManager.CookieCollection.Count - 1 do
  Memo2.Lines.Add(CM.CookieCollection.Items[i].CookieText + #13#10);

  finally
   Data.Free;
   CM.Free;
   Http.Free;
  end;

end;

[Alter]

Вам нужен IdCompressorZLib1: TIdCompressorZLib;, вот и всё. А не интерсептор!