Hallo zusammen,
wie kann ich im DSPack ein Video natlos loopen ?
währe schön wenn einer helfen könnte
Delphi-Quellcode:
procedure TFormVMRMixer.Timer1Timer(Sender: TObject);
begin
if not FilterGraph.Active then EXIT;
(Filtergraph as IMediaSeeking).GetCurrentPosition(CurrentPos);
(Filtergraph as IMediaSeeking).GetStopPosition(StopPos);
MlsStopPos := RefTimeToMiliSec(StopPos);
MlsCurrentPos := RefTimeToMiliSec(CurrentPos);
PosBar.Position:=CurrentPos;
if CurrentPos = StopPos then
begin
CurrentPos := (StopPos * 0) div (MlsStopPos div 1000) ;
(Filtergraph as IMediaSeeking).SetPositions(CurrentPos, AM_SEEKING_AbsolutePositioning,
StopPos,AM_SEEKING_NoPositioning);
end;
end;
So fuzt das nicht!
die PosBar fängt zwar wieder von vorn an zu laufen aber das bild bleibt schwarz
der Interval vom Timer steht auch auf 1.