[Praimmax]

Добрый вечер. Сколько не перерыл не могу найти все старые года 2010.
Дайте нормальную авторизацию при помощи edit1 и edit2 или же api.
Смотрел много исходников не могу правильно вырезать,нубас я(

[PhoeniX]

http://delphisources.ru/forum/showthread.php?t=19754

[Praimmax]

я не могу оттуда правильно вырезать...

[PhoeniX]

В чём это заключается?

[Praimmax]

Код:

1 2 3 4 5

procedure TForm3.sButton1Click(Sender: TObject); begin Form4.show; Form4.WebBrowser1.Navigate('http://vk.com/login.php?app=2750730&layout=popup&type=browser'); end;

Делаю так,в конце авторизации вылазит login success
что не так?

[Praimmax]

помогите...

[PhoeniX]

Событие OnDownloadComplete2 или как-то так... Там основной код...

[Praimmax]

Я толком ничего не придумал. Если работающий код используя edit1 edit2?

[Praimmax]

Подымаю....

[PhoeniX]

Если ты намекаешь на использование логина-пароля - то нет. ВК не даёт доступ к логину и паролю пользователя.

В чём именно заключается проблема разобраться в документации по OAuth2 и моём коде?

[Praimmax]

беру это

Код:

1 2 3 4

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;

потом это

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

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;

жалуется на

Код:

1 2	Self.fUID:=iUID;   Self.fToken:=sToken;

я удаляю


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

[PhoeniX]

Ну, а событие то для веббраузера нормально прописал? А эти параметры тебе потом понадобятся для запросов к API. Объявить их надо в определении TForm1.

[Praimmax]

Например? я что то не понял. Что я еще должен дописать?

[Praimmax]

и для чего это надо

Код:

1 2	Self.fUID:=iUID;   Self.fToken:=sToken;

а то у меня ругается и я удалил

[PhoeniX]

Например - в секции Events для объекта TWebBrowser дважды кликнуть по событию OnNavigateComplete2.

Эти строки нужны для сохранения параметров, необходимых для обращения к VK API. По аналогии с моим проектом. В секции public формы дописать

Код:

1 2	fUID: integer; fToken: string;

Вы вообще документацию читали?