Представляю вашему вниманию данный класс на базе 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
Права приложений
В архиве есть демо-приложение "Анализ стены". В дальнейшем буду допиливать и дополнять. Буду рад замечаниям.