Вопросы по bass.dll

[Kovax]

Пишу простенький проигрыватель, в общем хочу реализовать при двойном клике на строке в листе выделенный трек проигрывал.

procedure TForm1.DirbtnClick(Sender: TObject);
  var
  chosenDir:string;
  fs: tSearchRec;
begin
    //***вместо '' можно указать путь по умолчанию, напр. 'c:\music\'
  //***если оставить '' то будет предложен стандартный диалог выбора каталога
  if SelectDirectory('Выберите каталог','', chosenDir)
  then
    begin
      LstBox.Clear;
      if (FindFirst(chosenDir+'\*.mp3', faAnyFile, fs)=0) or
         (FindFirst(chosenDir+'\*.wav', faAnyFile, fs)=0)
      then
      repeat
        LstBox.Items.Add(chosenDir+'\'+fs.Name);
        FindNext(fs);
        LstBox.Items.Add(chosenDir+'\'+fs.Name);
      until FindNext(fs)<>0;
    if LstBox.Items.Count<>0 then
      begin
        //***автоматически выделяем первый файл в списке
        LstBox.Selected[0]:=true;
      end;
    end;
end;

procedure TForm1.lstboxDblClick(Sender: TObject);
begin
{ BASS_StreamCreateFile:=lstbox.items.Strings[lstbox.itemindex];//добавляем строку
////////////mediaplayer1.Open; //открываем
///////////Timer1.Enabled:=true; //запускаем таймер для отсчёта времени

end;

end.

Знаю как реализовать на МП но в бассе мало работаю.

[raxp]

к BASS-пакету прилагаются демки и HELP, не поленитесь заглянуть.

[Kovax]

Ничего подходящего не нашел.

[Kovax]

Есть вопрос. Есть чекбокс, который реализовывает включение и выключения звука, но когда я включаю его обратно то звука нет, до тех пор, пока я не двину ползунок громкости.

procedure TKXPlayer.VolchkClick(Sender: TObject); // процедура состояния звука
begin
if Volchk.Checked=true then // если состояние звука вкл.
Volchk.Caption:='Звук вкл.';  // имя изменяется на Звук вкл.
BASS_SetVolume(VolumeBar.Position); // устанавливается громкость по ползунку
if Volchk.Checked=false then  // если состояние звука откл.
Volchk.Caption:='Звук откл.'; // имя изменяется на Звук откл.
Bass_SetVolume(0); // устанавливается громкость 0
end;

Что тут не так?

[Человек_Борща]

Глупо. Зачем вам вообще чекбокс, если у вас есть ползунок громкости? Который и без всяких чекбоксов может выключать/включать звук.

Или это ради того чтобы выводить "Вкл/выкл звук"?
Тогда это ещё проще..

в OnChange ползунка пишем код:

if (VolumeBar.Position = 0) then 
blabla.caption:='звук выкл'
else
blabla.caption:='звук вкл'

[Kovax]

По сути да, но это не так важно. Вот есть одно не понятное для меня, если я изменяю состояние ползунка, у меня в системе тоже звук меняется. Это решаемо?

[BB2000]

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

Ничего подходящего не нашел.

Что значет "не нашёл"? Да там хелп, довольно нормально расписан.
Steram:HSTREAM;
Steram:=BASS_StreamCreateFile(FALSE ,PChar(FileName),0,0, Flags);
Не помагает?

[Kovax]

Это все не то, что мне нужно было, но я решил уже эту проблему, всё работает.
Вот навеял один вопрос, как можно реализовать добавление трека в плейлист путем переноса из проводника в ListBox? Такая функция вроде называется Drag and Drop?

[Aliens_wolfs]

Посмотри вот этот пример Bass_Effects
в нем много полезных функций реализовано
http://zalil.ru/31063824

[Koper72Rus]

aliens wolf посмотри мою тему помощь нужна