Авторизация на сайте

[Alex2009]

Всем привет, пишу для себя простенький Агент для вконтакте, без каких либо крутых возможностей. Вот при написании кода авторизации при нажатии на конпку войти мне выделяет этот код синим цветом, и больше не чего.
PageProfile:=idHTTP1.Post('http://login.vk.com/?act=login',bd);

Вот весь код.

procedure TForm1.Button1Click(Sender: TObject);
var
  PageProfile:String;
  bd:tstringlist;
  error:boolean;
begin
  IdHTTP1.AllowCookies:=true;
  IdHTTP1.HandleRedirects:=false;
  bd:=tstringlist.create;
  bd.Add('email=логин');
  bd.Add('pass=пароль');
  bd.Add('expire=');
  bd.Add('vk=');
  error:=true;
try
  PageProfile:=idHTTP1.Post('http://login.vk.com/?act=login',bd);
except
  error:=true;
end;
if not(error) then
begin
  bd.Clear;
  bd.Add('s='+copy(PageProfile,Pos('value',PageProfile)+7,56));
  bd.Add('op=slogin');
  bd.Add('redirect=1');
  bd.Add('expire=0');
  bd.Add('to=');
  idHTTP1.HandleRedirects:=true;
try
  PageProfile:=idHTTP1.Post('http://vkontekte.ru/login.php',bd);
except
end;
  Label3.Caption:=('Удачно!');
end
else
  Label3.Caption:=('Неудача!');
  bd.Free; 
end;

[Пепел Феникса]

предположительно выскакивает исключение.
вообще там https давно.

[Alex2009]

Не помогло даже если сделать так

PageProfile:=idHTTP1.Post('https://login.vk.com/?act=login',bd);

[Alex2009]

Вот для наглядности выкладываю исходник, может кто и поймет в чем дело.

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

у ВКонтакте есть как минимум не хилый API.

[Alex2009]

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

у ВКонтакте есть как минимум не хилый API.

ну и как мне это поможет с моей проблеммой?

[Mifody]

попробуй

result=get_idHTTP1.get('http://login.vk.com/?act=login&email=' + mail + '&pass=' + pass;

редиректы надо пройти все
выдрал из ПХПшного кода, там вообщет запрос заголовков, но после редиректов получаются нужные куки
вообще есть делфевый код авторизации, но он для синапса

[Alex2009]

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

PageFrome:=idhttp1.Get('http://vkontakte.ru/');
  Label4.Caption:=(copy(PageFrome,pos('<title>',PageFrome)+7,pos('</title>',PageFrome)-pos('<title>',PageFrome)-7));

То в Label пишет "Добро пожаловать". Значит нужно сначала узнать id пользователя. Помогите разобратся.

[Delphi_ProGer]

Ну вот зачем себе усложнять жизнь? Используйте ВК АРІ. Там всё просто. Если что - помогу.

P.S. не вижу смысла парсить страницу, т.к. контакт всегда что-нибудь меняет!
P.P.S. http://vkontakte.ru/developers.php