Объект Device/Методы/TextToSound: различия между версиями

Материал из Call Office Wiki
Перейти к навигации Перейти к поиску
Строка 36: Строка 36:


==Примеры==
==Примеры==
:Пример с использованием Yandex на JavaScript
<syntaxhighlight lang="javascript">
var Device = new ActiveXObject ("CallOffice.Device");
var NumberPhone = prompt ("Введите номер телефона",'');
Device.Open ();
var Sound = Device.TextToSound ("Привет, это программа CallOffice", "Service=Yandex; speed=0.5; voice=zahar; emotion=good;"); // Синтезируем голос
var Result = Device.Dial (NumberPhone, 40);
if (Result == 0) {
  Device.Say (Sound);                                                      // Произносим синтезированное сообщение
}
Device.HangUp ();
Device.Close ();
</syntaxhighlight>
:Пример на JavaScript
:Пример на JavaScript
<syntaxhighlight lang="javascript">
<syntaxhighlight lang="javascript">
Строка 52: Строка 69:
Device.HangUp ();
Device.HangUp ();
Device.Close ();
Device.Close ();
</syntaxhighlight>
:Пример с использованием Yandex на VBScript
<syntaxhighlight lang="vb">
Dim Device
Dim Sound
Set Device = CreateObject ("CallOffice.Device")
NumberPhone = prompt ("Введите номер телефона","")
Device.Open
Set Sound = Device.TextToSound ("Привет, это программа CallOffice", "Service=Yandex; Speed=0.5; Voice=zahar; Emotion=good;"); // Синтезируем голос
Result = Device.Dial (NumberPhone, 40)
if Result = 1 then
  Device.Say Sound                                                        ' Произносим синтезированное сообщение
end if
Device.HangUp
Device.Close
</syntaxhighlight>
</syntaxhighlight>



Версия 12:25, 27 января 2021

Метод TextToSound выполняет синтез голосового сообщения.

Синтаксис

TextToSound (BSTR Text)

Параметры

Text - текст синтезируемого сообщения.
Service - сервис синтеза Yandex или Google.
Speed - скорость произнесения текста.
Voice - голос.
Emotion - эмоциональная окраска голоса.

Результат

Объект Sound, содержащий синтезированное сообщение.

Описание

Метод выполняет синтез текста в голосовое сообщения используя технологию Text To Speech (TTS). Голосовая машина используемая для синтеза определяется свойством TTSEngine.

Примеры

Пример с использованием Yandex на JavaScript
var Device = new ActiveXObject ("CallOffice.Device");
var NumberPhone = prompt ("Введите номер телефона",'');

Device.Open ();

var Sound = Device.TextToSound ("Привет, это программа CallOffice", "Service=Yandex; speed=0.5; voice=zahar; emotion=good;"); // Синтезируем голос

var Result = Device.Dial (NumberPhone, 40);
if (Result == 0) {
   Device.Say (Sound);                                                      // Произносим синтезированное сообщение
}
Device.HangUp ();
Device.Close ();
Пример на 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 ();
Пример с использованием Yandex на VBScript
Dim Device
Dim Sound
Set Device = CreateObject ("CallOffice.Device")
NumberPhone = prompt ("Введите номер телефона","")

Device.Open

Set Sound = Device.TextToSound ("Привет, это программа CallOffice", "Service=Yandex; Speed=0.5; Voice=zahar; Emotion=good;"); // Синтезируем голос

Result = Device.Dial (NumberPhone, 40)

if Result = 1 then
   Device.Say Sound                                                        ' Произносим синтезированное сообщение
end if

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

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