Mehrere Shockwave Animationen hintereinander abspielen.

[smartmod]

Hallo,

ich möchte in meinem Programm eine Reihe von Flash Animationen nacheinander abspielen. Das ganze mittels TShockwaveFlash.
Wie bekomme ich es jetzt hin, dass das Programm jeweils wenn eine Animation zuende ist, die nächste abspielt? Die Dateinamen sind in einer Listbox bzw. in einer Filelist gelistet.

Vielen Dank für die Hilfe!

Jan Petermann

[Sebastian R.]

Ich kenn mich mit TShockwaveFlash nicht aus, aber setzt doch einfach in die OnPlayEnd-Prozedur (falls diese vorhanden ist) einen Verweis auf das nächste Objekt!

[smartmod]

Die gibt's leider nicht. Es gibt generell kein Event, was dem nahe käme.

[Sebastian R.]

Liste doch mal bitte alle Events auf, ich kenn mich wie gesagt mit der Komponente nicht aus, habe sie auch nicht...

[smartmod]

Hi,

also das wären dann:

OnDragDrop
OnDragOver
OnEndDrag
OnStartDrag

PopupMenu

OnEnter
OnExit
OnFlashCall
OnFSCommand
OnProgress
OnReadyStateChange

[Sebastian R.]

Teste doch in OnProgress wie weit das Shockwave ist. Dann kannst du da einbauen, dass es weitermacht!

[smartmod]

Hmm,

ich blick da irgendwie nicht so wirklich durch.

Ich hab jetzt mal folgendes hingekritzelt aber da tut sich gar nix:

Delphi-Quellcode:

procedure TForm2.ShockwaveFlash1Progress(ASender: TObject;
  percentDone: Integer);
begin
  Label6.Caption := Format('%.2d',[ShockwaveFlash1.CurrentFrame / ShockwaveFlash1.TotalFrames * 100]);
  If ShockwaveFlash1.CurrentFrame = ShockwaveFlash1.TotalFrames then
    begin
    if i+1 < FileListBox1.Count then
      begin
      inc(i);
      if i+1 = FileListBox1.Count then
        begin
        Button2.Enabled := false;
        end;
      counter := IntToStr(i);
      Movie := path+FileListBox1.Items[i];
      ShockwaveFlash1.Stop;
      ShockwaveFlash1.Movie := Movie;
      ShockwaveFlash1.Play;
      Label3.Caption := IntToStr(i+1);
      end;
    end;
end;