[Praimmax]

Сообщение от caHek-2x

я щас код набросал себе чтобы протестировать компонент ... но что то не логинится ... у тебя авторизацию проходит ?

Код:

  If vk.OnLogin then showmessage('good'); 

Делаю так.

Код:

    vk:=TVKClient.Create(nil); //создаём компонент
    vk.Format:=XML; //настраиваем формат возвращаемых данных (JSON или XML)
    vk.Login:=sedit1.text;
    vk.Password:=sedit2.text;
    vk.OnLogin; //вызываем функцию авторизации
    sMemo1.Lines.Add('['+TimeToStr(Now)+']: Авторизируемся ВКонтакте...');
    vk.friends_getRequests('', '', '', '', '', ''); //вызываем функцию которая получает заявки в друзья
    if vk.onlogin then sMemo1.Lines.Add('['+TimeToStr(Now)+']: Авторизация прошла успешно!')
    else
    sMemo1.Lines.Add('['+TimeToStr(Now)+']: Авторизация не удалась!');