Звук в 1С 8

Сегодня попробую рассказать о том, какие методы работы со звуком доступны в 1С.

Содержание

Штатные средства
Microsoft Speech API (SAPI)
DynamicWrapperX
HTML

Штатные средства

На самом деле, штатных средств для работы со звуком, насколько я знаю, в 1С ровно одно — убогая процедура «Сигнал».

&НаКлиенте
Процедура Команда(Команда)
   Сигнал();
КонецПроцедуры

&НаКлиенте

Процедура Команда(Команда)

Сигнал();

КонецПроцедуры

Она не принимает никакие параметры и просто издает системный звук.

Штатные методы закончились, а из нештатных есть следующие варианты.

Microsoft Speech API (SAPI)

Разработку Microsoft для синтеза голоса вполне можно использовать для воспроизведения wav-файлов, делается это так:

&НаКлиенте
Процедура Команда(Команда)
   мФайл = "C:\1.wav";
 
   spVoice = Новый COMОбъект("SAPI.SpVoice");
   spfStream = Новый COMОбъект("SAPI.SpFileStream");
 
   spfStream.Open(мФайл);
   spVoice.SpeakStream(spfStream);
 
   spfStream.Close(); 
КонецПроцедуры

&НаКлиенте

Процедура Команда(Команда)

мФайл = "C:\1.wav";

spVoice = Новый COMОбъект("SAPI.SpVoice");

spfStream = Новый COMОбъект("SAPI.SpFileStream");

spfStream.Open(мФайл);

spVoice.SpeakStream(spfStream);

spfStream.Close();

КонецПроцедуры

Кроме этого с помощью Speech API можно реализовать голосовое произнесение какого-либо текста — функция «Speak», параметр — строка текста, сама технология поддерживает 26 языков, включая русский, но, насколько я знаю, для поддержки русского необходимо скачивать и устанавливать специальную библиотеку (возможно, позднее разберусь с этим и напишу статью). Почитать подробнее об функционале Speech API можно на MSDN (на английском).

DynamicWrapperX

DynamicWrapperX — достаточно известная в некоторых кругах библиотека, которая позволяет зарегистрировать и использовать функции какой-либо другой библиотеки. Саму DynamicWrapperX можно скачать на сайте автора.

С помощью DynamicWrapperX можно зарегистрировать «sndPlaySoundA» из библиотеки «winmm.dll» и использовать эту функцию для воспроизведения wav-файлов.

Это может выглядеть так:

&НаКлиенте
Процедура ВоспроизвестиWAV()
   мФайл = "C:\1.wav";
 
   DynWrapЗарегистрирован = Ложь;
 
   Попытка
      DynWrap = Новый COMОбъект("DynamicWrapperX");
      DynWrapЗарегистрирован = Истина;
      Исключение
         тОбъект = ПолучитьМакетНаСервере();
         тОбъект.Записать(КаталогВременныхФайлов() +"dynwrapx.dll");
 
         КомандаСистемы("regsvr32 dynwrapx.dll", КаталогВременныхФайлов());
         Попытка 
            DynWrap = Новый COMОбъект("DynamicWrapperX");
            DynWrapЗарегистрирован = Истина;
         Исключение
            Сообщить("Ошибка регистрации библиотеки");
         КонецПопытки;
   КонецПопытки;
 
   Если DynWrapЗарегистрирован Тогда
      DynWrap.Register("winmm.dll", "sndPlaySoundA", "i=su");
      DynWrap.sndPlaySoundA(мФайл, 1);
   КонецЕсли;
КонецПроцедуры

&НаСервере
Функция ПолучитьМакетНаСервере()
   Возврат Обработки.ЗвукВ1С.ПолучитьМакет("dynwrapx");
КонецФункции

&НаКлиенте

Процедура ВоспроизвестиWAV()

мФайл = "C:\1.wav";

DynWrapЗарегистрирован = Ложь;

Попытка

DynWrap = Новый COMОбъект("DynamicWrapperX");

DynWrapЗарегистрирован = Истина;

Исключение

тОбъект = ПолучитьМакетНаСервере();

тОбъект.Записать(КаталогВременныхФайлов() +"dynwrapx.dll");

КомандаСистемы("regsvr32 dynwrapx.dll", КаталогВременныхФайлов());

Попытка

DynWrap = Новый COMОбъект("DynamicWrapperX");

DynWrapЗарегистрирован = Истина;

Исключение

Сообщить("Ошибка регистрации библиотеки");

КонецПопытки;

Если DynWrapЗарегистрирован Тогда

DynWrap.Register("winmm.dll", "sndPlaySoundA", "i=su");

DynWrap.sndPlaySoundA(мФайл, 1);

КонецЕсли;

КонецПроцедуры

&НаСервере

Функция ПолучитьМакетНаСервере()

Возврат Обработки.ЗвукВ1С.ПолучитьМакет("dynwrapx");

КонецФункции

В этом примере подразумевается наличие макета «dynwrapx» (тип — двоичные данные). Для успешной регистрации библиотеки (DynamicWrapperX), 1С нужно запустить от имени администратора.

HTML

И, наконец, последний на сегодня способ — при помощи html-тега «bgsound». На форме должен быть элемент «Поле HTML документа». Насколько я понял, этот элемент должен именно быть виден на форме, т.к. у меня звук не воспроизводился если я скрывал это элемент (Видимость=Ложь).

Главный плюс этого способа — возможность воспроизвести mp3-файлы (а вот wav-файлы, наоборот нельзя), а в минусы можно записать необходимость присутствия на форме поля HTML документа (если я не ошибаюсь) и зависимость от настроек Internet Explorer-а (в настройках Explorer-а должно быть включено воспроизведение звуков страницы).

Сама же реализация выглядит приблизительно так:

&НаКлиенте
Процедура ВоспроизвестиMP3()
   мФайл = ПолучитьАдресФайла();
 
   ПолеHTML = "
   | <HTML>
   | <BODY scroll='no'>
   | <BGSOUND id='sound_think' balance=0 volume='-1000'></BGSOUND>
   | <div id=paperRaphael></div>
   | <script>
   | function PlaySound() {
   | if (!window.HTMLAudioElement) {
   | document.all.sound_think.volume=0; 
   | document.all.sound_think.src = '"+мФайл+"';
   | }
   | }
   | window.onload = function(){
   | PlaySound();
   | }
   | </script>
   | </BODY>
   | </HTML>";
КонецПроцедуры

&НаСервере
Функция ПолучитьАдресФайла()
   Возврат ПоместитьВоВременноеХранилище(Обработки.ЗвукВ1С.ПолучитьМакет("sound"));
КонецФункции

&НаКлиенте

Процедура ВоспроизвестиMP3()

мФайл = ПолучитьАдресФайла();

ПолеHTML = "

| ";

КонецПроцедуры

&НаСервере

Функция ПолучитьАдресФайла()

Возврат ПоместитьВоВременноеХранилище(Обработки.ЗвукВ1С.ПолучитьМакет("sound"));

КонецФункции

В примере подразумевается, что существует макет с типом двоичные данные, в котором и храниться звуковой файл, а на форме имеется элемент «Поле HTML документа» (в примере он называется «ПолеHTML»).

На этом все, надеюсь эта статья Вам помогла.

Если Вы нашли ошибку или неточность, пожалуйста, выделите фрагмент текста и нажмите Ctrl+Enter.

Оценка статьи: