Скачать: CL | DM;

MCISendString с флагом notify   Найти похожие ветки 

← →
engine ©   (2009-01-28 11:51) [0]

Хочу отловить сообщение об окончании проигрывания звукового файла. Пытаюсь реализовать это следующим образом:
RetError :=  mmsystem.mciSendString(PChar("play " + MyTestFile + " notify"),
                           nil,
                           0,
                           MainForm.Handle);
Затем анализируя значение RetError получаю MCIERR_NOTIFY_ON_AUTO_OPEN, т.е. The "notify" flag is illegal with auto-open.
Как заставить mciSendString сообщать форме MM_MCINOTIFY?

---

← →
Юрий Зотов ©   (2009-01-28 13:25) [1]

http://delphiblog.ru/2007/mcisendstring/

---

← →
engine ©   (2009-01-28 13:50) [2]

Юрий, спасибо за ссылку. В MSDN как-то расплывчато расписано было. В общем, сначало необходимо было произвести инициализацию устройства. За это отвечает команда open.
Чтобы, не париться, к какому типу устройства соотнести медиа-файл, инициализацию устройства проще проводить, так:
RetError :=  mciSendString(PChar("open " + MyTestFile + " alias MySound"),
                          nil,
                          0,
                          0);
...
А уж затем воспроизводить файл:
RetError :=  mciSendString(PChar("play MySound notify"),
                          nil,
                          0,
                          MainForm.Handle);

Всем спасибо за внимание.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.011 c