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

Три способа проиграть звук в 1С



Платформы: 1С:Предприятие 8.2, 1С:Предприятие 8.1
Конфигурации: Все конфигурации
2013-09-16
8290 

 

Не все знают что интерфейс 1С может воспроизводить звуки, вот три примера как это можно делать.


Способ №1

файлз = "C:\1.wav";
Скрипт = Новый COMОбъект("MSScriptControl.ScriptControl");
Скрипт.Language="vbscript";
Скрипт.AddCode("
                    |Function Main()
                    |Set oVoice = CreateObject(""SAPI.SpVoice"")
                    |set oSpFileStream = CreateObject(""SAPI.SpFileStream"")
                    |oSpFileStream.Open """+файлз+"""
                    |oVoice.SpeakStream oSpFileStream
                    |End Function");
Скрипт.Run("Main");
 

Способ №2

файлз = "C:\1.wav";
oVoice = Новый COMObject("SAPI.SpVoice");
oSpFileStream = Новый COMObject("SAPI.SpFileStream");
oSpFileStream.Open(файлз);
oVoice.SpeakStream(oSpFileStream);
oSpFileStream.Close();


Способ №3

файлз = "C:\1.wav";
DynamicWrapper = Новый COMОбъект("DynamicWrapperX");
DynamicWrapper.Register("winmm.dll", "sndPlaySoundA", "i=su");
DynamicWrapper.sndPlaySoundA(файлз, 1);



 



Бесплатная юридическая
консультация по телефону

8 (499) 350-80-26(Москва)
8 (812) 627-15-62(Спб)

звонок бесплатный

В центре внимания

Комментарии (6)