Форум: "Начинающим";
Текущий архив: 2009.03.15;
Скачать: [xml.tar.bz2];
Вниз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 вся ветка
Форум: "Начинающим";
Текущий архив: 2009.03.15;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.051 c