Объект Device/Методы/Talk: различия между версиями
Перейти к навигации
Перейти к поиску
McBurns (обсуждение | вклад) |
McBurns (обсуждение | вклад) |
||
Строка 1: | Строка 1: | ||
Метод '''Talk''' служит для разговора с абонентом, используя микрофон и звуковую карту компьютера. | {| | ||
|- | |||
|style="width:90%;"|Метод '''Talk''' служит для разговора с абонентом, используя микрофон и звуковую карту компьютера. | |||
==Синтаксис== | ==Синтаксис== | ||
Строка 5: | Строка 7: | ||
DeviceResult Talk ([LONG Timeout,] LONG * Result) | DeviceResult Talk ([LONG Timeout,] LONG * Result) | ||
</syntaxhighlight> | </syntaxhighlight> | ||
|style="width:10%;"|__TOC__ | |||
|} | |||
==Параметры== | ==Параметры== |
Версия 06:22, 17 октября 2013
Метод Talk служит для разговора с абонентом, используя микрофон и звуковую карту компьютера.
Синтаксис
|
Параметры
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.Talk (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