Момент в видеофайле

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

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

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