Авторизация в ВК (Authorization VK API) Delphi

[Sascha]

а что с проектом не так?
закидываю Project1.dproj всё пусто кода 0 в Unit1.pas
зато тут он есть Unit1.pas.cbk

С каким проектом и что не так ?

 

[zloy]

написал же ниже вопроса

Пожалуйста Авторизируйтесь или Зарегистрируйтесь для просмотра скрытого текста.

Пароль на архив

 

[Sascha]

написал же ниже вопроса

Пожалуйста Авторизируйтесь или Зарегистрируйтесь для просмотра скрытого текста.

Пароль на архив

Так там ничего сложного самому написать

 

[zloy]

дело не в сложности а постоянном рукожопстве каком то))
Скачай добавь проект он пустой.

 

[Lomanu4]

дело не в сложности а постоянном рукожопстве каком то))
Скачай добавь проект он пустой.

Залито криво!

 

[Sascha]

Пожалуйста Авторизируйтесь или Зарегистрируйтесь для просмотра скрытого текста.

Перезалил

Пароль на архив
[HIDE=1]Guardianelinks.de[/HIDE]

 

[Marcus Kjell]

Код действителен?

 

[Sascha]

Код действителен?

Да

 

[Marcus Kjell]

Да

А как сделать деавторизацию?

 

[Marcus Kjell]

('GET','

Пожалуйста Авторизируйтесь или Зарегистрируйтесь для просмотра скрытого текста.

вместо uid=95921229 можно прописать пользователя который будет использовать данный код а не того кто создал.

 

[Marcus Kjell]

Прописать вот так и будем получать с любой страницы с которой авторизуемся
А если вам мало таких данных, можно прописать вот так:

 

[DemonXT]

Не компилируется пример. :(

 

[MAPODEP]

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls,httpsend,ssl_openssl,lib;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Memo1: TMemo;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
email,pass,response,msg:string;
    { Public declarations }
  end;

var
  Form1: TForm1;
   token:string;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
s2,userid:string;
begin
email:=Edit1.Text;
pass:=Edit2.Text;
response:=send('GET','https://oauth.vk.com/token?grant_type=password&client_id=2274003&client_secret=hHbZxrka2uZ6jB1inYsH&username='+email+'&password='+pass+'&captcha_key=&captcha_sid=');
msg:=response;
if Pos('token',response) <> 0 then
  begin

    s2:=copy(response, pos('access_token":"', response), pos('","expires_in', response)-3);
    delete(s2, 1, 15);
     token:=s2;
Memo1.Lines.Add(msg);
msg:=token;

userid:=s2;
s2:=Copy(response,Pos('user_id":',response),Pos('}',response));
Delete(s2,1,9);
Delete(s2,Pos('}',s2),1);
userid:=s2;
Memo1.Lines.Add(msg);
msg:=userid;
Memo1.lines.add (msg);


    end else
begin
    memo1.lines.add('Error');
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
response:= send  ('GET','https://api.vk.com/method/friends.get?uid=95921229&access_token='+token);
msg:=response;
Memo1.Lines.Add(msg)
end;

end.

думаю предельно ясно,как все работает!

Спойлер: Скачать файл вы сможете тут

Пожалуйста Авторизируйтесь или Зарегистрируйтесь для просмотра скрытого текста.

Пароль на архив

а какой пароль?

 

[Sascha]

а какой пароль?

Смотрите внимательней сразу после видео

 

[Lomanu4]

Код действителен?

Код будет актуальным до тех пор пока разработчики вк не сменяют api функции,что наверное не случиться. Так что юзайте,если не будет актуальна тогда большинство приложений от вк не будут работать,даже для андроида и ios

 

[MAPODEP]

Код будет актуальным до тех пор пока разработчики вк не сменяют api функции,что наверное не случиться. Так что юзайте,если не будет актуальна тогда большинство приложений от вк не будут работать,даже для андроида и ios

код то действительный, но проект пустой. Кстати какую версию инди Вы используете?

 

[Sascha]

Пожалуйста Авторизируйтесь или Зарегистрируйтесь для просмотра скрытого текста.

Перезалил

Пароль на архив

код то действительный, но проект пустой. Кстати какую версию инди Вы используете?

Выше стоит новая версия

 

[MAPODEP]

Выше стоит новая версия

спасибо, но никак не удается авторизоваться(, если оставить Ваш ID приложения и защищенный ключ, то токен получаю, но список друзе нет, пишет ошибку -
Host: oauth.vk.com:443
Keep-Alive: 300
Connection: keep-alive
А если меняю на свои ид и ключ, то пишет -
500GET /token?grant_type=password&client_id=5304720&client_secret=FQHEHX5HGOw92tVswFrB&username=мой логин&password=пароль&captcha_key=&captcha_sid= HTTP/1.1
Host: oauth.vk.com:443
Keep-Alive: 300
Connection: keep-alive
Может я как то не верно создал приложение? Есть ли какая нибудь инструкция по созданию?

 

[Sascha]

нужно вписывать свои логин и пароль

 

[MAPODEP]

нужно вписывать свои логин и пароль

ну я так и сделал, сюда же я не буду их выкладывать то))) - 500GET /token?grant_type=password&client_id=5304720&client_secret=FQHEHX5HGOw92tVswFrB&username=мой логин&password=пароль&captcha_key=&captcha_sid= HTTP/1.1