I am using delphi tokyo
procedure DownloadProc(buffer: Pointer; length: DWORD; user: DWORD); stdcall;
var FileName:String;
begin
Filename:='Myfile.caf';
if (filestream = nil) then
FileStream := TFileStream.Create(Filename, fmCreate); // create the file
if (buffer = nil) then
FileStream.Free // finished downloading
else
begin
FileStream.Write(buffer^, length);
end;
end;
BASS_Init(-1,44100,0,Handle,nil) ------------------->/// works
BASS_RecordInit(-1) ------------------->//works
uStream :=BASS_RecordStart(44100,2,BASS_UNICODE,@DownloadProc,0 ); //////////works
Stop Record
BASS_ChannelStop(uStream); //works
And not i am trying to Listen it
uStream := BASS_StreamCreateFile(false, PChar(FileName), 0, 0, BASS_UNICODE or BASS_STREAM_DECODE );
I get error BASS_ERROR_FILEFORM
what i am doing wrong?


?