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

Метод Listen выполняет прослушивание линии. Синтаксис DeviceResult Listen ([LONG Timeout], LONG * Result)

Параметры

Timeout

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

Результат

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

Описание

Метод осуществляет прослушивание линии. Сигнал с линии записывается и может быть получен свойством Device::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.