Цитата:
Сообщение от 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