Использование аудиобиблиотеки BASS. Проблема.

[WinMen]

Плеер проигрывает плейлист. Раньше было через MediaPlayer терь решил сделать через басс. Прикрепил, инилизоровал библиотеку в Он Креате. Дальше. Вот код:
Процедура вопроизведения:

procedure BassPlay(const FileName: String);
 var
 FFileName : Pchar;
 begin
   FFileName := PChar(FileName);
   if Channel <> 0 then  begin
     Bass_ChannelStop(Channel);
     Bass_StreamFree(CHannel);
     Channel := 0;
   end;
   Channel := BASS_StreamCreateFile(False,FFileName,0,0,0);
   Bass_ChannelPlay(Channel, False);
 end;

Потом воспроизвожу. Поскольку я не использую ОпенДиалог то свойство FileName я беру из MediaPlayer.

BassPlay(MediaPlayer1.FileName);

Ошибок некаких не выдает но звук не воспроизводится. Тишина в колонках. Пробовал добавлять Опен Диалог и открывать одиночные файлы (BassPlay(OpenDialog1.FileName) - все равно тишина.
Что я не так делаю?

[DIgorevich]

Да все практически не так! Почему бы не обратить внимание вниз страницы на похожие темы? Да и в самих демках Bass есть куча примеров, как правильно воспроизводить (причем разными способами).

[WinMen]

Знаете что то я дошел до низа пятой страници а похожих тем не нашел. Вот ведь незадача!
"Да все практически не так!" - спасибо!=) Теперь я точно знаю что исправить.

[raxp]

Поскольку я не использую ОпенДиалог то свойство FileName я беру из MediaPlayer.

не берите из медиа-плеера, вы ведь упомянули, что:

Плеер проигрывает плейлист.

берите из вашего плейлиста ...он ведь у вас в чем? в ListBox к примеру? Вот и берите скажем BassPlay(listbox1.items[i]). Если же плейлиста нет, то открыть файл можно и без использования диалога, просто BassPlay('путь к файлу').

Смысл ясен?

[WinMen]

raxp, да, спасибо... Получилось =)

[WinMen]

Скажите а как сделать что бы в плейлисте отображался не путь к файлу (C:/documents/Music/file.mp3) а просто имя файла (file.mp3)

[raxp]

для этого вам нужно просто перерисовывать плейлист, т.е. сам ListBox и установить стиль ему otherdrawfixed (т.е. сам путь физически останется в строке, а пользователю будет отображаться то что рисуется сверху), сам код перерисовки есть в Delphi-World или DRKB. Это такие интерактивные справочники. Скачайте их себе, там есть ответы на большинство ваших вопросов. Лучше DRKB, он чаще обновляется.

[WinMen]

А не можете обьяснить перерисовку? Был бы благодарен)
Кстати а вы не знаете как загрузить другой файл в басс? Просто у меня плейлист. Нажимаю на песню она начинает играть. Нажимаю на другую песню она тоже начинает играть, но предыдущая не останавливается. Играют 2 подряд....

[WinMen]

Извините, не подряд а одновременно

[WinMen]

Делаю так, что бы проигрывался поочередно плейлист. Песни проигруются и останавливаются. Переключения на следующую дорожку не происходит. Пробовал два варианта кода:

 if Gauge1.Progress = 100 then
  begin
   ListBox1.ItemIndex := ListBox1.ItemIndex +1;
   Timer1.Enabled := True;
   i := ListBox1.ItemIndex;
   if not BASS_ChannelPlay(strs[i], False) then // Воспроизведение
   Error('Error playing!');
  end;

(Gauge показывает прогресс воспроизведения)
и

 if BASS_ChannelGetPosition(strs[i], BASS_POS_BYTE) >= BASS_ChannelGetLength(strs[i], BASS_POS_BYTE) then
 begin
   ListBox1.ItemIndex := ListBox1.ItemIndex +1;
   Timer1.Enabled := True;
   i := ListBox1.ItemIndex;
   if not BASS_ChannelPlay(strs[i], False) then // Воспроизведение
   Error('Error playing!');

В чем проблема? Ошибок не выдает, но и песня не переключается.