[Praimmax]

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

[PhoeniX]

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

[Praimmax]

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

[PhoeniX]

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

[Praimmax]

Код:

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]

беру это

Код:

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;

я удаляю


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

[PhoeniX]

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

[Praimmax]

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

[Praimmax]

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

Код:

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

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

[PhoeniX]

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

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

Код:

fUID: integer;
fToken: string;

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