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

Момент в видеофайле   Найти похожие ветки 

← →
Ronin   (2003-05-14 01:35) [0]

Привет всем!!!
Кто нить мне подскажет как используя TMediaPlayer перемотать фильм на нужный кадр!!!
Заранее спасибо

---

← →
Дмитрий К.К. ©   (2003-05-14 12:10) [1]

TMediaPlayer.Frames
TMediaPlayer.Step
TMediaPlayer.Back

---

← →
Black Diver   (2003-06-05 00:04) [2]

Глобальные переменные

Form1: TForm1;
det:boolean;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
with MediaPlayer1 do
begin
det:=true;
if FileName<>"" then
trackbar1.Position:=MediaPlayer1.Position;
det:=false;
end;
end; // на Track bar показывает текущюю позицию

procedure TForm1.TrackBar1Change(Sender: TObject);
var
po:integer;
begin
if det=false then
begin
po:=trackbar1.Position;
mediaplayer1.Position:=po;
mediaplayer1.play;
end;
end; // перемещение

---

← →
Думкин ©   (2003-06-05 05:23) [3]

А вот отслеживать кадры по ходу - вот бы!
Таймер хорош - но....

---

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

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



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