|
#1
|
|||
|
|||
Playlist & BASS
Playlist & BASS..
У меня загружен Плей-лист. Как сделать так, что бы по окончанию проигрывания музыки, ListBox "переключался" на следующий файл и BASS играл его? Уже все перепробовал, ничего нужно не нашел.. Последний раз редактировалось Internationale, 25.05.2008 в 02:48. |
#2
|
|||
|
|||
Прверяй равна ли текущая позиция в песне длине если да то переключай
|
#3
|
|||
|
|||
Цитата:
Код:
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 Последний раз редактировалось Anti_L@+meR, 21.07.2008 в 22:45. |