Форум: "Начинающим";
Текущий архив: 2005.12.11;
Скачать: [xml.tar.bz2];

Вниз

Проблема с MediaPlayer   Найти похожие ветки 

← →
Volfram   (2005-11-19 14:38) [0]

Появилось 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-19 19:49) [1]

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

---

← →
Volfram   (2005-11-19 20:55) [2]

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

---

← →
Volfram   (2005-11-20 16:00) [3]

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

---

← →
Virgo_Style ©   (2005-11-20 16:17) [4]

TForm.KeyPreview:=true;

---

← →
Volfram   (2005-11-20 17:29) [5]

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

---

← →
Virgo_Style ©   (2005-11-20 17:35) [6]

Volfram   (20.11.05 17:29) [5]

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

---

← →
Volfram   (2005-11-20 20:34) [7]

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

---

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

Форум: "Начинающим";
Текущий архив: 2005.12.11;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.055 c