[Delphi] Авторизация через Вконтакте

try HTTP.post('http://login.vk.com/?act=login',data); except;end;
Вот этого не когда не понимал, неужели так трудно выгрызть выпилять из сорцов это исключения?

 

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
 Data : tstringlist;
 s : string;
begin
 IdHTTP1.AllowCookies:=true;
 IdHTTP1.HandleRedirects:=true;
 Data:=TStringlist.Create;
 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=+email');
 Data.add('pass=+pass');
try s:=IdHTTP1.post('http://login.vk.com/?act=login',data);  except;end;
data.Free;

end;
end.

И выскакивает снова ошибка, кто то может проверить у себя работает или нет?

 

На форме два эдита и батон=)

PHP:

var
  a, b, remixchk, remixsid: string;
  n: Integer;
  http: TIdHTTP;
begin
  http := TIdHTTP.Create(Form1);
  http.AllowCookies := False;
  http.HandleRedirects := False; // Это важно. всмысле.. ВАЖНО!
  http.Request.UserAgent := 'Opera/9.80 (Windows NT 5.1; U; ru) Presto/2.7.62 Version/11.01';
  http.Get('http://vkontakte.ru/login.php?m=1&email='+Edit1.Text+'&pass='+Edit2.Text);
  if http.ResponseCode = 302 then
   begin
      a := http.Response.RawHeaders.Text;
      n:=PosEx('remixchk', a) + 9;
      remixchk := Copy(a, n, PosEx(';', a, n)-n);
      n:= PosEx('remixsid', a) + 9;
      remixsid := Copy(a,n, PosEx(';', a, n)-n);
      http.Request.CustomHeaders.Text := 'Cookie: remixchk='+remixchk+'; remixsid='+remixsid;
      a:=http.Get('http://vkontakte.ru'+http.Response.Location);
      showmessage(a);
   end
  else ShowMessage('Непоправимый ERROR. Самоуничтожение!');
  http.Free;


и еще... а... нет, все)))

 

Еще компонент TIdHTTP и компонент Ex которого у меня нету((

 

PHP:

  n:=PosEx('remixchk', a) + 9;

Вот тут ошибочка, немогу запустить (((

 

uses StrUtils, IdHTTP

 

Да, спс, с IdHTTP всё нормально было, просто Вы написали мол "может еще что то забыл, не всё" =)

 

вобщем проблема в том что у меня indy 9 DD, ща обновлю и сделаю на обновленной и отпишусь что да как

 

Всёёё работаетт, ураа,))) мдааа и на это потрачено 3 дня. Особенная благодарность земляку mr_walker, очень хороший человек)).

 

Тему не закрывайте, будет еще несколько вопросов))

Извиняюсь что столько нафлудил))) Вобщем не получаеться следущее:
1. Авторизация Вконтакте (всё нормально)
2. Переадресация на реф.ссылку и авторизация через Вконтакте с сайта (форма авторизации вверху)...
ну например
Есть поле Edit куда вставляется реф. ссылка и кнопка Старт. На кнопке старт сначала происходит авторизация Вконтакте потом переадресовывает на рефке и только тогда происходит авторизация с сайта .. ???

 

УУУУ, тебе сейчас с куками придётся извращаться, раз тебе после авторизации надо по ссылке перейти.