Mediaplayer Playlist Wie WMP

[Dönerboy]

Hallo, Ich habe mal eine frage die mich jetzt schon lange nervt:
ich habe eine listbox und mediaplayer mit playlist etc.
Nun meine frage:
Wie mache ich es, das der mediapalyer direkt bei ende auf das nächste lied springt, ich habs nur geschaft ihn auf den 2. titel zu bewegen:

Delphi-Quellcode:

If (MediaPlayer1.Position = MediaPlayer1.Length) then
 begin
  MediaPlayer1.Close;
  groupbox1.Caption:=listbox1.Items.Strings[2];
  sleep (50);
  MediaPlayer1.Open;
  Mediaplayer1.FileName:=groupbox1.Caption;
  MediaPlayer1.Play;
 end;

Hoffe einer kann mir helfen!!!

[alleinherrscher]

Eine Möglichkeit wäre z.B. dass du dir in einer globalen Variable vom Typ integer merkst (z.B. Liednummer:integer), welche Liednummer aktuell gespielt wird. Ist das aktuelle Lied beendet, erhöhst du die Variable (Liednummer:=Liednummer+1) um eins und ließt dann nicht listbox1.items.strings[2] aus, sondern listbox1.items.strings[Liednummer].

Wenn du noch fragen hast, poste am besten mal die ganze Unit!

PS: Natürlich erstmal Willkommen in der DP! :dp:

[Blackheart]

Schau dir mal das Notify Event des Players an, damit findest du heraus
wann das Lied zu ende ist.

[Dönerboy]

Hab Noch Ne frage, wie mache ich, dass er aufhört zu spielen oder von neu beginnt, wenn die playlist zuende ist???

Jetzt kommt nämlich immer "List index out of Bounds"

[Mithrandir]

Zitat:

Zitat von Dönerboy

Jetzt kommt nämlich immer "List index out of Bounds"

Vergleich vor öffnen des Mediaplayers der Zuweisung der Groupbox-Caption, ob "Liednummer = (Listbox1.Items.Count - 1)" wahr ist. Wenn ja, dann hast du bereits das letzte Lied gespielt.

[Dönerboy]

Jo danke hat geklappt der funktioniert jetzt perfekt! :dance:

[Dönerboy]

Ok, so gut klappt es auch nicht...

Habe Noch eine Random Funktion eingebaut, aber jetzt schmiert das prog erst richtig ab:
"listenindex...."

Hab alles versucht und weiß leider nicht weiter:

Delphi-Quellcode:

 
if button2.Down=true then //zufalls Button
begin
mediaplayer1.Stop;
mediaplayer1.Close;
i:=spinedit1.Value;
spinedit1.MinValue:=0;
spinedit1.MaxValue:=listbox1.Items.Count; //musste es über spinedit regeln
Spinedit1.Value:=round(random*spinedit1.maxValue); //da ist glaub ich der fehler
mediaplayer1.FileName:=listbox1.Items.Strings[i];
mediaplayer1.open;
mediaplayer1.Play;
end

falls es wichtig ist, Hab Rad Studio 2009 Architect, Also auch Delphi 2009.

[lbccaleb]

Was hast du denn hier genau vor??

Denn das:

Delphi-Quellcode:

Spinedit1.Value:=round(random*spinedit1.maxValue);

geht so mal gar nicht...

[Dönerboy]

Also, ich möchte meine playlist in zufälliger reihenfolge abspielen, also erst das oberste lied, dann das letzte etc.

Frage: Warum Geht Das So Nicht???

[Mithrandir]

Von welchem Typ ist denn SpinEdit1.MaxValue ?