1С воспроизведение мелодии при напоминании о задаче

Algoritmer — Wed, 23 Oct 2013 10:10:21 GMT

Платформа: 1С 8.2
Конфигурация: утп
Режим запуска: обычное приложение

Недавно столкнулся с задачей.
Клиент захотел, чтоб 1С-ка при напоминании о какой-то Задаче проигрывала звук, при этом стандартный 1С-совский

1C
1
Сигнал()

был не интересен.

Дело в том, что в 1С не предусмотрено воспроизведение муз. треков стандартными средствами. Порывшись в интернете нашел идею (и реализацию под тонкого клиента) как воспроизводить мызукальный трек, используя ПолеHTMLДокумента.
Первый вопрос, который у меня возник: как отловить сам момент напоминания о задаче?
Недолго думая, решил поместить код запуска муз. трека в обработчик ПриОткрытии() формы ОповещенияОЗадаче.

1. Итак, в объекте ЗадачиПользователя создаем ещё одну форму (произвольную), я назвал её ФМузыка.
2. Вставляем в неё элемент управления ПолеHTMLДокумента
3. Теперь в модуль формы ФМузыка вставляем следующий код:

1C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Функция ПолучитьСетевойПуть(ИмяФайлаWindows)
    файлсеть=СтрЗаменить(ИмяФайлаWindows,"\","/");
    файлсеть="file:///"+файлсеть;
    Возврат файлсеть;
КонецФункции
Функция ПолучитьПапку(ИмяФайлаWindows)
    сч=СтрДлина(ИмяФайлаWindows);
    пока сч>=1 Цикл
        если Сред(ИмяФайлаWindows,сч,1)="\" тогда Прервать; КонецЕсли;
        сч=сч-1;
    КонецЦикла;
    Возврат Лев(ИмяФайлаWindows,сч);
КонецФункции
Процедура ПриОткрытии()
    ЭтаФорма.ЗакрыватьПриЗакрытииВладельца=Истина;
    //ПутьКМузФайлу="D:\1.mp3";    
    ПутьКМузФайлу=Константы.МузФайл.Получить();    
    ПутьКПапке=ПолучитьПапку(ПутьКМузФайлу);
    ИмяФайлаHtml=ПутьКПапке+"1.html";
    ТэгФлэшБраузерногоПлеера = "<EMBED height=""40"" type=""audio/x-mpeg"" width=""220"" src=""{ПутьКФайлу}"" autostart=""true"" loop=""false"">EMBED>";
    ТэгФлэшБраузерногоПлеера=СтрЗаменить(ТэгФлэшБраузерногоПлеера, "{ПутьКФайлу}",ПутьКМузФайлу);
    Файл = Новый ЗаписьТекста(ИмяФайлаHtml);       
    Файл.ЗаписатьСтроку(ТэгФлэшБраузерногоПлеера);    
    Файл.Закрыть();  
    ЭлементыФормы.ПолеHTMLДокумента.Перейти(ПолучитьСетевойПуть(ИмяФайлаHtml)); 
КонецПроцедуры

4. После этого в обработчик ПриОткрытии() формы ФормаОповещенияОЗадачах добавляем строки:

1C
1
2
3
фмуз=задачи.ЗадачиПользователя.ПолучитьФорму("ФМузыка");
фмуз.ВладелецФормы=ЭтаФорма;   
фмуз.Открыть();

5. Теперь при срабатывании какой-либо задачи пользователь сможет узнать, даже если 1С свернута или он находится не за компьютером

Замечание: на компьютере браузер по умолчанию должен поддерживать HTML5. Для Windwos это InternetExplorer 8 или выше

Форум программистов и сисадминов Киберфорум - Блоги - Algoritmer

1С воспроизведение мелодии при напоминании о задаче