1. Убедительно прошу ознакомиться с правилами публикации программного обеспечения. Помимо VT нужен еще Hybrid Analysis. Подробнее описано в правилах ресурса, пункт 1.19.2.
    Скрыть объявление
  2. На форуме стала доступна баннерная реклама. Все подробности в теме: Реклама на форуме [баннеры]
    Скрыть объявление
  3. Do you speak English? Use the English version of the site! Link
    Скрыть объявление
  4. Нет желания и времени зарабатывать репутацию? Покупка группы "Пользователь" решит часть проблем, а "VIP" - все. Подробнее по ссылке.
    Скрыть объявление
Скрыть объявление
Здравствуй гость! После регистрации на ресурсе, ты сможешь скачивать материалы с форума и участвовать в его жизни! Для регистрации откройте соответствующую форму или нажмите на эту ссылку.

Delphi и VK-API

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

  1. bilka00

    bilka00 VIP

    Март 23 2017 в 22:00
    Регистрация:
    27.08.2015
    Сообщения:
    199
    Симпатии:
    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 нравится это.
Похожие темы
  1. X-Vlad
    Ответов:
    0
    Просмотров:
    424
  2. X-Vlad
    Ответов:
    0
    Просмотров:
    161
  3. bilka00
    Ответов:
    2
    Просмотров:
    359
  4. AnGel
    Ответов:
    7
    Просмотров:
    375
  5. AcroniS
    Ответов:
    1
    Просмотров:
    264
Загрузка...