Delphi Studio > Примеры на Delphi Сеть Интернет > Авторизация на mail.ru (IdHTTP) Пример на Delphi
Авторизация на mail.ru (IdHTTP) Пример на Delphi29-03-2011, 14:32. Разместил: SkyLine32 |
Пример авторизации в 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; Вернуться назад |