Показать сообщение отдельно
  #1  
Старый 31.07.2011, 18:28
ART ART вне форума
Продвинутый
 
Регистрация: 13.02.2006
Адрес: Магнитогорск
Сообщения: 669
Репутация: 14745
По умолчанию Класс для работы с vk api - vkInfo v1.0

Представляю вашему вниманию данный класс на базе ICS компонентов:

Скажу сразу - нет еще многого. Например, нет функций для работы с видео, заметками, новостями, опросами...

И еще не ругайте, что все на string'aх. Я сделал это сознательно.

Примеры:

Авторизация:
Код:
var
 vk: TVK;
 url: string;
begin
 vk := TVK.Create;
 url := vk.Auth.Authentication('login', 'pass');
 if vk.Auth.auth = True then begin
  ...
 end;
 ...
end;

Получение токена:
Код:
 vk.Auth.GetToken('2416912', '2');
 if vk.Auth.token <> '' then begin
  ...
 end;

Ошибки:
Код:
var
 vk: TVK;
 ids: TIDs;
 id, url: string;
begin
 vk := TVK.Create;
 ...
 url := vk.Auth.Authentication('login', 'pass');
 if vk.Auth.auth = true then begin
  id := vk.Friends.getID(url); 
  ids := vk.Friends.getFriends(id, vk.Auth.token);
  if vk.Friends.Error = '' then begin
   ...
  end;
 end;
 ...
end;

ICS компоненты
Методы API
Расширенные методы API
Права приложений

В архиве есть демо-приложение "Анализ стены". В дальнейшем буду допиливать и дополнять. Буду рад замечаниям.
Вложения
Тип файла: rar VK class.rar (107.4 Кбайт, 184 просмотров)
Ответить с цитированием