hab nu nhier gesucht und viele beispiele getestet leider spielt das prog statt den nächten song immer nur das was grad eben lief.. hier mal ein beispielcode:
Delphi-Quellcode:
If ProgressBar1.Position = ProgressBar1.Max then begin
MediaPLayer1.FileName := ListBox2.Items[ListBox2.ItemIndex+1];
MediaPlayer1.Play;
end;
und hier der code, der die list füllt:
Delphi-Quellcode:
if RadioButton1.Checked then begin
if (ListBox1.ItemIndex > -1) and // Prüft, ob überhapt etwas in den
(ListBox3.ItemIndex > -1) then // Listeboxen ausgewählt ist
for x := 1 to 25 do
track[x] := dir+'\'
+'cds_und_alben' + '\'
+ Format('%0:2.2d',[ListBox1.ItemIndex+1]) + '\'
+ Format('%0:2.2d',[ListBox3.ItemIndex+1]) + '\'
+ Format('%0:2.2d', [x]) + '.mp3';
if (ListBox1.ItemIndex > -1) and
(ListBox3.ItemIndex > -1) and
(ListBox2.ItemIndex > -1) then begin // Hier wird auch noch die
MediaPLayer1.FileName := track[ListBox2.ItemIndex+1]; //Song-Listbox
if ListBox2.Items.Count=0 then exit;
mp3File := Concat(MediaPlayer1.FileName);
if not FileExists(mp3File) then begin
ShowMessage('MP3 file '+#13#10+'__'+ mp3File +'__'+#13#10+'does not exist!');
exit;
end;
GetID3TagInformation(mp3File, edTitle, edArtist, edAlbum, edYear, edGenre, edComment);
Form3.Edit1.Text := MediaPlayer1.FileName;
Edit1.Text := MediaPlayer1.FileName;
MediaPlayer1.Open;
SetMPVolume(MediaPlayer1, ScrollBar1.Position); //geprüft
Trackbar1.Position :=0;
Trackbar1.Max := MediaPlayer1.TrackLength[1];
ProgressBar1.Max := MediaPlayer1.TrackLength[1];
MediaPlayer1.Play;
end;
end;
track ist ein arry (steht in der vordere seite genauer
