Directshow - Video endlosschleife ??? loopen ???

[SwordfishCenter]

Hallo zusammen,
wie kann ich im DSPack ein Video natlos loopen ? :gruebel:
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 :gruebel:
der Interval vom Timer steht auch auf 1.

[lbccaleb]

Hey hab den Beitrag erst jetzte gelesen :(

Wenn du nicht bereits ne ösung gefunden hast, hab ich mal was für dich vorbereitet!
Hab eines der Bsp. vom DSPack einwenig "modifiziert"!

Unten Angehangen...



Sollte dir das nicht ausreichen, dann kannst du nach einer etwas kompizierteren Methode verfahren!
Die findest du hier:

Loop