Объект 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             ' Закрываем устройство