Проект VK API в Delphi. Обновлен модуль VK_API #2

2 минуты на чтение

Здравствуйте, вот на днях решил обновить модуль VK_API, на этот раз добавил функцию, которая получает список id ваших друзей, разделенные запятыми, Вам останется только лишь разобрать данный результат и получить список id. Функция для получения идентификаторов ваших друзей, это

  • function GET_VKAPI_FRIENDS(app_id,sid,mid,secret,format:WideString):WideString;

Пройдемся немного по параметрам этой функции

  • app_id — идентификатор приложения, зарегистрированного в ВК
  • sid — данные сессии, полученные раннее
  • mid — данные сессии, полученные ранее (идентификатор вашей странички)
  • secret — секретный код, полученный с данными сессии
  • format — формата вывода данных (XML или JSON)

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

Если Вы получаете данные сессии не через модуль VK_API, то перед тем как получить идентификаторы ваших друзей необходимо вызвать функцию OPEN_VK_API и только затем можно вызывать функцию получения идентификаторов ваших друзей. После всего этого желательно вызвать функцию CLOSE_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));
   uid:=GET_VKAPI_FRIENDS('1918788',sid,mid,secret,'XML');
   ShowMessage(GET_VKAPI_PROFILES('1918788',sid,mid,secret,uid,'XML',''));
end;

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

Facebook Vk Ok LinkedIn Telegram

Похожие записи:

Вчера я показал как можно получить информацию о пользователе из его профиля из сети ВК, теперь я эту функцию добавил в модуль VK_API. Это следующая функция - function GET_VKAPI_PROFILES(app_id,sid,mid,secret,uids,format ,fields:string):WideString; Следующие функции были добавлены также в модуль function GET_VKAPI_PROFILES(app_id,sid,m...
Здравствуйте, не много потребовалось, чтобы в модуль добавить новую функцию, остальные постепенно буду добавлять, на этот раз добавил функцию, которая сможет узнать статус пользователя в ВК. Мы уже узнавали это, но сейчас это можно сделать с помощью всего одной функции. Дан...
Как и обещал выложить модуль, который получает такие переменные ВК, как sid mid secret Мы это уже делали с Вами, в этой статье, получали данные сессии, но мы получали обычным кодом, сейчас мы можем получить эти данные всего одной функцией. Да я буду дальше данный модуль поддержива...