[Internationale]

Playlist & BASS..

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

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

[Ozerich]

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

[Anti_L@+meR]

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

Playlist & BASS..

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

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

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

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;

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12

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