Thanks....
but it seams that something will not work...
please try a liitle demo without Format Float (i have tested it under 3 diffrent Asio Drivers
the effekt will be MickmouseSound
(if I´m using Format Float all will working fine,but if I´m trying a 16Bit Format i will hear a absolute wrong sampling Freq
I`m Building the asio calls in this sequencing
OnFormCreate
BASS_Init(0, 48000, 0, 0, nil);
BASS_ASIO_Init(0)
BASS_ASIO_ChannelEnable(false, Chan, @AsioProc, 0);
BASS_ASIO_ChannelJoin(false, 1, 0);
BASS_ASIO_ChannelSetFormat(false, 0, BASS_ASIO_FORMAT_FLOAT);
-------------------------------------
procedure OpenFile;
var
Asio_Format,FloatSupport := DWORD;
begin
if not opendialog.execute then
exit;
Bass_Asio_Stop;
BASS_StreamFree(chan);
if checkbox.checked then
begin
Asio_Format := BASS_ASIO_FORMAT_FLOAT;
FloatSupport := Bass_Sample_Float;
end
else
Asio_Format := BASS_ASIO_FORMAT_16Bit;
FloatSupport := 0;
end;
BASS_ASIO_ChannelSetFormat(false, 0, Asio_Format);
Chan := BASS_StreamCreateFile(false, PChar(opendialog1.FileName), 0, 0, BASS_STREAM_DECODE or FloatSupport);
Do some Stuff
Bass_Asio_Start(0);
Greets Chris