GET-запрос

[eldar]

Здравствуйте
Я написал прогу совсем маленькая которая отправляет get запрос она работает и отправляет вот только сервер присылает ответ не 200 ОК, а Pending...

Она посылает вот такой пакет

GET /links/add.html HTTP/1.1
Connection: keep-alive
Content-Type: text/html; charset=windows-1251
Keep-Alive: 300
Host: neo.liga.net
Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
Accept-Charset: windows-1251,utf-8;q=0.7,*;q=0.7
Accept-Encoding: gzip,deflate
Accept-Language: ru,en-us;q=0.7,en;q=0.3
User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.0.8) Gecko/2009032609 MRA 5.4 (build 02620) Firefox/3.0.8

А вот правильный пакет

GET /links/add.html HTTP/1.1
Host: neo.liga.net
User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.0.8) Gecko/2009032609 MRA 5.4 (build 02620) Firefox/3.0.8
Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
Accept-Language: ru,en-us;q=0.7,en;q=0.3
Accept-Encoding: gzip,deflate
Accept-Charset: windows-1251,utf-8;q=0.7,*;q=0.7
Keep-Alive: 300
Connection: keep-alive

Не понимаю что я не правильно сделал?

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdHTTP, StdCtrls, IdCookieManager;

type
  TForm1 = class(TForm)
    Button1: TButton;
    IdHTTP1: TIdHTTP;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
idhttp1.Request.Host:=('neo.liga.net');
idhttp1.Request.UserAgent:=('Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.0.8) Gecko/2009032609 MRA 5.4 (build 02620) Firefox/3.0.8');
idhttp1.Request.Accept:=('text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8');
idhttp1.Request.AcceptLanguage:=('ru,en-us;q=0.7,en;q=0.3');
idhttp1.Request.AcceptEncoding:=('gzip,deflate');
idhttp1.Request.AcceptCharset:=('windows-1251,utf-8;q=0.7,*;q=0.7');
idhttp1.Request.Connection:=('keep-alive');

Idhttp1.Get('http://neo.liga.net/links/add.html');
end;

end.

[JTG]

Странно, всё работает

Stat Connected.
Sent 07.04.2009 16:26:46: GET /links/add.html HTTP/1.1<EOL>Connection: keep-alive<EOL>Content-Type: text/html<EOL>Keep-Alive: 300<EOL>Host: neo.liga.net<EOL>Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8<EOL>Accept-Charset: windows-1251,utf-8;q=0.7,*;q=0.7<EOL>Accept-Encoding: gzip,deflate<EOL>Accept-Language: ru,en-us;q=0.7,en;q=0.3<EOL>User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.0.8) Gecko/2009032609 MRA 5.4 (build 02620) Firefox/3.0.8<EOL><EOL>

Recv 07.04.2009 16:26:47: HTTP/1.1 200 OK<EOL>Date: Tue, 07 Apr 2009 13:26:50 GMT<EOL>....

[eldar]

А у меня не работает
использую сниффер HTTP Debugger Pro 2.2

А у вас какая версия indy ?
а то я слышал что версия обновилась, у меня 9 версия.

[eldar]

Сейчас я написал точно такую же прогу, только на VB
она также работает и сервер посылает ответ 200 ОК то есть прога сто процентов работает, а вот на delphi такое не получается почему?

Мне вот кажется что это из-за компонента indy у меня 9 версия не скажете как обновить на 10 версию?

[Квэнди]

Обновление Indy
А ошибка у вас, скорей всего, связана с присутствием в вашем запросе принятия gzip-а, который вы, анверняка, не поддерживаете. Или добавьте Idcompressor к Idhttp, или уберите упоминание о gzip в заголовке вашего запроса.

[eldar]

Квэнди как всегда спасибо!
Работает!
Поставил компонент IdCompressionIntercept