КАК ИЗБАВИТЬСЯ ОТ ТОРМОЖЕНИЯ ПРИ ПРОИГРЫВАНИИ? [D7, WinXP]
ronyn © (2005-05-07 03:52:00)
Зделал проигрыватель. ТракБар.Позишн:=МедиаПлейер.Позишн и
т.д.
Обновляю положене движка Трак Бара при помощи Таймере каждую
секунду. Все работает, но видео файлы заикаются. Что делать?
Заранее благодарен.
Antonn (2005-05-07 07:25:00) [1]
Я вот делал как то курсовой, и это тоже меня волновало, но
думать было лень, и я использовал вместо TrackBar'а ProgressBar.
procedure TF_Player.Timer1Timer(Sender: TObject);
begin
try
if (MediaPlayer1.Mode=mpPlaying) or
(MediaPlayer1.Mode=mpPaused) then
ProgressBar.Position:= trunc( MediaPlayer1.Position*100/
MediaPlayer1.Length )
else ProgressBar.Position:=0;
except
end;
end;
procedure TF_Player.ProgressBarMouseDown(Sender: TObject;
Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
try
if (MediaPlayer1.Mode=mpPlaying) or
(MediaPlayer1.Mode=mpPaused) then begin
MediaPlayer1.Position:= trunc( x *
MediaPlayer1.Length /ProgressBar.Width );
MediaPlayer1.Play;
end;
except
end;
end;
Наверх 
ЧАТ |
Орешник |
|
