Объект Device/Методы/TextToSound: различия между версиями
Перейти к навигации
Перейти к поиску
Евгений (обсуждение | вклад) |
Евгений (обсуждение | вклад) |
||
Строка 13: | Строка 13: | ||
:{|border="0" cellspacing="0" | :{|border="0" cellspacing="0" | ||
|- | |- | ||
'''Text''' - текст синтезируемого сообщения. | |||
'''Service''' | '''Service''' - сервис синтеза Yandex или Google. | ||
'''Speed''' | '''Speed''' - скорость произнесения текста. | ||
'''Voice''' | '''Voice''' - голос. | ||
'''Emotion''' | '''Emotion''' - эмоциональная окраска голоса. | ||
|} | |} | ||
Версия 11:56, 27 января 2021
Метод TextToSound выполняет синтез голосового сообщения.
Синтаксис
|
Параметры
- Text - текст синтезируемого сообщения.
Service - сервис синтеза Yandex или Google.
Speed - скорость произнесения текста.
Voice - голос.
Emotion - эмоциональная окраска голоса.
Результат
- Объект Sound, содержащий синтезированное сообщение.
Описание
- Метод выполняет синтез текста в голосовое сообщения используя технологию Text To Speech (TTS). Голосовая машина используемая для синтеза определяется свойством TTSEngine.
Примеры
- Пример на JavaScript
var Device = new ActiveXObject ("CallOffice.Device");
var NumberPhone = prompt ("Введите номер телефона",'');
Device.Open ();
Device.TTSEngine = "Microsoft Anna - English (United States)"; // Устанавливаем голосовую машину
var Sound = Device.TextToSound ("Hello, this is the program CallOffice!"); // Синтезируем сообщение
var Result = Device.Dial (NumberPhone, 40);
if (Result == 0) {
Device.Say (Sound); // Произносим синтезированное сообщение
}
Device.HangUp ();
Device.Close ();
- Пример на VBScript
Dim Device
Dim Sound
Set Device = CreateObject ("CallOffice.Device")
NumberPhone = prompt ("Введите номер телефона","")
Device.Open
Device.TTSEngine = "Microsoft Anna - English (United States)" ' Устанавливаем голосовую машину
Set Sound = Device.TextToSound ("Hello, this is the program CallOffice!") ' Синтезируем сообщение
Result = Device.Dial (NumberPhone, 40)
if Result = 1 then
Device.Say Sound ' Произносим синтезированное сообщение
end if
Device.HangUp
Device.Close