Не могу найти ошибку в коде при авторизации вконтакте

[Arsenx777]

я пытаюсь авторизоваться вконтакте!

procedure TForm1.Button1Click(Sender: TObject);
var info,list: TStringList;
begin
  idhttp1.CookieManager:=IdCookieManager1;
  idHTTP1.HandleRedirects:= True;
  info:=TStringList.Create;
try
  list:=TStringList.Create;
  info.Add('email='+edit1.Text);
  info.Add('pass='+edit2.Text);
  info.Add('act=login');
  info.Add('expire=');
  info.Add('from_host=vk.com');
  info.Add('q=1');
  info.Add('al_frame=1');
  info.Add('captcha_sid=');
  info.Add('captcha_key=');
  list.Text:=idhttp1.Post('http://login.vk.com/?act=login',info);
  memo1.Text:=list.Text;
if Pos('Online',list.Text)>0 then
 label1.Caption:='Online'
 else
 label1.Caption:='Offline';
finally
 info.Free;
 list.Free;

end;

При компиляции ошибок нет, а как нажимаю кнопку и сразу вылетает ошибка "OIShandler is no value vailid"

Я idHTTP1.HandleRedirects:= false ставил , а там другая ошибка "HTTP/1.1 302 found"

Скажите пожалуйста в чем у меня ошибка!

Знаю что на форуме подобных тем много, но я хотел бы узнать где у меня ошибка!

спасибо...

[Mifody]

А про ошибку почитать пробовали? Что это за ответ такой страшный "302". Похоже нет.
HTTP ответ 302 говорит что идет редирект на другую страницу.
Насчет ошибки "OIShandler is no value vailid" - что к IdHTTP подключено?

[Arsenx777]

а как исправить? все что смог сделал...

[Mifody]

ааа, блин, долбаная индя, я и забыл про этот баг , короче. У инди (точно не скажу про версии, в последних может и исправили), есть баг обработки редиректа. Есди перед этим выполнил POST запрос и идет редирект, то он то же обрабатывается POST запросом. Метод лечения (правда не всегда спасает):
1. idHTTP1.HandleRedirects:= True; - это и должно быть, иначе редирект не обработается (будет твоя ошибка 302)
2. у компоненты idHTTP создаеш обработку события OnRedirect, в методе пишеш "VMethod := hmGet;"
Дальше уже возись с продолжением написания авторизации

З.Ы. Сам уже давно от индей отказался из-за их багов.

[Voody]

var PageProfile:string; 
      error:boolean; 
begin 
 IdHTTP1.AllowCookies:=true; 
 IdHTTP1.HandleRedirects:=true; 
 error:=false; 
 try 
  PageProfile:=IdHTTP1.Get('http://login.vk.com/?act=login&success_url=&fail_url=&try_to_login=1&vk=&al_test=3&email=ваш_логин&pass=ваш_пароль&expire'); 
 except 
  error:=true; 
 end; 

 if not(error) and (Pos('"logout_frame"', PageProfile)<>0) then 
  Memo1.Lines.Add('Авторизация удалась') 
 else 
  Memo1.Lines.Add('Авторизация не удалась'); 

end;

[Человек_Борща]

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

я пытаюсь авторизоваться вконтакте!

procedure TForm1.Button1Click(Sender: TObject);
var info,list: TStringList;
begin
  idhttp1.CookieManager:=IdCookieManager1;
  idHTTP1.HandleRedirects:= True;
  info:=TStringList.Create;
try
  list:=TStringList.Create;
  info.Add('email='+edit1.Text);
  info.Add('pass='+edit2.Text);
  info.Add('act=login');
  info.Add('expire=');
  info.Add('from_host=vk.com');
  info.Add('q=1');
  info.Add('al_frame=1');
  info.Add('captcha_sid=');
  info.Add('captcha_key=');
  list.Text:=idhttp1.Post('http://login.vk.com/?act=login',info);
  memo1.Text:=list.Text;
if Pos('Online',list.Text)>0 then
 label1.Caption:='Online'
 else
 label1.Caption:='Offline';
finally
 info.Free;
 list.Free;

end;

При компиляции ошибок нет, а как нажимаю кнопку и сразу вылетает ошибка "OIShandler is no value vailid"

Я idHTTP1.HandleRedirects:= false ставил , а там другая ошибка "HTTP/1.1 302 found"

Скажите пожалуйста в чем у меня ошибка!

Знаю что на форуме подобных тем много, но я хотел бы узнать где у меня ошибка!

спасибо...

поставьте бряк на начале функции... и отладчиком пройдитесь.
И вы не все параметры посылаете..

  <form method="POST" name="login" id="quick_login_form" action="http://login.vk.com/?act=login" onsubmit="if (vklogin) {return true} else {quick_login();return false;}">
    <input type="hidden" name="act" value="login" />
    <input type="hidden" name="q" value="1" />
    <input type="hidden" name="al_frame" value="1" />
    <input type="hidden" name="expire" id="quick_expire_input" value="" />
    <input type="hidden" name="captcha_sid" id="quick_captcha_sid" value="" />
    <input type="hidden" name="captcha_key" id="quick_captcha_key" value="" />
    <input type="hidden" name="from_host" value="vkontakte.ru" />
    <input type="hidden" name="ip_h" value="4c134df1bee757be47" />
    <div class="label">E-mail или Логин:</div>
    <div class="labeled"><input type="text" name="email" class="text" onfocus="show('quick_expire')" id="quick_email" /></div>
    <div class="label">Пароль:</div>
    <div class="labeled"><input type="password" name="pass" class="text" onfocus="show('quick_expire')" id="quick_pass" /></div>
    <div class="checkbox" id="quick_expire" onclick="checkbox(this);ge('quick_expire_input').value=isChecked(this)?1:'';"><div></div>Чужой компьютер</div>
    <input type="submit" class="submit" />
  </form>

Далее для начала взяли бы какой-нибудь сниффер и посмотрели бы, что браузер шлёт на сайт....

[Arsenx777]

Сообщение от Человек_Борща

поставьте бряк на начале функции... и отладчиком пройдитесь.
И вы не все параметры посылаете..

Что за 'бряк'?


Можно это все вообще сделать через сокеты?

[Voody]

Я вам дал готовый простой код, который сам Дуров советует)

[Arsenx777]

спасибо! кто можно обновить indy, архив с компонентами у меня усть, а что дальше делать не знаю

[Mifody]

гуглепоиска вам в помощь , ну или яндекс
на самом деле полно версий статьи валяется как обновить корректно индю, даже и лениво искать. Тем более что я не обновлялся и не пользуюсь ими