Авторизация на mail.ru

[Des]

][ай всем!
Нужно авторизоваться на mail.ru а как это сделать используя cookies не могу понять. обновил Indy (отдельная благодарность Квенди! http://kvendi.pp.ru/?p=66) до последней версии (буквально полчаса назад).

Адрес авторизации: http://win.mail.ru/cgi-bin/auth
Логин: Login (input type="text" name="Login")
Домен: Domain (select class=w_100 name="Domain") у которого value может быть равно только одно из ->@mail.ru @inbox.ru @list.ru @bk.ru <-
Пароль: Password (input type="password" name="Password")

А идея такая. Нужно реализовать коннект с сервером, зайти на my.mail.ru (в чей-либо мир, потому что без авторизации не пускает) и просто выйти. Но! Нужно поддерживать соединение до собственного анконекта либо по простою. А для этого нужно реализовать кукисы.

Как?
Буду весьма благодарен за исходник

p.s.: в соседней ветке видел авторизацию vkontakte.ru, вроде все понял, но там кукисы, а как работать с этим делом, доков на русском не нашел

[Des]

Всем спасибо, сам разобрался, зделал сильно не пинайте :D

[Alar]

Если разобрались, то опубликуйте решение проблемы. ссылки на ветки, которые вам помогли. спасибо.

[Des]

procedure TForm1.btn_goClick(Sender: TObject);
var ss:TStringList;
f:TFileStream;
begin
mmo1.Lines.Clear;
mmo2.Lines.Clear;
mmo3.Lines.Clear;
http1.Get(Edit1.Text);
mmo2.lines.add('cookie1.CookieCollection.Count: '+inttostr(cookie1.CookieCollection.Count));
mmo3.Lines.Add(http1.Request.RawHeaders.Text);
mmo3.Lines.Add('');
mmo3.Lines.Add(http1.Response.RawHeaders.Text);
mmo3.Lines.Add('');
ss:=TStringList.Create;
f:=TFileStream.Create('c:\111.html',fmCreate);
try
 	ss.Add('Login='+ Login.Text);
  ss.Add('Domain=' + Domain.Text);
  ss.Add('Password=' + Password.Text);
  http1.Post('http://win.mail.ru/cgi-bin/auth',ss,f);
  mmo3.Lines.Add(http1.Request.RawHeaders.Text);
	mmo3.Lines.Add('');
	mmo3.Lines.Add(http1.Response.RawHeaders.Text);
	mmo3.Lines.Add('');
finally
  ss.Free;
  f.Free;

end;
end;

100% рабочий вариант логина на mail.ru. Основная заслуга Квэнди

Единственное что хотелось бы узнать, как понять что логин прошел успешно. И к примеру как реализовать такое

ShowMessage ('Извините логин\пароль не верны');

. Какой ответ от сервера должен быть при плохом логине?

[Квэнди]

А достаточно было почитать первую тему раздела...
http://programmersforum.ru/showthread.php?t=38803