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

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

← →
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;

---

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

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



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