Первое, что нам нужно, это чтобы у конфигурации была активирована интернет-поддержка
А также активировать подписку на 1С: Синтез речи (есть бесплатный тестовый период без привязки карты:)) вот здесь
Далее устанавливаем расширение в базу (обязательно снимаем галочки «Защита от опасных действий» и «Безопасный режим» - и через функции для технического специалиста находим обработку «Демо синтез речи» - может выдать предупреждение и она не откроется, просто откройте обработку ещё раз.
Далее переходим в настройки
И нажимаем кнопку «Подключить»
Возвращаемся в обработку и тестируем. Если не заработало, установить одну из моделей речи вот здесь
Все готово
Наверное, у вас возник вопрос «Ну и что? А как этим пользоваться за пределами этой обработки?»
Все очень просто, для этого всего лишь нужно добавить вот такой код
РаботаСРечьюСинтезРечиКлиент.Произнести(ОбщегоНазначенияКлиентСервер.ЗначениеВМассиве(Новый Структура("Текст","Ваш текст")));
А также на форму, где он должен работать, нужно добавить и вынести 2 реквизита формы «СтартСинтеза» и «Пауза» - я делаю их строковыми,без этого сам помощник заработает и 1С не упадет, конечно, но вылезет ошибка.
Примечание: запустить можно только на клиенте.
Пример кода в ERP и демонстрация работы:
&НаКлиенте
Процедура ГП_ПриОткрытииПосле(Отказ)
РаботаСРечьюСинтезРечиКлиент.Произнести(ОбщегоНазначенияКлиентСервер.ЗначениеВМассиве(Новый Структура("Текст","Ваш текст")));
КонецПроцедуры
&НаКлиенте
Процедура ГП_ПослеЗаписиПосле(ПараметрыЗаписи)
Если ПараметрыЗаписи.РежимЗаписи = РежимЗаписиДокумента.Проведение Тогда
РаботаСРечьюСинтезРечиКлиент.Произнести(ОбщегоНазначенияКлиентСервер.ЗначениеВМассиве(Новый Структура("Текст","Документ проведен")));
ИначеЕсли ПараметрыЗаписи.РежимЗаписи = РежимЗаписиДокумента.Запись Тогда
РаботаСРечьюСинтезРечиКлиент.Произнести(ОбщегоНазначенияКлиентСервер.ЗначениеВМассиве(Новый Структура("Текст","Документ записан")))
Иначе
РаботаСРечьюСинтезРечиКлиент.Произнести(ОбщегоНазначенияКлиентСервер.ЗначениеВМассиве(Новый Структура("Текст","У документа отменено проведение")))
КонецЕсли;
КонецПроцедуры
Примечание: тестировалось на платформе 8.3.25.1445 и конфигурации 1С:ERP Управление предприятием 2 (2.5.17.172).
Вступайте в нашу телеграмм-группу Инфостарт
