4Nov/143

Delphi добавить контакт в Skype. Библиотека Skype4COM

Добавить новый контакт с помощью Delphi не так сложно.
Все что нам потребуется - это библиотека предоставляющая интерфейс работы со скайпом через COM под названием Skype4COM и менее 10 строчек кода в итоге

1
2
3
4
5
6
7
8
9
10
var
  Skype: OleVariant;
  Friends: OleVariant;
begin
  Skype := CreateOleObject('Skype4COM.Skype');
  Friends := Skype.SearchForUsers('User_Login');
 
  if Friends.Count >= 1 then
    Friends.Item[1].BuddyStatus := 2;
end;

Скачать библиотеку Skype4COM можно тут

Возникли проблемы в работе со скайпом? Задай свой вопрос в комментариях.

Комментарии (3) Пинги (0)
  1. Я чет не понял что ты тут делаешь, у меня не работает.
    Friends := Skype.SearchForUsers(‘User_Login’); – запускаешь поиск по логину, только такой команды нет

    if Friends.Count >= 1 then
    Friends.Item[1].BuddyStatus := 2; – это вообще не понятно для чего?

    • Я не знаю почему у тебя нет SearchForUsers, скачай версию библиотеки по ссылке из статьи.
      это Friends.Item[1].BuddyStatus := 2; на сколько я помню добавляет человека в наш список контактов.

  2. чтобы вызвать добавление я делаю так
    skype.Client.OpenAuthorizationDialog(‘username’);
    skype.Client.OpenAddContactDialog(‘username’);
    но дальше незнаю как нажать кнопку в описании апи ничего не нашел по этому поводу, кроме как через winapi жать


Оставить комментарий

CAPTCHA image
*

Нет обратных ссылок на эту запись.