[beta] VkClient для Delphi

"Загорелся" идеей написать удобный для всех пользователей компонент для работы с ВК. Функций много, от банального постинга сообщений, видео, фото и т.п. до постановки лайков и участия в опросах!

Компонент создан с использованием synapse.

Рассмотрим создание программы на основе данного компонента которая будет одобрять заявки в друзья:

1. Подключим в uses: VkClient

2. Объявим переменные: vk:TVKClient; id:string; objlist:TStringList;
3. Вписываем код:

vk:=TVKClient.Create(nil); //создаём компонент
vk.Format:=XML; //настраиваем формат возвращаемых данных (JSON или XML)
vk.Login:='Ваш логин ВК';
vk.Password:='Ваш парольВК';
vk.OnLogin; //вызываем функцию авторизации
vk.friends_getRequests('', '', '', '', '', ''); //вызываем функцию которая получает заявки в друзья
objlist:=TStringList.Create;
objlist.Text:=vk.Response.Text; //в vk.Response находится ответ сервера после выполнения функций
while objlist.Count>0 do begin //цикл будет идти до тех пор пока не пробежит по всему списку id
  id:=Pars('<uid>', objlist[0], '</uid>'); //парсим id
  if Length(id)>5 then vk.friends_add(id, ''); //если это id значит добавляем его
  objlist.Delete(0);
end;
objlist.Free;
vk.Free;

Готово! Просто, не правда ли?

Теперь по поводу настроек:

1. Можно каждый раз не авторизироваться, а просто сохранить токен и использовать его потом, например:

После авторизации токен будет в переменной vk.VKToken (тип string), достаточно сохранить его и заменить:

vk.Login:='Ваш логин ВК';
vk.Password:='Ваш парольВК';
vk.OnLogin;

На:

 vk.VKToken:='xxxxxxxxxxxxxxxxxxxxxxxxxxx';

Просто, не правда ли?

 Компонент устанавливать не нужно, просто закиньте его в папку с программой!

Баги, пожелания и идеи новых функций (например одобрение заявок в друзья) пишите в комментариях, с удовольствием реализую!