Проект VK API в Delphi. Обновлен модуль VK_API #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 поговорим как можно получить статус пользователя и установить ему новый.

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

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

Метки: API, VK API, vkontakte, vkontakte API, вконтакте API