КАК ИЗБАВИТЬСЯ ОТ ТОРМОЖЕНИЯ ПРИ ПРОИГРЫВАНИИ?

← →
ronyn (2005-05-07 03:52) [0]

Зделал проигрыватель. ТракБар.Позишн:=МедиаПлейер.Позишн и т.д.
Обновляю положене движка Трак Бара при помощи Таймере каждую секунду. Все работает, но видео файлы заикаются. Что делать? Заранее благодарен.

← →
Antonn © (2005-05-07 07:25) [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;

КАК ИЗБАВИТЬСЯ ОТ ТОРМОЖЕНИЯ ПРИ ПРОИГРЫВАНИИ? Найти похожие ветки