Huh, sorry to monopolize but...
I get it. ;-)
Changing the built-in read-callback method with this:
function OpusReadCB(stream: Pointer; var buffer; nbytes: cint): cint; cdecl;
begin
if nbytes<>0
then
result := TInputPipeStream(stream^).read(Buffer, nbytes)
else
result := 0;
end;
Does the tick.
This is real web-streaming, for hours in super-high quality !
Many thanks to everybody for helping in this (hard) battle.
I will clean the code and commit it asap.
fpc always win.
Fre;D
-----
Many thanks ;-)
--
View this message in context:
http://free-pascal-general.1045716.n5.nabble.com/How-to-use-pipes-tp5727538p5727554.html
Sent from the Free Pascal - General mailing list archive at Nabble.com.
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal
