Должен предупредить, что сам Скайп записи разговоров не поддерживает, записывать и воспроизводить разговор придется сторонними средствами. Лично для меня вопрос конфиденциальности остро не стоит, поэтому у меня все разговоры по Скайпу пишутся сторонней утилитой Free Video Call Recorder for Skype. Почему именно этой утилитой – а бог его знает, просто первой попалась на глаза, их в интернете есть целый зверинец, выбирай любую. Мне для экспериментов подошла эта.
Но приступим.
Для интеграции Скайпа в 1С потребуется библиотека «Skype4Com.dll». Скачать ее можно как с сайта самого Скайпа, так и из любого другого места. Ссылок на скачивание в инете великое множество.
Следующий шаг – регистрация библиотеки в системе.
Тут все как обычно, библиотека регистрируется утилитой Regsrv32, далее указываете путь и больше не заморачиваетесь. Для простоты положил библиотеку в корень диска, и регистрация прошла без проблем.
И вот после этих манипуляций переходим, собственно, к кодированию:
Тут тоже все достаточно банально:
Скайп = ПолучитьCOMОбъект("", "Skype4COM.Skype");
Если Скайп = Неопределено Тогда
Сообщить("Ошибка создания объекта!");
КонецЕсли;
Раскрывая объект Скайп в отладчике, видим все, что нам доступно, первое необходимое нам свойство – IsRunning
Если Скайп не запущен, то запускаем:
Если Не Скайп.Client.IsRunning Тогда
Скайп.Client.Start(True,True);
// Что бы окно Скайпа не мельтишило на экране на скорую руку придумал такой способ,
//запускаем пустой цикл на 10 секунд, если этого не сделать,
//то Скайп не успеет загрузиться и следующая команда 1С выдаст ошибку
НачВремя = ТекущаяДата();
Пока 1 = 1 Цикл
Если ТекущаяДата() - НачВремя > 10 Тогда
Прервать;
КонецЕсли;
КонецЦикла;
// и запускаем Скайп со свернутым окном
Скайп.Client.Minimize();
КонецЕсли;
Скайп запустится с текущими установками, то есть под ником и паролем, с которыми он запускался в последний раз, естественно, если он настроен таким образом.
Cледующий шаг – читаем список контактов, для удобства создадим ТаблицуЗначений с тремя колонками.
ПользователиСкайп = Новый ТаблицаЗначений;
ПользователиСкайп.Колонки.Добавить("ИДСкайп",Новый ОписаниеТипов("Строка"));
ПользователиСкайп.Колонки.Добавить("ИМЯ",Новый ОписаниеТипов("Строка"));
ПользователиСкайп.Колонки.Добавить("Статус", Новый ОписаниеТипов("Строка"));
В последней строке может быть и Булево, но мне проще со Строкой
И запускаем цикл
Для каждого Контакт ИЗ Скайп.Friends Цикл
СТР = ПользователиСкайп.Добавить();
СТР.ИДСкайп= Контакт.Handle;
Если СОКРЛП(Контакт.FullName)="" тогда
СТР.ИМЯ= Контакт.Handle;
Иначе
СТР.ИМЯ= Контакт.FullName;
Конецесли;
СТР.Статус = Контакт.OnlineStatus;
КонецЦикла;
Что дальше делать с этой таблицей – дело вкуса, можно обойтись и без таблицы значений и сразу все вывести в табличное поле на форме, но для первых шагов лучше вывести в таблицу и смотреть ее в отладчике.
И финал наших манипуляций – звонок по Скайпу:
Скайп.PlaceCall(ИДСкайп);
В том случае, если нужно позвонить на произвольный номер, то пишем строку формата "+71234567890" и подставляем ее вместо «ИДСкайп». Выскочит окошко Скайп, и пойдет звонок на указанный номер.
Здесь приведена самая общая схема работы со Скайпом, не более того. Будет время, расскажу, как записывать звонки и, самое главное, как их воспроизводить. Но, напоминаю, в этом случае мы выходим за пределы Скайпа, и Скайп конфиденциальность не гарантирует.
