|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Авторизация вконтакте
Добрый вечер. Сколько не перерыл не могу найти все старые года 2010.
Дайте нормальную авторизацию при помощи edit1 и edit2 или же api. Смотрел много исходников не могу правильно вырезать,нубас я( |
#2
|
||||
|
||||
Оставайтесь хорошими людьми... VK id2634397, ds [at] phoenix [dot] dj |
#3
|
|||
|
|||
я не могу оттуда правильно вырезать...
|
#4
|
||||
|
||||
В чём это заключается?
Оставайтесь хорошими людьми... VK id2634397, ds [at] phoenix [dot] dj |
#5
|
|||
|
|||
Код:
procedure TForm3.sButton1Click(Sender: TObject); begin Form4.show; Form4.WebBrowser1.Navigate('http://vk.com/login.php?app=2750730&layout=popup&type=browser'); end; что не так? |
#6
|
|||
|
|||
помогите...
|
#7
|
||||
|
||||
Событие OnDownloadComplete2 или как-то так... Там основной код...
Оставайтесь хорошими людьми... VK id2634397, ds [at] phoenix [dot] dj |
#8
|
|||
|
|||
Я толком ничего не придумал. Если работающий код используя edit1 edit2?
|
#9
|
|||
|
|||
Подымаю....
|
#10
|
||||
|
||||
Если ты намекаешь на использование логина-пароля - то нет. ВК не даёт доступ к логину и паролю пользователя.
В чём именно заключается проблема разобраться в документации по OAuth2 и моём коде? Оставайтесь хорошими людьми... VK id2634397, ds [at] phoenix [dot] dj |
#11
|
|||
|
|||
беру это
Код:
procedure TForm1.FormCreate(Sender: TObject); begin WebBrowser1.Navigate('http://oauth.vkontakte.ru/authorize?client_id=2750730&scope=audio,offline&display=page&response_type=token'); end; потом это Код:
procedure TForm1.WebBrowser1NavigateComplete2(ASender: TObject; const pDisp: IDispatch; const URL: OleVariant); var sURL: String; sToken, sUID: String; iUID: Cardinal; begin sURL := URL; delete(sURL, 1, pos('#',sURL)); sToken := sURL; while LowerCase(copy(sToken,1,13)) <> 'access_token=' do delete(sToken,1,pos('&',sToken)); if pos('&',sToken)<>0 then sToken := copy(sToken,1,pos('&',sToken)); delete(sToken,1,13); sUID := sURL; while LowerCase(copy(sUID,1,8)) <> 'user_id=' do delete(sUID,1,pos('&',sUID)); if pos('&',sUID)<>0 then sUID := copy(sUID,1,pos('&',sUID)); delete(sUID,1,8); iUID := StrToInt(sUID); Self.fUID:=iUID; Self.fToken:=sToken; Form1.Close; WebBrowser1.Hide; Application.ProcessMessages; end; жалуется на Код:
Self.fUID:=iUID; Self.fToken:=sToken; и ничего не происходит форму браузера добавил. я не понимаю может что добавить еще нужно |
#12
|
||||
|
||||
Ну, а событие то для веббраузера нормально прописал? А эти параметры тебе потом понадобятся для запросов к API. Объявить их надо в определении TForm1.
Оставайтесь хорошими людьми... VK id2634397, ds [at] phoenix [dot] dj |
#13
|
|||
|
|||
Например? я что то не понял. Что я еще должен дописать?
|
#14
|
|||
|
|||
и для чего это надо
Код:
Self.fUID:=iUID; Self.fToken:=sToken; |
#15
|
||||
|
||||
Например - в секции Events для объекта TWebBrowser дважды кликнуть по событию OnNavigateComplete2.
Эти строки нужны для сохранения параметров, необходимых для обращения к VK API. По аналогии с моим проектом. В секции public формы дописать Код:
fUID: integer; fToken: string; Вы вообще документацию читали? Оставайтесь хорошими людьми... VK id2634397, ds [at] phoenix [dot] dj Последний раз редактировалось PhoeniX, 08.01.2013 в 15:18. |