Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > событие MediaPlayerNotify

Автор: Kyuuketsuki 18.1.2009, 20:45

Доброго времени суток!
Объясните, пожалуйста, доступным языком, когда программа обрабатывает это событие?
В моей программе фоном идет музыка. В процедуре MediaPlayerNotify идет проверка на окончание трека, чтобы запустить его заново, либо включить новый. Музыку можно отключить в настройках. Но если при запуске программы музыка выключена, то потом (при включении) она проигрывается только раз, то есть в эту процедуру не заходит.

Автор: Kyuuketsuki 25.1.2009, 21:43

наверное, я так никогда и не пойму, в чем была сложность моего вопроса... (

Автор: Ийон 26.1.2009, 07:47

Сложность твоего вопроса в том, что трудно смоделировать в уме именно твою ситуацию и дать ответ, что ты делаешь не так.
Другое дело, если бы ты привел весь код, где используешь TMediaPlayer, особенно процедуру MediaPlayerNotify.

(Предположение.) MediaPlayerNotify однозначно запускается каждый раз, когда трек заканчивается. Из чего следует, что твоя проверка в этой процедуре не дает запустить новый (перезапустить текущий) трек в том случае, когда музыка включается после запуска программы.

Автор: Kyuuketsuki 27.1.2009, 20:59

Код


procedure TForm1.MusicNotify(Sender: TObject);
var FileName : string;
begin
  Randomize;
  if Options.MusicEnabled and Music.Mode = mpStopped then
    begin
        case Form1.Tag of
          0,1,8: FileName := '\music\intro';
          7: FileName := '\music\about';
          else FileName := '\music\background'+IntToStr(Random(6)+1);
        end;
        PlaySound(FileName,music); // вызов процедуры проигрывания файла
        Music.Notify := true;
    end;
end;

Автор: Ийон 28.1.2009, 10:00

Если ты ставишь Music.Notify := true, значит ты где-то ставишь и false.
Это свойство как раз определяет, будет ли запускаться MusicNotify или нет.

Автор: Ийон 28.1.2009, 10:06

Автор: Ийон 28.1.2009, 10:22

Ты ставишь Music.Notify := true, что абсолютно бессмысленно, потому что MusicNotify не получает управление, если Music.Notify := false. (Если конечно ты сам не вызываешь процедуру.)
Проверь, ставишь ли ты где-нибудь Music.Notify := false и убери.

Автор: Kyuuketsuki 28.1.2009, 19:51

при удалении строчки Music.Notify := true ничего не меняется.
а в других местах изменение Notify нет, все проверенно на еще один раз (