Как воспроизвести звук из Navision?

[Arshak]

Помогите плиз..
делаю так
SHELL('C:\Program Files\Windows Media Player\mplayer2.exe', 'c:\woohoo.wav');
звук отрабатывает, но каждый раз открывается окно программы, как вопроизвести нужный звук не запуская программу?

[dmitryP]

Создаете переменную типа Automation 'Windows Media Player'.MediaPlayer
все необходимое найдется в ее свойствах и методах

[Arshak]

СПАСИБО!!!
дело в том что я всю субботу тыкался в этот automation но он выдавал ошибку типа сервер не зарегистрирован,
но после твоего поста я еще раз внимательно посмотрел его свойства и сделал так


CREATE(MediaPlayer);
MediaPlayer.Open('c:\woohoo.wav');

CLEAR(MediaPlayer);
все получилось

[Arshak]

коллега, подскажите как установить громкость
делаю так
MediaPlayer.Volume:=50;
вылетаю в ошибку

[dmitryP]

Значение Volume устанавливается до 0, т.е. 0 - это максимальная громкость.

[Arshak]

Супер! век живи век учись! спасибо ты мне очень помог!
интересно только в каких значениях устанавливается этот параметр? полностью звук выключился где то на -2500.

[KDSRUS]

Всем привет.

Прописал код выше:

CREATE(MedPl);
MedPl.Open('C:\Snd.wav');
MedPl.Volume(-1000);
CLEAR(MedPl);

-НЕ ВОСПРОИЗВОДИТ.

..Если ставить значение Volume больше 0, то ВОСПРОИЗВОДИТ, НО появляется ошибка

---------------------------
Microsoft Dynamics NAV Classic
---------------------------
This message is for C/AL programmers:

An exception was raised in method Volume. The OLE control or Automation server has returned error (HRESULT) -2147352567.
The component did not provide the exception description.
---------------------------
ОК
---------------------------

Как все наладить...клиент Nsv 2009 Build: 6.00.32012

[KDSRUS]

Все спасибо..разобрался - правильный код:


CLEAR(MedPl);
CREATE(MedPl);
MedPl.Open('C:\!WORK\Snd.wav');
MedPl.Volume(-100);

[KDSRUS]

Я скорректировал этот код под Чек-бокс..появился вопрос...
Хотел как - то привязаться к тому что аудио-файл закончился - сниматть галку с чек-бокса...можно так сделать!?