Здравствуйте, вот на днях решил обновить модуль 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 поговорим как можно получить статус пользователя и установить ему новый.

Хочу сказать, что если Вам требуются грузоперевозки при смене жилья, при переезде, то Вам лучше всего сделать Заказ грузовой газели при смене жилья. Это очень выгодно, так как Вы экономисте свое время, свои нервы, а это очень важно. Так что доверьтесь услугам профессионалов.

Обновленный модуль можно скачать тут

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

Метки: , , , ,




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

  1. михаил:

    Оформите как класс, а не набор процедур/функций.

  2. Andrey53:

    Как наберется достаточно функций, я оформлю все красиво

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

Вы можете использовать следующие теги: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>

*