Delphi Studio > Примеры на Delphi Сеть Интернет > Авторизация на mail.ru (IdHTTP) Пример на Delphi

Авторизация на mail.ru (IdHTTP) Пример на Delphi


29-03-2011, 14:32. Разместил: SkyLine32
Авторизация на mail.ru (IdHTTP) Пример на Delphi

Пример авторизации в Delphi на сайте mail.ru. Для авторизации на сайте mail.ru нужно кинуть на форму компонент IdHTTP
var
PostData, ResponseData : TStringList;
begin
PostData := TStringList.Create;
try
ResponseData := TStringList.Create;
PostData.Add('Login=name');
PostData.Add('Domain=mail.ru');
PostData.Add('Password=pass');
ResponseData.Text := IdHTTP1.Post('http://win.mail.ru/cgi-bin/auth', PostData);
if Pos('logout',ResponseData.Text)>0 then
ShowMessage('Авторизовались!')
else
ShowMessage('Авторизация не удалась!');
finally
PostData.free;
ResponseData.free;
end;
end;

Вернуться назад
rss