East RX
Просветленный
(24372)
5 лет назад
При запуске трека устанавливай синхронизацию (функция BASS_ChannelSetSync) с типом BASS_SYNC_END и при окончании трека будет вызываться указанная callback-процедура (указатель на которую передаётся в BASS_ChannelSetSync), в ней и делай переключение на следующий трек:
channel := BASS_StreamCreateFile(False, PChar(filename), 0, 0, BASS_STREAM_AUTOFREE);
sync := BASS_ChannelSetSync(channel, BASS_SYNC_END, 0, SyncEndProc, nil);
...
procedure SyncEndProc(handle: HSYNC; channel: DWORD; data: DWORD; user: Pointer); stdcall;
begin
// тут делай переключение
end;