Объект Device/Методы/Listen

Метод Listen выполняет прослушивание линии.

Синтаксис DeviceResult Listen ([LONG Timeout], LONG * Result)

Параметры Timeoutвремя прослушивания линии в секундах. Необязательный параметр. При отсутствии параметра значение по умолчанию - 60.

Результат

Название константы

Значение

Описание

DEVICE_S_OK 0 (0x00) прослушивание линии завершено успешно DEVICE_S_INTERRUPTED 4 (0x04) прослушивание линии прервано DEVICE_S_TIMEOUT 5 (0x05) время ожидания при прослушивании линииистекло DEVICE_S_BUSY 6 (0x06) при прослушивании обнаружен сигнал занято

Описание Метод осуществляет прослушивание линии. Сигнал с линии записывается и может быть получен свойством RecordedSound. Выполнение метода прекращается, если истекло время ожидания, метод прерван вызовом метода Cancel или обнаружен сигнал Занято.

Примеры

Пример на JavaScript

var Device = new ActiveXObject ("CallOffice.Device");
Device.Open ();

var NumberPhone = prompt ("Введите номер телефона",'');

var Result = Device.Dial (NumberPhone, 40);
if (Result == 0){
   Device.Say ("CallOffice");
   Device.Listen (40);                           // Выполням запись сообщения с линии в течении 40 секунд
   var Sound = Device.RecordedSound;             // Получаем записанный звук
   Sound.Save ("C:\\Записанное сообщение.wav");  // Сохраняем записанное сообщение в файл
}
Device.HangUp ();
Device.Close ();

Пример на VBScript

Dim Device
Set Device = CreateObject ("CallOffice.Device")
NumberPhone = prompt ("Введите номер телефона","")
Device.Open

Result = Device.Dial (NumberPhone, 40)

if Result = 0 then
   Device.Say "CallOffice"
   Device.Listen 40                              ' Выполням запись сообщения с линии в течении 40 секунд
   Dim Sound
   Set Sound = Device.RecordedSound              ' Получаем записанный звук
   Sound.Save "C:\\Записанное сообщение.wav"     ' Сохраняем записанное сообщение в файл

end if

Device.HangUp
Device.Close

Назад к методам компонента Device.