Eine Liste von mp3´s abspielen !?

[Nillen]

Moinses !

Ich habe mir folgendes gebastelt um eine Liste von mp3´s abzuspielen :

Delphi-Quellcode:

  for i:=0 to pred(lb_tracks.Count) do
    begin
      Media.FileName := lb_tracks.Items[i];
      ShowMessage(lb_tracks.Items[i]);
      Media.Open;
      Media.Play;
    end;

wie ihr wahrscheinlich schon gemerkt habt ist dies ein wenig buggy !
Und zwar spielt er nicht, wie ich es wollte alle Lieder der Listbox ab, sondern immer nur das letzte !

Was auch irgendwie logisch ist, da die Schleife ja nicht wartet bis ein Lied fertig abgespielt wurde.

Die Frage ist : Wie realisiere ich das ?

Dannke schonmal !

[dizzy]

Schau dir mal OnNotify an (wenn du TMediaPlayer nutzt).

[Neutral General]

Delphi-Quellcode:

var Zaehlvariable : Integer;
Zaehlvariable := 0;
Media.FileName := lb_tracks.Items[Zaehlvariable]; 
Media.Open;
MediaPlay;
inc(Zahelvariable);

So etwa... Also Zaehlvariablen, die sich merken bei welchem Eintrag du bist.

[Matze]

Ist ja klar, dass er nur das letzte abspielt.
Der Kompiler geht die for-Schleife so schnell durch, dass der MediaPlayer gar nicht hinterherkommt, denn sofort wird das nächste Lied angefangen, im Bruchteil einer Sekunde. Die Schleife endet mit dem letzten Lied, wofür der MediaPlayer dann Zeit zum Abspielen hat.
Nur so als Erklärung.

[Nillen]

Aus dieser OnNotify Methode werde ich irgendwie nich schlau ....
Könnte einer von euch ev. meine Prozedure damit vervollständigen ?

Danke nochmal

[Matze]

Komm, bemüh doch mal die Suche [dp]"OnNotify"[/dp], da findest du genügend Beispiele, z.B. das hier.

[Nillen]

Es gibt in meinem Prog aber auch ne Pause Funktion &&& !
Wenn ich dann in einer On Notify Prozi etwas aufrufe, wird das auch gemacht wenn bsp.
eine Pause aufhört oder so !?

[Matze]

Dann nimm einen Timer und überprüfe dort

Delphi-Quellcode:

if MediaPlayer1.Position = MediaPlayer1.Length then ...

//nächstes Lied spielen

Sollte auch gehen.