Авторизация на mail.ru. Ошибка HTTP/1.1 302 OK.

[webber9989]

Работаю в delphi xe.
Последний инди и библы. (спросите зачем мне ssl, когда работа с http? Отвечу, после успешной авторизации делаю запрос на деньги@mail.ru, а там протокол https)

Не пойму в чем трабла, написал свой код, вчера сидел весь день, так ничего и не добился, пошел сюда и нашел следующий код 100% рабочий из темы модератора.

procedure TForm1.Button1Click(Sender: TObject);
var params,responseres:tstringlist;
begin
params:=TStringList.Create;
responseres:=TStringList.Create;
try
params.Add('Login=webber9989');
params.Add('Domain=mail.ru');
params.Add('Password=1234');
responseres.Text:=idhttp1.Post('http://win.mail.ru/cgi-bin/auth',params);
if Pos('logout',responseres.Text)>0 then
  ShowMessage('Авторизовались!');
finally
params.free;
responseres.free;
end;
end;

думал может у меня че не так, ага, не тут-то было...
Та же ошибка: HTTP/1.1 302 OK.



Очень надеюсь на вас, уважаемые форумчане...

[Arsenx777]

Вот поробуйте что-то типо этого

var
  info: TStringList;
  dan: TStringStream;
begin
  try
    info := TStringList.Create;
    dan := TStringStream.Create('');
    info.Add('Login=webber9989');
    info.Add('Password=1234');
    IdHTTP1.Post('http://win.mail.ru/cgi-bin/auth',info,dan);
    Showmessage(dan.DataString);
  finally
    begin
      dan.Free;
      info.Free;
end;

[webber9989]

А что изменилось-то?
Там походу дела с куками траблы, а с ними я не дружу, помогите плз.

Да, так и знал, нашел готовое решение на ачате, дело было в куках, как я и предполагал. Всем спасибо.
Решение:

procedure TForm1.Button3Click(Sender: TObject);
var
p1,p2: Integer;
cook: String;
begin
Memo1.Text:= IdHTTP1.Get('http://games.mail.ru/mru/auth/login?login=lerchik24.11@mail.ru&password=lerik1&foreign=');
if Pos('Mpop', IdHTTP1.Response.RawHeaders.Text) > 0 then
begin
p1:= Pos('Mpop', IdHTTP1.Response.RawHeaders.Text);
p2:= Pos('.ru:', IdHTTP1.Response.RawHeaders.Text)+5;
cook:= Copy(IdHTTP1.Response.RawHeaders.Text, p1, p2-p1);
ShowMessage(cook);
IdHTTP1.Request.CustomHeaders.Add('Cookie: ' + cook);
end;
Memo2.Text:= IdHTTP1.Get('http://mail.ru');
end;

[AquaKlaster]

HTTP 302 - это редирект(перенаправление на другую страницу) что бы ошибки не было - idHTTP.HandleRedirects := True; тоесть включить автоматическую переадресацию