[fpc-pascal] How to use pipes ?

[fredvs]

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.