Авторизация "В контакте"

[xakil]

Авторизовался как написано. Авторизация прошла. Но если хочу получить страницу после авторизации, то опять выкидывает на страницу, где нужно ввести e-mail и пароль.

procedure TFMain.btnAutorizeClick(Sender: TObject);
var
  data:tstringlist;
  error:boolean;
  page:String;
begin
  IdHTTP1.AllowCookies:=true;
  IdHTTP1.HandleRedirects:=false;
  data:=tstringlist.create;
  data.Add('email=vk); // логин для авторизации
  data.Add('pass=pass');  // пароль для авторизации
  data.Add('expire=');
  data.Add('vk=');
  error:=false;
  try
    page := IdHTTP1.Post('http://login.vk.com/?act=login', data);
  except
    error := true;
  end;

 if not(error) then
  begin
    data.Clear;
    data.Add('s='+Copy(page, Pos('value', page)+7, 56));
    data.Add('op=slogin');
    data.Add('redirect=1');
    data.Add('expire=0');
    data.Add('to=');
    IdHTTP1.HandleRedirects := True;
    idHTTP1.AllowCookies    := True;
    page  := IdHTTP1.Post('http://vkontakte.ru/login.php', data);
    sbInfo.Panels.Items[0].Text := 'Авторизация прошла успешно';
    page := IDHTTP1.Get('http://vkontakte.ru/');
    RichEdit1.Lines.Clear;
    RichEdit1.Lines.Add(page);
  end
  else
    sbInfo.Panels.Items[0].Text := 'Авторизация не удалась!';
  Data.Free;
end;

собственно не работает строка

page := IDHTTP1.Get('http://vkontakte.ru/');

По идее же в переменную page должен записать код с профилем, который был в результате

page  := IdHTTP1.Post('http://vkontakte.ru/login.php', data);

а выкидывает на страницу авторизации.

AllowCookies = True;
IdCookieManager на форме. В idHTTP1 установлен.

[vilix]

xakil Вот вот у меня та же проблема, вроде авторизацию проходит (так как если не проходит то ошибку 304 выбивает) а при гетах все время код страницы авторизации, пытался получить mail.php тоже без результатно. .. там вообще что-то другое.

Поэтому думаю сделать через Twebbrowser авторизацию. но как мне через него post сделать?

[Alex2009]

А у меня в группу заходит нормально,простмотры увеличиваются.

[vilix]

Alex2009 может ты знаешь в чем проблема?
скопировал код с этой темы. пишет что конект типа ) а при гете не чего не получаю нормального..

[Lemo]

Сообщение от vilix

xakil
Поэтому думаю сделать через Twebbrowser авторизацию. но как мне через него post сделать?

WebBrowser1.Navigate('http://vkontakte.ru/login.php?email=МЫЛО&pass=ПАРОЛЬ');

ЗЫ в последнии дни тоже этой темой страдаю - авторизиция в ВК...

[vilix]

Lemo как авторизацию понятно. но потом мне надо еще пост запросы отправлять .. вот как это реалезовать через webbrowser?

[vilix]

Lemo как авторизацию понятно. но потом мне надо еще пост запросы отправлять .. вот как это реалезовать через webbrowser?

[Lemo]

Чесно говоря очень мало работал с этим компонентом, а зачем пост запросы? ты же и так авторизировался...

[Could]

[QUOTE=xakil;521843]Авторизовался как написано. Авторизация прошла. Но если хочу получить страницу после авторизации, то опять выкидывает на страницу, где нужно ввести e-mail и пароль.

  data:=tstringlist.create;
  data.Add('email=vk); // логин для авторизации
  data.Add('pass=pass');  // пароль для авторизации
  data.Add('expire=');

кавычка не закрыта

[Voody]

Сообщение от Could

кавычка не закрыта

Очевидно же, что это опечатка, иначе код бы не скомпилировался. Человек заменил свой логин на "vk" и забыл кавычку