![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
|
Кто может кинуть мне авторизация в контакте для delphi 7
|
|
#2
|
||||
|
||||
|
Для начала воспользуйся поиском по форуму... Потом, посмотри в Google.
|
|
#3
|
|||
|
|||
|
Цитата:
|
|
#4
|
||||
|
||||
|
Прочитай про авторизацию на сайте ВКонтакте:
http://vkontakte.ru/developers.php?id=-1_37230422&s=1 Думаю, исходник составить проблем не будет. |
|
#5
|
|||
|
|||
|
Читаешь о idHTTP или Synapse. Берешь FireFox,ставишь туда LiveHTTPHeaders, смотришь что отправляется на сервер при авторизации. Следуя опыту полученному после прочтения статей пишешь как можешь код, будут вопросы поможем.
Цитата:
Последний раз редактировалось m1sclick, 05.12.2011 в 21:57. |
|
#6
|
||||
|
||||
|
Вроде нет. Есть приложение LazyTool. Поюзай.
|
|
#7
|
|||
|
|||
|
http://www.smw75.ru/avtorizaciya-vkontakte/
для синапса, но для индей, думаю сможете переделать |
|
#8
|
|||
|
|||
|
Код:
Function VKAuth (login,pass:string):Boolean;
var
IdHTTP1:TIdHTTP;
Answer:String;
begin
IdHTTP1:=TIdHTTP.Create(nil);
IdHTTP1.HandleRedirects:=True;
Answer:=IdHTTP1.Get('http://vkontakte.ru/login.php?op=1&email='+login+'&pass='+pass+'&expire=0');
if Pos('<title>Вход</title>',Answer) = 0 then
begin
Result:=True;
end
else
Result:=False;
end;![]() |
|
#9
|
||||
|
||||
|
Я в исходниках выложил более правильный пример работы с ВК...
![]() |
| Этот пользователь сказал Спасибо PhoeniX за это полезное сообщение: | ||
ApxaHGe1 (11.01.2012)
| ||
|
#10
|
|||
|
|||
|
Цитата:
а где в исходниках? чтото не нашел.. |