На нашем сайте ежедневно публикуются десятки качественных и свежих материалов, которые Вы можете скачать абсолютно бесплатно. Рекомендуем Вам добавить Наш сайт в закладки, а также подписаться на RSS ленту, чтобы не пропускать интересных новостей.
Авторизация вконтакте. Напишем программу которая будет отсылать логин, написанный в Edit1 и пароль, написанный в Edit2 на сервер Вконтакте, и тем самым попробуем авторизоваться.
Создаем новый проект в среде Delphi XE3, кидаем на форму Edit1, Edit2, Button1 с вкладки Standart и IdHTTP1 с вкладки Indy Client. Вид формы Изменяем свойство IdHTTP1 - HadleRedirects на true. Теперь кликаем по кнопке, и переходим в редактор кода. Объявляем переменную a типа TStringList, и b типа string. Код var a: TStringList; b: string; begin ...
Теперь пишем сам код авторизации: Код
Код
begin a:= TStringList.Create; a.Add('email='+Edit1.Text); a.Add('pass='+Edit2.Text); b:=IdHTTP1.Post('[http://login.vk.com/?act=login',a)]; if Pos('logout',b) <> 0 then ShowMessage('Авторизация прошла успешно') else ShowMessage('Авторизация провалена');
Теперь разберем каждую строчку:
a:= TStringList.Create - создается класс TStringList a.Add('email='+Edit1.Text) - добавляем параметр логин a.Add('pass='+Edit2.Text) - добавляем параметр пароль b:=IdHTTP1.Post('[http://login.vk.com/?act=login',a)] - отправляем запрос на login.vk.com с нашими параметрами if Pos('logout',b) <> 0 then - условие с проверкой. Если на странице присутствует надпись выйти ShowMessage('Авторизация прошла успешно') - то выводит сообщение о успехе else - иначе ShowMessage('Авторизация провалена') - выводит сообщение с ошибкой
Вид кода
Теперь компилируем (F9) программу, вводим свой логин и пароль от ВК и нажимаем на кнопку, и любуемся результатом
|