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