| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Проблема с MediaPlayer [D7, XP]

Volfram ©   (2005-11-19 14:38:00) 

Появилось 2 непонятных проблемки с этим компонентом
1) Хочу сделать, чтобы по нажатию любой клавиши проигрыш прекращался и запускался другой файл.

procedure TMainForm.FormKeyDown(Sender: TObject; var Key: Word;
 Shift: TShiftState);
begin
 if MediaPlayer.FileName='IntroMovie.wmv'
 then begin
       MediaPlayer.Close;
       MediaPlayer.FileName:='soundtrack.mp3';
       MediaPlayer.Open;
       MediaPlayer.Play;
       MediaPlayer.Hide;
       IntroPanel.Hide;
       ChosePanel.Show;
       MainMenu.Show;
      end;
end;

Облом в том, что событие OnKeyDown не происходит. Возможно оно отлавливается другим компонентом, но кроме панелей и Медиа на форме ничего нет. В чем может быть проблема.

2) То же что и в предыдущем варианте, но замена файла происходит по завершению проигрывания предыдущего.

procedure TMainForm.MediaPlayerNotify(Sender: TObject);
begin
 with MediaPlayer do
 begin
   if (NotifyValue=nvSuccessful)
   then begin
          if FileName='IntroMovie.wmv'
          then begin
                 Close;
                 FileName:='soundtrack.mp3';
                 Open;
                 Play;
                 Hide;
                 IntroPanel.Hide;
                 ChosePanel.Show;
                 MainMenu.Show;
               end;
        end;
   Notify:=True;
 end;
end;

По завершении проигрывания и вызове OnNotify значение NotifyValue почему-то не становится равным nvSuccessful.

---

Volfram   (2005-11-20 20:34:00) [1]

а. да не догнал. вопрос исчерпан

---

Virgo_Style   (2005-11-20 17:35:00) [2]

Volfram   (20.11.05 17:29) [5]

Насколько мне известно, здесь не очень хорошо относятся к копированию справки в форум. Так что - сложно. Во всяком случае, сложнее, чем F1 ;-)

---

Volfram   (2005-11-20 17:29:00) [3]

Спасибо! А если, не сложно, можно описать, что это свойство делает (хотелось бы, знать как работает своя прога :) )

---

Virgo_Style   (2005-11-20 16:17:00) [4]

TForm.KeyPreview:=true;

---

Volfram   (2005-11-20 16:00:00) [5]

Ну посоветуйте хоть что-нибудь! Скажите хотя-бы - я правильно предполагаю, что событие отлавливается другим компонентом? Но ведь у панелей и плеера нету такого события. А больше ничего в голову не приходит. :(

---

Volfram   (2005-11-19 20:55:00) [6]

сорри, 2 вопрос отпадает - прояснил все сам. По прежнему нуждаюсь в помощи по первому.

---

Volfram   (2005-11-19 19:49:00) [7]

Нда... Тема потихоньку сползает вниз... неужели такой сложный вопрос?

---

Наверх