Modber Сообщество
профессионалов по 1С

Как вывести звук в 1С. 8

Очень надо, слышить уведомления
  
Сообщений: 1

0
Добрый день коллеги!
Нужно озвучить тонкого клиента. Чтобы все уведомления системы были с озвучкой. Часто программа свернута, и хотелось бы сразу смортеть все изменения в программе.
Грамота
Сообщений: 83

0
Для Windows-систем подойдет такой вариант
Код 1C:
  1. oVoice = Новый COMОбъект("SAPI.SpVoice");
  2. oVoice.Rate = -3; // скорость голоса
  3. oVoice.Volume = 100; // громкость
  4. oVoice.Speak ("Alarm! New letter!"); // произносимый текст
Это запускается голосовой движок Windows и проговаривает произвольный текст. Но на английском.
Можно пытаться подобрать латиницей русский текст, но получается криво

Еще можно сделать за счет сворачивания всех окон и открытия текста в текстовом редакторе:
Код 1C:
  1. Попытка
     
    Shell =
    Новый COMОбъект("Shell.Application");
  2. Shell.MinimizeAll();
  3.  
  4. бат = Новый ТекстовыйДокумент;
  5. бат.УстановитьТекст("Внимание! У вас новое письмо!");
  6. Путь = ПолучитьИмяВременногоФайла("txt");
  7. бат.Записать(Путь);
  8. ЗапуститьПриложение(Путь,,Истина); // открыть модально
  9.  
  10. Исключение
     
    КонецПопытки;
Тогда у пользователя свернутся все окна и откроется текстовый редактор (например Notepad) с текстом сообщения.
Работает для системы, а не только для программы.
Сообщений: 33

0
Очень интересное предложение дал WORDERMAKER. Никогда не задумывался о том, чтобы озвучить получение сообщения или письма в 1С. Все же у меня есть сомнения, а будет ли работать такая программа в терминальном режиме? Если ваша программа работает в терминальном режиме, то предложение автора, опубликованное выше, не сможет вам помочь, поскольку окна тихонько свернуться и вы все равно не увидите результата.
В начало страницы 
|
Перейти на форум: