Здравствуйте, не много потребовалось, чтобы в модуль добавить новую функцию, остальные постепенно буду добавлять, на этот раз добавил функцию, которая сможет узнать статус пользователя в ВК. Мы уже узнавали это, но сейчас это можно сделать с помощью всего одной функции. Данная функция в модуле 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
Метки: API, VK API, vkontakte, vkontakte API, вконтакте API, модуль VK_API
Loading ...
Извините, но я в вашем АПИ не нашел, как назначаются права доступа к приложению (ну или разрешения, которые требуется подвердить отдельно при логине через браузер)
Это пиздец!
function CLOSE_VK_API:boolean;
begin
HTTP.Free;
if HTTP=nil then
Result:=True
else
Result:=False;
end;
Это ж пиздец а не модуль О_о
function CLOSE_VK_API:boolean;
begin
HTTP.Free;
if HTTP=nil then
Result:=True
else
Result:=False;
end;
А если я не создал HTTP и сразу удалил? Epic Crash? странный класс
это вообще-то не класс, если что, во-вторых, для того, чтобы использовать данную функцию Вам необходимо использовать функцию для авторизации, где создается HTTP, это тоже самое, если Вы будете использовать функцию Free, не создав при этом объект