Здравствуйте, не много потребовалось, чтобы в модуль добавить новую функцию, остальные постепенно буду добавлять, на этот раз добавил функцию, которая сможет узнать статус пользователя в ВК. Мы уже узнавали это, но сейчас это можно сделать с помощью всего одной функции. Данная функция в модуле 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;Достаточно все просто, будем и дальше добавлять в наш модуль функции.
