1. Do you speak English? Use the English version of the site! Link
    Скрыть объявление
Скрыть объявление
Здравствуй гость! После регистрации на ресурсе, ты сможешь скачивать материалы с форума и участвовать в его жизни! Для регистрации откройте соответствующую форму или нажмите на эту ссылку.

Delphi и VK-API

Тема в разделе "Исходники / Source", создана пользователем bilka00, 12.09.2015.

  1. bilka00

    bilka00 VIP

    Фев 23 2017 в 23:28
    Регистрация:
    27.08.2015
    Сообщения:
    210
    Симпатии:
    140
    Привет всём.
    Здесь я буду постить функции для роботы с вк апи так же задаем свои вопросы постараюсь ответить.
    Функция для отправки GET запроса Ссылки могут видеть только зарегистрированные пользователи. Зарегистрируйтесь или авторизуйтесь для просмотра ссылок!
    Функция для авторизации:
    Код:
    function Create(flogin:string;fpass:string;access:string):bool;
      var
        HTML:string;
        FJSONObject: ISuperObject;
    begin
    inherited Create;
    Log_list := TStringList.Create;
    Login := flogin;
    Pass := fpass;
    Aut := False;
    Inf := False;
    Log_list.Add('Начало авторизации');
    HTML := HTTP_GET('https://oauth.vk.com/token?grant_type=password&client_id=2274003&scope='+access+'&client_secret=hHbZxrka2uZ6jB1inYsH&username='+Login+'&password='+Pass);
    FJSONObject := SO(Utf8ToAnsi(HTML));
    if FJSONObject.S['access_token']<>'' then
      begin
        result:=True;
      end else
      begin
        result:=False;
      end;
    FJSONObject.Clear(True);
    end;
    
    В uses Classes, Windows, HTTPsend, SysUtils, ssl_openssl, superobject;
    Екзотический модуль для роботы с JSON+либки здесь Ссылки могут видеть только зарегистрированные пользователи. Зарегистрируйтесь или авторизуйтесь для просмотра ссылок!
     
    denis7656 нравится это.