Объект Device/Свойства/TTSEngineList
Версия от 08:15, 14 октября 2013; McBurns (обсуждение | вклад) (Новая страница: «Свойство '''TTSEngineList''' позволяет получить список доступных голосовых машин. ==Синтаксис== :<…»)
Свойство TTSEngineList позволяет получить список доступных голосовых машин.
Синтаксис
VARIANT TTSEngineList
Описание
- Свойство TTSEngineList позволяет получить список доступных голосовых машин (TTS Engine). Список содержит названия голосовых машин поддерживающих интерфейс SAPI4 и SAPI5. Если свойство вызвано без параметров - список голосовых машин возвращается в виде одномерного массива. Если указан любой параметр, список голосовых машин возвращается в виде двумерного массива, каждая строка которого - отдельная машина, а столбцы имеют значение:
- 0 - имя голосовой машины;
- 1 - интерфейс поддерживаемой машиной SAPI4 или SAPI5 в виде числа (4 или 5);
- 2 - системный идентификатор голосовой машины GUID в виде строки.
- Используя свойство TTSEngine можно установить текущую голосовую машину которая будет использоваться для синтеза голосовых сообщений. Для синтеза сообщений следует использовать методы SayText или TextToSound.
Примеры
- Пример на JavaScript
var Device = new ActiveXObject ("CallOffice.Device");
var List = Device.TTSEngineList.toArray (); // Получаем список доступных голосовых машин
var TTSEngineList = "Список голосовых машин без атрибутов:\n";
for (i = 0; i < List.length; i++) {
TTSEngineList += List[i] + "\n"; // Выводим имя голосовой машины
}
TTSEngineList += "\nСписок голосовых машин c атрибутами:\n";
var List = Device.TTSEngineList(1).toArray (); // Получаем список доступных голосовых машин с атрибутами
for (i = 0; i < List.length; i++) {
var Engine = List[i].toArray ();
TTSEngineList += Engine[0] + "\n"; // Выводим имя голосовой машины
}
alert (TTSEngineList);
- Пример на VBScript
Dim Device
Set Device = CreateObject ("CallOffice.Device")
List = Device.TTSEngineList ' Получаем список доступных голосовых машин
for i = 0 to UBound (List)
MsgBox List(i), vbOkOnly + VbInformation, "Голосовая машина" ' Выводим имя голосовой машины
next
List = Device.TTSEngineList (1) ' Получаем список доступных голосовых машин с атрибутами
for i = 0 to UBound (List)
MsgBox List(i)(0), vbOkOnly + VbInformation, "Голосовая машина" ' Выводим имя голосовой машины
next