Решил показать пример простой авторизации вконтакте на delphi, с использованием компонентов indy.
Создаем в delphi новый проект и кидаем на форму 2 компонента Edit (вкладка standard), кнопку Button (вкладка standard), компонент Memo(вкладка standard), компонент idhttp (вкладка indy clients), и компонент idCookieManager (вкладка indy misc).
В свойстве idhttp1 Cookiemanager выбираем Cookiemanager1. В обработчик кнопки Button1 пишем код:
procedure TForm1.Button1Click(Sender: TObject);
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
otwet : string;
data : tstringlist;
begin
memo1.lines.add('[авторизация]');
idhttp1.AllowCookies:=true; // сохранять куки
idhttp1.HandleRedirects:=false; // запретить редирект
idhttp1.CookieManager.CookieCollection.Clear; // очистить куки
data:=tstringlist.create; //создаем переменную для Post-запроса
data.Add('act=login');
data.Add('q=1');
data.Add('al_frame=1');
data.Add('expire=');
data.Add('from_host=vkontakte.ru');
data.Add('email='+edit1.Text); // логин
data.Add('pass='+edit2.Text); // пароль
data.Add('captcha_sid:=');
data.Add('captcha_key :=');
try
idHTTP1.Post('http://login.vk.com/?act=login', data); // делаем запрос
except
otwet:=idHTTP1.Get(idHTTP1.Response.Location);
end;
if pos('onLoginDone', otwet)<>0 then begin // проверка авторизации
memo1.lines.add('[авторизация прошла успешно]');
end else begin
memo1.lines.add('[авторизация не удалась]');
end;
end;