Авторизация Яндекс (проблема с куками)

[_ZixeL_]

Доброго времени суток.
Есть авторизация на Яндексе(не знаю, правильно или нет, но работает)

procedure TForm1.Button1Click(Sender: TObject);
var data:Tstringlist;
    strpage:string;
    i:integer;
begin


idHTTP1.CookieManager:=IdCookieManager1;
idHTTP1.HandleRedirects:=true;
IdHTTP1.AllowCookies:=true;
IdSSLIOHandlerSocketOpenSSL1.Port:=433;

IdHTTP1.Request.Host:='passport.yandex.ru';
idHttp1.Request.Accept:='text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8';
idHttp1.Request.AcceptLanguage:='ru-ru,ru;q=0.8,en-us;q=0.5,en;q=0.3';
idhttp1.Request.Referer:='https://passport.yandex.ru/passport?mode=auth';
idhttp1.Request.ContentType:='application/x-www-form-urlencoded';
idhttp1.Request.Connection:='keep-alive';
idhttp1.Request.ContentLength:=200;
idhttp1.Request.Date:=now;
idhttp1.Request.AcceptEncoding:='gzip,deflate';
IdHTTP1.Request.UserAgent:='Mozilla/5.0 (Windows; U; Win98; en-US; rv:0.9.2) Gecko/20010726 Netscape6/6.1';


idHTTP1.IOHandler:=IdSSLIOHandlerSocketOpenSSL1;
     data:=tstringlist.Create;
     data.Add('from=passport');
     data.Add('retpath=https://mail.yandex.ru/');
     Data.Add('twoweeks=yes');
     Data.Add('login='+Edit1.Text);
     Data.Add('passwd='+Edit2.Text);





strpage:=idHTTP1.Post('https://passport.yandex.ru/passport?mode=auth', data);
end;

Авторизация проходит нормально. Но, никак не могу разобраться с кукисами. Яндекс мне отвечает

POST /passport?trace=pass-m4.2267.rloginoid&mode=error&error= nocki HTTP/1.0

Произошла ошибка.<br />Чтобы авторизация на&nbsp;Яндексе проходила корректно, необходимо включить куки (Cookies) в
&nbsp;настройках вашего браузера. 
О&nbsp;том, как&nbsp;включить&nbsp;куки, можно прочитать в&nbsp;разделе помощи

Мне после авторизации надо будет потом просто зайти на страницу Маркета и пропарсить одно значение, но этого сделать не могу(

Подскажите пожалуйста, в чём моя ошибка?

[_ZixeL_]

Неужели никто не знает такую элементарную вещь? Ведь есть знающие люди тут. Выручайте, очень надо.

Либо кто-то дайте рабочий код авторизации, пожалуйста

[_ZixeL_]

Доброго времени суток.
Есть авторизация на Яндексе(не знаю, правильно или нет, но работает)

procedure TForm1.Button1Click(Sender: TObject);
var data:Tstringlist;
    strpage:string;
    i:integer;
begin


idHTTP1.CookieManager:=IdCookieManager1;
idHTTP1.HandleRedirects:=true;
IdHTTP1.AllowCookies:=true;
IdSSLIOHandlerSocketOpenSSL1.Port:=433;

IdHTTP1.Request.Host:='passport.yandex.ru';
idHttp1.Request.Accept:='text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8';
idHttp1.Request.AcceptLanguage:='ru-ru,ru;q=0.8,en-us;q=0.5,en;q=0.3';
idhttp1.Request.Referer:='https://passport.yandex.ru/passport?mode=auth';
idhttp1.Request.ContentType:='application/x-www-form-urlencoded';
idhttp1.Request.Connection:='keep-alive';
idhttp1.Request.ContentLength:=200;
idhttp1.Request.Date:=now;
idhttp1.Request.AcceptEncoding:='gzip,deflate';
IdHTTP1.Request.UserAgent:='Mozilla/5.0 (Windows; U; Win98; en-US; rv:0.9.2) Gecko/20010726 Netscape6/6.1';


idHTTP1.IOHandler:=IdSSLIOHandlerSocketOpenSSL1;
     data:=tstringlist.Create;
     data.Add('from=passport');
     data.Add('retpath=https://mail.yandex.ru/');
     Data.Add('twoweeks=yes');
     Data.Add('login='+Edit1.Text);
     Data.Add('passwd='+Edit2.Text);





strpage:=idHTTP1.Post('https://passport.yandex.ru/passport?mode=auth', data);
end;

Авторизация проходит нормально. Но, никак не могу разобраться с кукисами. Яндекс мне отвечает

POST /passport?trace=pass-m4.2267.rloginoid&mode=error&error= nocki HTTP/1.0

Мне после авторизации надо будет потом просто зайти на страницу Маркета и пропарсить одно значение, но этого сделать не могу(

Подскажите пожалуйста, в чём моя ошибка?

[_ZixeL_]

Ап. Ни ужели никто не знает в чём проблема? Или что, никого нету рабочей авторизации яндекса? Не поверю, или тут просто всем лень помочь, тогда зачем форум создавали?

[_ZixeL_]

up////////

[ZuBy]

     data.Add('retpath=https://mail.yandex.ru/');

эта страница на которую ты попадаешь после авторизации?

если да, то замени ее на страницу Маркета

[_ZixeL_]

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

     data.Add('retpath=https://mail.yandex.ru/');

эта страница на которую ты попадаешь после авторизации?

если да, то замени ее на страницу Маркета

Это без толку, я не знаю зачем влепил сюда это.
Дело в том, если отключить редирект, то выскакивает ошибка у idHTTP

HTTP/1.1 302 Found

А если включить редирект, то получается такая картина: СКРИН

[_ZixeL_]

ап!111......

[_ZixeL_]

Апппппп.....

[BDA]

IdHTTP + IdSSLIOHandlerSocketOpenSSL + IdCookieManager:

IdHTTP1.IOHandler := IdSSLIOHandlerSocketOpenSSL1;
IdHTTP1.CookieManager := IdCookieManager1;
IdHTTP1.HandleRedirects := true;
IdHTTP1.get('https://passport.yandex.ru/passport?mode=auth&from=market&retpath=http%3A%2F%2Fmarket.yandex.ru&login=' + login.text + '&passwd=' + password.text + '&twoweeks=yes');
//запрос нужной страницы