Здравствуйте, не много потребовалось, чтобы в модуль добавить новую функцию, остальные постепенно буду добавлять, на этот раз добавил функцию, которая сможет узнать статус пользователя в ВК. Мы уже узнавали это, но сейчас это можно сделать с помощью всего одной функции. Данная функция в модуле VK_API называется

  • GET_VKAPI_STATUS

Давайте сразу перейдем к параметрам данной функции. А параметры у нее следующие

  • app_id - идентификатор приложения
  • sid - подпись, получаемая при авторитизации
  • mid - идентификатор пользователя
  • secret - секретный код, получаемый при авторитизации
  • uid - идентификатор пользователя, для которого необходимо смотреть статус.

Все данные параметры имеют тип — WideString, да и сама эта функция возвращает результат в данном типе. Кстати функция возвращает результат уже именно самого статуса, Вам уже выходную информацию не придется парсить, чтобы получить нужный результат.

Но если Вы сделали что-то не так, то функция возвратит результат Result is error так что Вы не думайте, что это статус пользователя =).

Для того, чтобы получить результат, достаточно вызвать функцию таким образом

ShowMessage(GET_VKAPI_STATUS('1918788',sid,mid,secret,mid));

Если Вы не Вызываете функцию, которая получает данные сессии, то можно данную функцию вызывать так, а если Вы данные сессии вызываете каким-то другим способом, то Вам необходимо вызвать функцию OPEN_VK_API.

Чтобы получить статус с использованием функций модуля VK_API достаточно написать следующий код

procedure TForm1.Button4Click(Sender: TObject);
var
 Session:TStringList;
 mid,sid,secret,uid:String;
begin
   Session:=TStringList.Create;
   Session.Add(GET_VKAPI_SESSION('ваш логин','ваш пароль','1918788').CommaText);
   secret:=Session.Strings[0];
   mid:=Pars(secret,'',',',0);
   Delete(secret,1,pos(',',secret));
   sid:=Pars(secret,'',',',0);
   Delete(secret,1,pos(',',secret));
   ShowMessage(GET_VKAPI_STATUS('1918788',sid,mid,secret,mid));
 
end;

Достаточно все просто, будем и дальше добавлять в наш модуль функции.

Хочу сказать Вам, что в настоящее время очень популярны ноутбуки. А все потому, что с ними можно пойти куда угодно, выйти в Интернет почти откуда угодно, из-за этого они очень удобные. А ноутбуки в Гродно очень качественные и имеется довольно большой выбор ноутбуков, а хорошие специалисты помогут Вам в выборе нужного для Вас ноутбука, под Ваши требования.

Модуль можно скачать тут

Автор статьи - Andrey53

Метки: , , , , ,




К записи “Проект VK API в Delphi. Обновлен модуль VK_API #3” оставлено комментариев: 4.

  1. frenZy:

    Извините, но я в вашем АПИ не нашел, как назначаются права доступа к приложению (ну или разрешения, которые требуется подвердить отдельно при логине через браузер)

  2. Михаил:

    Это пиздец!

    function CLOSE_VK_API:boolean;
    begin
    HTTP.Free;
    if HTTP=nil then
    Result:=True
    else
    Result:=False;
    end;

  3. Илья:

    Это ж пиздец а не модуль О_о

    function CLOSE_VK_API:boolean;
    begin
    HTTP.Free;
    if HTTP=nil then
    Result:=True
    else
    Result:=False;
    end;

    А если я не создал HTTP и сразу удалил? Epic Crash? странный класс :)

    • Andrey53:

      это вообще-то не класс, если что, во-вторых, для того, чтобы использовать данную функцию Вам необходимо использовать функцию для авторизации, где создается HTTP, это тоже самое, если Вы будете использовать функцию Free, не создав при этом объект

Оставить комментарий

Вы можете использовать следующие теги:

*