Сообщений: 1 | #1 - 26 февраля 2014 в 21:06 | |
Добрый день коллеги!
Нужно озвучить тонкого клиента. Чтобы все уведомления системы были с озвучкой. Часто программа свернута, и хотелось бы сразу смортеть все изменения в программе. |
Сообщений: 83 | #2 - 28 апреля 2014 в 10:03 | |
Для Windows-систем подойдет такой вариант
[code=1C] oVoice = Новый COMОбъект("SAPI.SpVoice");
oVoice.Rate = -3; // скорость голоса
oVoice.Volume = 100; // громкость
oVoice.Speak ("Alarm! New letter!"); // произносимый текст[/code]
Это запускается голосовой движок Windows и проговаривает произвольный текст. Но на английском.
Можно пытаться подобрать латиницей русский текст, но получается криво
Еще можно сделать за счет сворачивания всех окон и открытия текста в текстовом редакторе:
[code=1C] Попытка
Shell = Новый COMОбъект("Shell.Application");
Shell.MinimizeAll();
бат = Новый ТекстовыйДокумент;
бат.УстановитьТекст("Внимание! У вас новое письмо!");
Путь = ПолучитьИмяВременногоФайла("txt");
бат.Записать(Путь);
ЗапуститьПриложение(Путь,,Истина); // открыть модально
Исключение
КонецПопытки;[/code]
Тогда у пользователя свернутся все окна и откроется текстовый редактор (например Notepad) с текстом сообщения.
Работает для системы, а не только для программы. |
Сообщений: 33 | #3 - 29 сентября 2014 в 20:07 | |
Очень интересное предложение дал WORDERMAKER. Никогда не задумывался о том, чтобы озвучить получение сообщения или письма в 1С. Все же у меня есть сомнения, а будет ли работать такая программа в терминальном режиме? Если ваша программа работает в терминальном режиме, то предложение автора, опубликованное выше, не сможет вам помочь, поскольку окна тихонько свернуться и вы все равно не увидите результата. |