On 07.02.2012 17:12, Reinier Olislagers wrote:
I have the following code, adapted from pasbzip.pas (bzip2 example)
uses ...bzip2..
const
BufferSize = 4096;
var
infile, outfile: Tbufstream;
decoder: Tbzip2_decode_stream;
a: array[1..BufferSize] of byte;
readsize: cardinal;
Statu
I have the following code, adapted from pasbzip.pas (bzip2 example)
uses ...bzip2..
const
BufferSize = 4096;
var
infile, outfile: Tbufstream;
decoder: Tbzip2_decode_stream;
a: array[1..BufferSize] of byte;
readsize: cardinal;
Status: boolean;
begin
Status := False;
result:=false;
.
