Okay, there was some error with 0-terminated strings when send data over network.
Now i corrected that code, but have "Division by Zero" exception inside the StreamFileProc, when action=BASS_FILE_READ and param1=12000.
If I save data received from network in OGG-file (using TFileStream) and then open it with BASS_StreamCreateFile, all works OK.
But when I try to load the contents of the same file with
BASS_CreateStream (...BASS_STREAM_FILEPROC...), I get that exception and channel is stopping.
The same error happens when I try to stream data from FIFO buffer in StreamFileProc.
Of course I have more than 16 kb in file and FIFO buffer (nearly 300 kb).
callback procedures:
-----
When streaming from FIFO string:
function StreamFileProc(action, param1: dword; param2:pointer; user: DWORD): DWORD; stdcall;
begin
Result:=0;
case action of
BASS_FILE_QUERY:
begin
while length(FIFO)<param1 do Application.ProcessMessages;
result:=param1;
end;
BASS_FILE_READ:
begin
move(PChar(Copy(FIFO, 1, param1))^, param2^, param1);
delete(FIFO, 1, param1);
result:=param1;
end;
BASS_FILE_LEN: result:=0;
BASS_FILE_CLOSE: result:=0;
end;
end;
When streaming from saved OGG file:
var tfs: TFileStream;
function StreamFileProc(action, param1: dword; param2:pointer; user: DWORD): DWORD; stdcall;
begin
Result:=0;
case action of
BASS_FILE_QUERY: result:=param1;
BASS_FILE_READ:
begin
tfs.ReadBuffer(param2^, param1);
result:=param1;
end;
BASS_FILE_LEN: result:=0;
BASS_FILE_CLOSE: result:=0;
end;
end;
