Delphi еще немного помощи с авторизацией

не получается авторизация на бет сити( проверить автаризован или нет можно тут http://betcityru.com/history.php

Code:

var
PostData:TStringList;
S:string;
begin
PostData:=TStringList.Create;
PostData.Clear;
PostData.Add('login=g 6720168');
PostData.Add('pwd=793542');
PostData.Add('x=2');
PostData.Add('y=7');
IdHTTP1.Request.UserAgent:='Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1)';
s:=IdHTTP1.Post('http://betcityru.com/top.php',PostData);
//s:=IdHTTP1.get('http://betcityru.com/history.php');
memo1.Lines.Add(s);
PostData.Free;
end;

 

а теперь загугли idhttp как подключить куки

 

Code:

var
S,l,p:string;
PostData:TStringList;
begin
PostData:=TStringList.Create;
PostData.Clear;
PostData.Add('login=g 6720168');
PostData.Add('pass=793542');
IdHTTP1.Request.UserAgent:='Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1)';
idhttp1.AllowCookies:=true;
idhttp1.HandleRedirects:=true;
s:=IdHTTP1.Post('http://wap.betcityru.com/login.php',PostData);
memo1.Lines.Add(s);
PostData.Free;
end;

подключил но не получается все же...

 

еще нужно юзать TIdCookieManager. подключать его както так:
idhttp1.cookeymanager:=IdCookieManager1;

 

Чтобы не гадать, что не получается и нужны ли куки или нет, надо использовать сниффер.

 

Чего не получаеться?
входит же всё..

в мемо у тя текс с главной страницы..
где в вверху..
Номер счёта: 4088013 (Выйти)
Баланс: 14635.30 руб