Форум АНТИЧАТ - Показать сообщение отдельно - [Delphi]/[Pascal] Задай вопрос, получи ответ

iGlass,

PHP код:


		
			
procedure TForm1.Button1Click(Sender: TObject);

var

Data : TStringList;

PostSend, GetSend : string;

begin

  IdHTTP1.Request.UserAgent       :=  'Opera/9.80 (Windows NT 5.1; U; ru) Presto/2.5.22 Version/10.51';

  IdHTTP1.Request.Referer         :=  'http://forum.antichat.ru/index.php?';

  IdHTTP1.Request.Accept          :=  'text/html, application/xml;q=0.9, application/xhtml+xml, image/png, image/jpeg, image/gif, image/x-xbitmap, */*;q=0.1';

  IdHTTP1.Request.AcceptLanguage  :=  'ru-RU,ru;q=0.9,en;q=0.8';

  IdHTTP1.Request.AcceptCharSet   :=  'iso-8859-1, utf-8, utf-16, *;q=0.1';

  IdHTTP1.Request.AcceptEncoding  :=  'deflate, gzip, x-gzip, identity, *;q=0';

  IdHTTP1.Request.Connection      :=  'Keep-Alive, TE';

  IdHTTP1.Request.ContentType     :=  '';



  GetSend := IdHTTP1.Get('http://forum.antichat.ru/index.php?');



  Data := TStringList.Create;

  Data.Add('vb_login_username='+Edit1.Text);

  Data.Add('vb_login_password='+Edit2.Text);

  Data.Add('cookieuser=1');

  Data.Add('s=');

  Data.Add('do=login');

  Data.Add('forceredirect=1');

  Data.Add('vb_login_md5password=');



  PostSend := IdHTTP1.Post('http://forum.antichat.ru/login.php', Data);

end;

если смотреть в сниффере когда логинишся на форуме через браузер, то после
vb_login_md5password=HTTP/1.1 200 OK
Server: nginx
Date: Fri, 30 Apr 2010 05:55:47 GMT
Content-Type: text/html; charset=Windows-1251
Connection: keep-alive
...
...

а в этом примере идет после
vb_login_md5password=&HTTP/1.1 200 OK
Server: nginx
Date: Fri, 30 Apr 2010 05:55:47 GMT
Content-Type: text/html; charset=Windows-1251
Connection: keep-alive
...
...

хз почему...