Прослушать аудиофайл прям в 1С

1С v8

13.04.16

✎

15:25

Есть база на 8.1

В ней есть справочник в котором хранятся прикрепленные к документам аудиофайлы.

Стоит задача сделать так что бы была возможность прослушивать аудио файл прям из документа.

Т.е. открываем форму документа и там жмакаем кнопку, по которой происходит проигрывание файла.

Посоветуйте как лучше реализовать данный алгоритм.

1 mingw

13.04.16

✎

15:30

(0) Ось какая?

2 Aswed

13.04.16

✎

15:30

По логике думаю необходимо файл получить из временного хранилища и сохранить в какую то временную папку на сервере. Откуда запустить его.

3 Aswed

13.04.16

✎

15:31

(1) Сервер 2003 R2

4 mingw

13.04.16

✎

15:32

(3) Еще и из терминала надо? http://catalog.mista.ru/public/18629/

5 Aswed

13.04.16

✎

15:35

(4) Да:)

6 Fish

13.04.16

✎

15:37

про ActiveX Windows Media Player уже было?

7 Aswed

13.04.16

✎

15:38

(6) Нет ещё)

8 Fish

13.04.16

✎

15:40

(7) Вот здесь вкратце: https://helpf.pro/faq8/view/448.html

9 Aswed

13.04.16

✎

16:00

(8) Спасибо. То что надо.

10 Aswed

13.04.16

✎

16:06

А вообще реально передача звука с терминального сервера на клиент? Такое кто нибудь делал?
Потому как все отлично работает, но вот звук не приходит с сервера.

11 Fish

13.04.16

✎

16:10

(10) Реально. Знаю, что в параметрах ярлыка RDP настраивается.

12 Fish

13.04.16

✎

16:11

(11) Локальные ресурсы - Звук удаленного рабочего стола - параметры.

13 Builder

13.04.16

✎

16:11

Я так делал звук. Работает на 7.7 и 8.х

&НаКлиенте
Процедура Команда(Команда)
   мФайл = "C:\1.wav";

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

   spfStream.Open(мФайл);
   spVoice.SpeakStream(spfStream);

   spfStream.Close();
КонецПроцедуры

14 Fish

13.04.16

✎

16:12

(13) А если надо паузу, перемотку и проч?

15 Aswed

13.04.16

✎

16:13

(11) А точно! Спасибо!

16 Builder

13.04.16

✎

16:14

(14) Про паузу и проч в задаче (0) ничего не было :)

17 Aswed

13.04.16

✎

16:14

(14) А не подскажешь по какой команде, из перечня команд элемента ActiveX, происходит начало воспроизведения?

18 Aswed

13.04.16

✎

16:15

(16) )))) Настоящий программист))))

19 Builder

13.04.16

✎

16:16

(18) А то, еще и диплом есть по специальности :)

20 Fish

13.04.16

✎

16:20

(17) play()

21 Aswed

13.04.16

✎

16:25

(20) Нет там такого события)

22 Aswed

13.04.16

✎

16:25

+ (21) пофигу, уже обработал через кнопку.

23 Fish

13.04.16

✎

16:56

(21) Вот отсюда пример: v8: ActiveX Windows Media Player

m_wmpCtr.SetUrl("C:\movie1.wmv");
m_wmpCtr.GetControls().play();

24 sikuda

13.04.16

✎

17:24

Процедура ПриЗакрытии()
    УдалитьФайлы(АдресЗвука);
КонецПроцедуры

Процедура ЗвукНажатие(Элемент)

    АдресЗвука = ПолучитьЗвук();

    balls = "
    | <HTML><BODY scroll='no'>
    | <BGSOUND id='sound_think' balance=0 volume='-5000'></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>";

    ЭлементыФормы.ball.УстановитьТекст(balls);
КонецПроцедуры

Функция ПолучитьЗвук()
    Данные = ПолучитьМакет("sound_ball");
    Если НЕ ЗначениеЗаполнено(АдресЗвука) Тогда
        АдресЗвука = ПолучитьИмяВременногоФайла("mp3");
        Данные.Записать(АдресЗвука);
    КонецЕсли;
    АдресЗвукаНаСтранице = "file:///" + СтрЗаменить(АдресЗвука,"\","//");
    Возврат АдресЗвукаНаСтранице;
КонецФункции

25 sikuda

13.04.16

✎

17:25

http://catalog.mista.ru/public/248770/