Объект Device
Обьект Device позволяет работать с устройством, доступным приложению Call Office. Список доступных устройств можно получить используя метод DeviceList. Перед тем как начать работу с устройством следует его открыть используя метод Open. Соответственно завершать работу с устройством следует методом Close. С открытым устройством можно выполнять различные действия, набор номера, ожидание входящего звонка, произнесение сообщения и т.д. вызывая соответствующие методы. Ряд методов устройства выполняются в отдельном потоке, что позволяет исключить зависание приложения на время работы метода. В процессе работы обьект генерирует различные события подписаться на которые можно используя событие OnProcess. Устройство позволяет формировать журнал своей работы. Управляется журнал свойством LogFile.
Примеры
- Пример на JavaScript
/* Пример передачи сообщения по указанному номеру телефона */ var Device = new ActiveXObject ("CallOffice.Device"); // Создаем обьект устройство Device.Open (); // Открываем устройство var Result = Device.Dial ("8906123456", 40); // Набираем номер и ожидаем когда абонент снимет трубку if (Result == 1) { // Если абонент поднял трубку Device.Say ("Сообщение"); // Произносим звуковой файл с именем Сообщение } Device.HangUp (); // Кладем трубку Device.Close (); // Закрываем устройство
/* Пример ожидания входящего звонка и передачи сообщения абоненту */ var Device = new ActiveXObject ("CallOffice.Device"); // Создаем обьект устройство Device.Open (); // Открываем устройство var Result = Device.WaitForCall (120); // Ожидаем входящий звонок 120 cекунд if (Result == 0) { // Если входящий звонок поступил Device.Say ("Сообщение"); // Произносим звуковой файл с именем Сообщение } Device.HangUp (); // Кладем трубку Device.Close (); // Закрываем устройство
- Пример на VBScript
' Пример передачи сообщения по указанному номеру телефона Dim Device Set Device = CreateObject ("CallOffice.Device") ' Создаем обьект устройство Device.Open ' Открываем устройство Result = Device.Dial ("8906123456", 40) ' Набираем номер и ожидаем когда абонент снимет трубку if Result = 1 then ' Если абонент поднял трубку Device.Say "Сообщение" ' Произносим звуковой файл с именем Сообщение end if Device.HangUp ' Кладем трубку Device.Close ' Закрываем устройство
' Пример ожидания входящего звонка и передачи сообщения абоненту Dim Device Set Device = CreateObject ("CallOffice.Device") ' Создаем обьект устройство Device.Open ' Открываем устройство Result = Device.WaitForCall (120) ' Ожидаем входящий звонок 120 cекунд if Result = 1 then ' Если входящий звонок поступил Device.Say "Сообщение" ' Произносим звуковой файл с именем Сообщение end if Device.HangUp ' Кладем трубку Device.Close ' Закрываем устройство