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

Метод WaitForIncoming ожидает входящее событие. Синтаксис WaitForIncoming (LONG Timeout [, LONG IncomingEvent], LONG * Result)

Параметры

Timeout	- время ожидания голосового ответа абонента в секундах.
IncomingEvent	- входящее событие. Необязательный параметр.

Название константы	Значение	Описание
INCOMINGEVENT_CALL	1 (0x01)	Входящий звонок
INCOMINGEVENT_SMS	2 (0x02)	Входящее SMS
INCOMINGEVENT_ALL	3 (0x03)	Все доступные входящие события (по умолчанию)

Результат

Название константы	Значение	Описание
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)	номер занят

Описание

Метод ожидает события заданное время. Как правило метод используется сразу после набора номера. Ожидание может быть прервано асинхронным вызовом метода Cancel.

Примеры

Пример на JavaScript

var Device = new ActiveXObject ("CallOffice.Device");
var NumberPhone = prompt ("Введите номер телефона",'');
Device.Open ();

var Result = Device.Dial (NumberPhone);
if (Result == 0){

   Result = Device.WaitForIncoming (40, 1);
   if (Result == 0) {
      Device.Say ("CallOffice");
   }

   Device.HangUp ();
}
Device.Close ();

Пример на VBScript

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

Device.Open

Result = Device.Dial (NumberPhone)
if Result = 0 then

   Result = Device.WaitForIncoming (40, 2)
   if Result = 0 then
      Device.Say "CallOffice"
   end if

   Device.HangUp
end if

Device.Close

Назад к методам объекта Device.