Bass.dll событие после окончания воспроизведения.

[ZBEP]

Здравствуйте!
Скорее всего об этом уже писалось и в справке это по идее должно быть, но я не могу найти что-то.

В общем как, используя Bass.dll можно проверить закончилось ли воспроизведение трека, без использования таймера?

Сейчас делаю так:

var
  Form1             :TForm1;
  TreckNum        :integer;
  Muz                :HStream;
  TreckList         :TStringList;

procedure TForm1.SpisTreck(Sender: TObject);
var Fm: TSearchRec;
begin
  TreckList.Free;
  TreckList:=TStringList.Create;
  FindFirst(extractfilepath(paramstr(0))+'\Sound\*.mp3', 0, Fm);
  if Fm.name <> '' then
  begin
    TreckList.Add(Fm.name);
    while FindNext(Fm)=0 do TreckList.Add(Fm.name);
  end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
TreckNum:=TreckNum+1;
if TreckNum>TreckList.Count-1 then TreckNum:=0;
Muz:=Bass_StreamCreateFile(false,PChar('Sound\'+TreckList.Strings[TreckNum]),0,0,BASS_UNICODE or BASS_STREAM_AUTOFREE);
BASS_ChannelPlay(Muz,false);
Timer1.Interval:=Trunc(BASS_ChannelBytes2Seconds(muz,BASS_ChannelGetLength(muz,0)))*1000;
end;

Получаю длину трека, присваиваю интервалу таймера это значение в мс и затем после заданного промежутка времени таймер переключает на следующий трек.
Но как это сделать без таймера, не знаю.

[veniside]

если сам хочешь проверить, то дергай периодически BASS_StreamGetFilePosition(), а если хочешь, чтобы басс тебя дернул, то:

function BASS_StreamCreateFileUser(system, flags: DWORD; var procs: BASS_FILEPROCS; user: Pointer): HSTREAM; stdcall; external bassdll;

  BASS_FILEPROCS = record
    close: FILECLOSEPROC;
    length: FILELENPROC;
    read: FILEREADPROC;
    seek: FILESEEKPROC;
  end;

[ZBEP]

veniside, Спасибо! То что нужно!

[Exception]

Достаточно BASS_ChannelSetSync + BASS_SYNC_END.

[ZBEP]

Exception, вообще шикарно!
Спасибо!

Теперь и на сайте нашел темы похожие: http://programmersforum.ru/showthread.php?p=428991