Hi
Ich bin gerade dabei das ich einen Mediaplayer mit Delphi programmiere und auch eine Playlist dazu. Bisher hat alles gut funktioniert. Ich habe eine Listbox erstellt und kann die Lieder auswählen die ich dann abspielen möchte, doch ich will auch automatisch wenn das eine Lied zu Ende ist auf das Nächste überspringen. Es geschieht leider nichts.
Hier wäre der Code:
Delphi-Quellcode:
procedure TForm1.ListBox1Click(Sender: TObject);
var i: Integer;
begin
for i:=0 to listbox1.Items.Count -1 do
begin
if Listbox1.Selected[i] then
mediaplayer1.FileName:=listbox1.Items.Strings[i];
mediaplayer1.Open;
mediaplayer1.Play;
ProgressBar1.Max:=Mediaplayer1.Length;
label2.Caption:=timetostr((mediaplayer1.TrackLength[1]/(3600000*24)));
end;
if mediaplayer1.Position = mediaplayer1.Length then
begin
mediaplayer1.FileName:=listbox1.Items.Strings[i+1];
mediaplayer1.Play;
end;
end;
[edit=Matze][delphi]-Tags eingefügt. Zukünftig bitte selbst daran denken. MfG, Matze[/edit]