Объект Device/Свойства/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

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