Forums

hello,

I try BasicVideo on Delphi 7, it seems a very good vcl but seeking with TVLAVIPlayer.CurrentFrame works only half the time

I tried this simple code with clock.avi (12 frames) provided on xp :

if not TVLAVIPlayer.Paused then TVLAVIPlayer.Pause;
c := TVLAVIPlayer.CurrentFrame;
for i := c+1 to c+6 do
TVLAVIPlayer.CurrentFrame := i;

the frame is shown once on two (i=1, 3, 5 ...)

and the VLAVIPlayer.OnProgress too, fired once on two

is there a way to solve it ?

thanks in advance

I found an explication with pump, trying that :

VLAVIPlayer1.Pause;
VLAVIPlayer1.ClockSource := csExternal;
VLAVIPlayer1.CurrentPos := n;
VLAVIPlayer1.Pump;
Label1.Caption := IntToStr(VLAVIPlayer1.CurrentFrame); // => n+1

so after Pump VLAVIPlayer1 go on n+1 !