Нужно простейшее воспроизведение звука - всего 2 функции:
- Играть
- Обрубить все играющие звуки
Вот как я делаю - чёт не выходит
Инициализация:
Load_BASSDLL('bass.dll');
BASS_Init(1, 44100, BASS_DEVICE_3D, MyHandle, nil);
BASS_Start;
Функция:
function TQipPlugin.BASS_PlaySoundFile(const FileName: string): Boolean;
var
ChannelInfo: BASS_CHANNELINFO;
begin
Result:= False;
Channel:= BASS_StreamCreateFile(False, PChar(FileName), 0, 0, 0);
if (Channel <> 0) then
begin
BASS_ChannelPlay(Channel, False);
end;
Result:= Channel <> 0;
end;
Использую:
BASS_PlaySoundFile('M:\test.mp3');
Использую официальный API: Delphi dynamic loading API
Результат - не играет =(
Но выполняется без исключений.
Если есть идеи проще ( не через BASS ) - буду им рад