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

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

MediaPlayer [D7, WinXP]


Crite ©   (2003-11-06 20:10:00) 

Ребята помогите разобраться.
procedure TForm3.FormCreate(Sender: TObject);
begin
MediaPlayer1.Open;
MediaPlayer1.TimeFormat:=tfMilliseconds;
Timer1.Interval:=MediaPlayer1.Length;
MediaPlayer1.Play;
end;

По клику на кнопке главной формы создаёться форма в которой проигрывается AVI-клип, по завершению которого она закрываеться.Закрывает её таймер.Глюк в том, что каждый раз при открытии формы интервал таймера почему-то имеет разное значение и всегд меньшее чем длинна клипа.Объясните пожалуйста, в чём ошибка.
Заране спасибо.


Думкин   (2003-11-07 05:19:00) [1]

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


Mihey   (2003-11-06 21:06:00) [2]

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


Наверх

Титульная страница Поиск, карта сайта Написать письмо