Проверка на остановку песни

[Манжосов Денис :)]

Я использую для этих целей таймер с интервалом 3000 мс. Тоесть каждые 3 секунды проверяется остановилась ли песня или ещё играет. Если да, то переключиться на другую. Код:

  if BASS_ChannelIsActive(Channel) = BASS_ACTIVE_STOPPED then
   begin
    Stopped := false;
    BASS_ChannelStop(Channel);
    BASS_StreamFree(Channel);
    Channel := 0;
    if MusicList.ItemIndex = MusicList.Count - 1 then
     begin
      MusicList.ItemIndex := 0;
      PlayFile(MusicList.Items.Strings[MusicList.itemIndex]);
      lb_Title.Caption := ExtractFileName(MusicList.Items.Strings[MusicList.itemIndex]);
      exit;
     end;
    MusicList.ItemIndex := CurrentItemIndex + 1;
    if MusicList.ItemIndex <> MusicList.Count - 1 then Inc(CurrentItemIndex);
    MusicList.Selected[MusicList.ItemIndex];
    PlayFile(MusicList.Items.Strings[MusicList.ItemIndex]);
    lb_Title.Caption := ExtractFileName(MusicList.Items.Strings[MusicList.itemIndex]);
   end;

Вникать в него не нужно, просто показываю как идёт проверка. А вопрос в следующем:
Можно ли обойтись без таймера? К примеру перехватывать событие остановки проигрывания? Спасибо.

[Пепел Феникса]

ну в Вашей же проге останавливается в опред момент?
например по нажатию кнопки...там и можно поймать

[Манжосов Денис :)]

Нет, всё идёт автоматом. Тоесть песня играет, пользователь не вмешивается.
P.S. То, что Вы предложили - слишком легко, я и сам бы это сделал ))

[mutabor]

Я почти уверен что в BASS есть для этого событие, пройдись по исходникам компонента, ты ведь через TBASSPlayer работаешь?

А почему 3 секунды интервал? Сделай 500 мс и не будет задержки (среднее время задержки будет 250 мс = 1/4 секунды), это не большая нагрузка для процессора, можно сказать вообще не нагрузка.

Вот у тебя в коде

if BASS_ChannelIsActive(Channel) = BASS_ACTIVE_STOPPED then

функция BASS_ChannelIsActive проверяет состояние канала, значит этот канал незадолго до этого какая-то другая функция привела в состояние Stopped, т.е. присвоила чему-то там значение константы BASS_ACTIVE_STOPPED. Залезь в исходники (если это возможно) и посмотри, что эта функция проверяет, и где еще присваиваются эти значения.

[Манжосов Денис :)]

Насчёт нагрузки на процессор это очень хорошо. Исправлю. Я не использую TbassPlayer, просто чистая библиотека bass.dll и заголовочный pas файл bass.pas. Можно пройтись по bass.pas и посмотреть там. Спасибо.

[ZuBy]

я отправляю сообщение что трек закончился и выполняются отпределенные действия.

отправляй через PostMessage.
P.S. подсказка Bass_SetSync (что то такое я уже щас не вспомню)