Problem mit Play-List

[egon.kaschuba]

:oops:


Hallo,
ich brauch mal ne´e Hilfe.

Ich möchte gern mit der BassdllPlayer.pas eine Playlist bauen.
Soweit funktioniert das ganze schon prima,allerdings bekomme ich den
' Loop ' effect nicht hin.Das heißt die geladenen Lieder werden
abgearbeitet und dann ist Schluss mit lustig.Er soll aber von vorne
wieder anfangen und mir das ganze nochmal Vorspielen.

Wer kann mir HELFEN ??

Gruß
- Egon

Delphi-Quellcode:

procedure TForm7.Timer1Timer(Sender: TObject);
begin
if BassdllPlayer1.Status = sndPLAYING then
  begin
    noAwnChangePos := True;
    PTrackBar.Position := BassdllPlayer1.Position;
    end;
  //TPlayerStatus = (sndSTOPPED, sndPLAYING,  sndSTALLED, sndPAUSED);

   case BassdllPlayer1.Status of
    sndSTOPPED: Label3.Caption := 'Stop';
    sndPLAYING: Label3.Caption := 'Play';
    sndSTALLED: Label3.Caption := 'Nicht bereit';
    sndPAUSED : Label3.Caption := 'Pause';
  end;
 // Wenn Lied und Listbox nicht leer dann nächstes Lied
   if (BassdllPlayer1.Status = sndSTOPPED) and PlayFormListFlag then
    if lbPlayList1.ItemIndex <> -1 then
      if lbPlayList1.ItemIndex + 1 <= lbPlayList1.Count - 1 then
      begin
        lbPlayList1.ItemIndex := lbPlayList1.ItemIndex + 1;
         SetFilename(lbPlayList1.Items.Strings[lbPlayList1.ItemIndex]);
          if BassdllPlayer1.LoadFromFile(lbPlayList1.Items.Strings[lbPlayList1.ItemIndex]) then
             PTrackBar.MaxValue := BassdllPlayer1.SongLength;
             BassdllPlayer1.Play;
           end else

           //  playprev;
           // button4Click(self);
            PlayFormListFlag := false;

end;

[nuclearping]

Wenn das letzte Lied gespielt wurde (lbPlayList1.ItemIndex = lbPlayList1.Items.Count -1), setze doch den lbPlayList1.ItemIndex wieder auf 0?

[egon.kaschuba]

:-D

Danke der Hund hat zugebissen.

Klappt prima.

Gruß
-Egon