[Stanei]

Добрый день, что-то не могу авторизоваться:

Код:

procedure Ts.Button1Click(Sender: TObject);
var
log, pass,vhod,v:string;
data:tstringlist;
begin
idhttp2.Request.UserAgent:='Opera/9.80 (Windows NT 6.2; Win64; x64; U; ru) Presto/2.10.289 Version/12.01';
idhttp2.Request.Host:='m.ok.ru';
idhttp2.Request.Accept:='text/html, application/xml;q=0.9, application/xhtml+xml, image/png, image/webp, image/jpeg, image/gif, image/x-xbitmap, */*;q=0.1';
idhttp2.Request.AcceptLanguage:='ru-RU,ru;q=0.9,en;q=0.8';

data:=tstringlist.Create;
log:=login.Text;
pass:=password.Text;
begin
 vhod:=idhttp2.Get('http://m.ok.ru/');
 v:=Pars('prevCmd=main&tkn=',vhod,'"');
 memo1.Lines.Add(v);
 Data.Add('st.posted=set');
 Data.Add('st.email='+login.Text);
 Data.Add('st.password='+password.Text);
 Data.Add('button_go=Войти');
 vhod:=idhttp2.Post('http://m.ok.ru/dk?bk=GuestMain&st.cmd=main&_prevCmd=main&tkn='+v, data);

 memo1.Lines.Add(vhod);
 Data.Free;
end;
end;

Что тут не так подскажите пожалуйста?

[ApxaHGe1]

allowredirect:=true

[Stanei]

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

allowredirect:=true

Редирект в свойствах idhttp включен, прием куков тоже, но попробую в коде написать, может поможет

[ApxaHGe1]

нет доступа к компу сейчас. В четверг могу на синапсе выложить рабочую авторизацию

[Stanei]

Буду весьма благодарен)