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

MediaPlayer   Найти похожие ветки 

← →
Crite ©   (2003-11-06 20:10) [0]

Ребята помогите разобраться.
procedure TForm3.FormCreate(Sender: TObject);
begin
MediaPlayer1.Open;
MediaPlayer1.TimeFormat:=tfMilliseconds;
Timer1.Interval:=MediaPlayer1.Length;
MediaPlayer1.Play;
end;
По клику на кнопке главной формы создаёться форма в которой проигрывается AVI-клип, по завершению которого она закрываеться.Закрывает её таймер.Глюк в том, что каждый раз при открытии формы интервал таймера почему-то имеет разное значение и всегд меньшее чем длинна клипа.Объясните пожалуйста, в чём ошибка.
Заране спасибо.

---

← →
Mihey ©   (2003-11-06 21:06) [1]

Стандартный таймер очень неточен, он не отражает реальное время. А твою задачу нужно решать по другому. При завершении проигрывания медиаплеер генерирует событие OnNotify.

---

← →
Думкин ©   (2003-11-07 05:19) [2]

Генерирует. Но у меня при проигрывании МПЕГ файлов бывало такое -
приходим в событие - а флаг не mpStopped, а mpPlaying.

---

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

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



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