Hi,
Ich habe ein kleines Problemchen. Ich wollte mal - wie so viele andere auch - einen kleinen und feinen MediaPlayer programmieren, mit Playlist, sodass man den auch ohne Installation einfach mal starten kann. Mein Problem ist jetzt dabei: Wenn ich auf Play klicke, kommt die allgemein bekannte Fehlermeldung "Kein MCI-Gerät geöffnet.".
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject); // Button1 = Play
var
fIndex: integer;
begin
if ListBox1.Items.Count > 0 then begin
for fIndex := 0 to ListBox1.Items.Count - 1 do begin
MediaPlayer1.FileName := ListBox1.Items.ValueFromIndex[fIndex];
MediaPlayer1.Stop;
end;
end;
end;
Wie man sieht, soll er einfach mal alle Tracks nacheinander in der PlayList abspielen, was er aber nicht tut.
Ich weiß, dass es schon einmal funktioniert hat, denn ich habe es schon einmal programmiert, bloß ich habe jetzt den Code verloren...
Für jede Antwort bin ich dankbar.
Danke schonmal im Voraus...