[Internationale]

Playlist & BASS..

У меня загружен Плей-лист. Как сделать так, что бы по окончанию проигрывания музыки, ListBox "переключался" на следующий файл и BASS играл его?

Уже все перепробовал, ничего нужно не нашел..

[Ozerich]

Прверяй равна ли текущая позиция в песне длине если да то переключай

[Anti_L@+meR]

Сообщение от Internationale

Playlist & BASS..

У меня загружен Плей-лист. Как сделать так, что бы по окончанию проигрывания музыки, ListBox "переключался" на следующий файл и BASS играл его?

Уже все перепробовал, ничего нужно не нашел..

Попробуй так у меня работает:

Код:

procedure TMainForm.Timer1Timer(Sender: TObject);
//по таймеру  проверяю  позицию воспроизведения
begin
if BassPlayer1.Position=BassPlayer1.PlayLength then 
//если позиция ровна длине то прыгаю на следующюю песню
    if ListBox1.ItemIndex<(ListBox1.Items.Count-1)
    then
    begin
    PlayFile:=ListBox1.ItemIndex;
    PlayFile:=PlayFile+1;
    ListBox1.ItemIndex:=PlayFile;
    ListBox2.ItemIndex:=PlayFile;
    ListBox1Click(Sender);
    end
    else
    begin
//если CheckRepeat (это CheckBox) равен True то повторяется весь список
      if (CheckRepeat.Checked=True) and (ListBox1.Items.Count>0)
      then
      begin
      ListBox1.ItemIndex:=0;
      ListBox2.ItemIndex:=0;
      ListBox1Click(Sender);
      end;

Это для возпроизведения

Код:

procedure TMainForm.ListBox1Click(Sender: TObject);
begin
if OpenStream((ListBox2.Items.Strings[ListBox1.ItemIndex])+(ListBox1.Items.Strings[ListBox1.ItemIndex]))
 then
      begin
         s1 := BassPlayer1.DecoderName;
         if copy(s1, 1, 5) = 'bass_' then
            AddonConfigForm.SetInUsePlugin(s1)
         else
            AddonConfigForm.SetInUsePlugin('');
      end;
end;

Первую версию моего плеера можеш скачать отсюда:
http://www.redcatfiles.ru/index.php?subcat=1
Я RedCat