Animation nur einmal ablaufen lassen

[SaFu]

Hi

Wie kann ich eine .avi ein enziges mal abspielen lassen. Vielleicht mal etwas Code dann wirds ersichtlicher.

Das hier läuft in einem Timer

Delphi-Quellcode:

      if (bild = '.jpg') then //Pfad + .jpg auf TImage
        begin
          AnVideo.Visible:= False;
          // Laden der Bilder
          Image1.Picture.LoadFromFile(Bilddat + FileListBox1.Items[index]);
        end;

       if (bild = '.avi') then //Pfad + .avi auf TAnimate
        begin
        AnVideo.Visible:= True;
        Timer2.Enabled:= False;
        AnVideo.FileName:= Form1.VistaPfadBilder + FileListBox1.Items[index];
        AnVideo.Active:= True;

          if Anvideo.Repetitions <> 1 then
           begin
            Timer2.Enabled:= True;
           end;
        end;

Jedes mal wenn eine .avi gefunden wird würde ich diese gerne einmal Komplett durchlaufen lassen aber bekomm das irgendwie nicht hin.

Benutze zur Zeit zum Testen die Clock.avi die hat ja mehrere Bilder und wenn die durchgelaufen sind (die .avi) dann der Timer wieder laufen

[DeddyH]

Laut Hilfe sollte es genügen, Repetitions auf 1 zu setzen.

Zitat:

Die Eigenschaft Repetitions gibt an, wie oft die Frame-Sequenz wiederholt werden soll.

property Repetitions: Integer;

Beschreibung

Setzen Sie Repetitions auf die Anzahl der gewünschten Wiederholungen, die erfolgen sollen, sobald Active auf True gesetzt ist. Nach Ablauf aller Wiederholungen steht Active wieder auf False.

Wenn eine Sequenz nur einmal gezeigt werden soll, setzen Sie Repetitions auf 1. Der Wert 0 löst eine ununterbrochene Wiederholung aus. Die Animation muß dann mit der Eigenschaft Active oder der Methode Stop unterbrochen werden.

Hinweis

Die Methode Play überschreibt den Wert von Repetitions mit dem Wert ihres Parameters Count.

[SaFu]

Hatte ich ja und habe dann ja auch darauf geprüft oben ist es jetzt zwar <> aber hatte auf = geprüft Trotzdem ging es nicht

[Die Muhkuh]

Was macht der Timer2?

[DeddyH]

Ich verstehe die Logik nicht ganz. Du willst den Timer starten, wenn die Animation einmal durchgelaufen ist?

[SaFu]

Der ist für das laden der Bilder zusändig

Ich halte Ihn an um die Avi datei abzuspielen und dannach soll er weiter laufen. Mir ist klar das er dann iwieder von anfang an anfängt aber das er da weiter macht wo er aufgehört hat mach ich dannach

Delphi-Quellcode:

procedure TForm3.Timer2Timer(Sender: TObject);
begin
  if FileListBox1.Items.Count > 0 then
   begin

     if index > FileListBox1.Items.Count -1 then
      index:= 0; 
        FileListbox1.Selected[index]:= true; 
          bild:= Lowercase(ExtractFileExt(Bilddat + FileListBox1.Items[index]));

      if (bild = '.jpg') then //Pfad + .jpg
        begin
          AnVideo.Visible:= False;
          // Laden der Bilder
          Image1.Picture.LoadFromFile(Bilddat + FileListBox1.Items[index]);
        end;

       if (bild = '.avi') then //Pfad + .avi
        begin
        AnVideo.Visible:= True;
        Timer2.Enabled:= False;
        AnVideo.FileName:= Form1.VistaPfadBilder + FileListBox1.Items[index];
        AnVideo.Active:= True;

          if Anvideo.Repetitions = 1 then
           begin
            Timer2.Enabled:= True;
           end;
        end;

     inc(index); 
     Label2.Caption:= 'Bild '+ IntToStr(index)+' von '+ IntToStr(FileListBox1.Items.Count);
   end

   else
    begin
     Timer2.Enabled:= false;
    end;
 end;

[Medium]

Du solltest evtl. besser auf Active prüfen. Repetitions wird nicht pro Durchlauf runtergezählt, sondern ist nur ein Vorgabewert.

[DeddyH]

Wenn ich das richtig verstanden habe, wird bei TAnimate nach dem Abspielen das Ereignis OnStop ausgelöst. Das wäre IMO der bessere Ansatzpunkt.

[SaFu]

Zitat:

Zitat von Medium

Du solltest evtl. besser auf Active prüfen. Repetitions wird nicht pro Durchlauf runtergezählt, sondern ist nur ein Vorgabewert.

Danke ging aber auch nicht

Das mit dem OnStop hat funktioniert danke schön :thumb:

[Medium]

Zitat:

Zitat von DeddyH

Zitat:

Zitat von OH

[...]Nach Ablauf aller Wiederholungen steht Active wieder auf False.[...]

Dann stimmt diese Aussage der Hilfe nicht.