Da li neko zna što ovo ne radi?
procedure CompressStream(inpStream, outStream: TStream);
var
C: TCompressionStream;
begin
C := TCompressionStream.Create(clNone,outStream);
try
C.CopyFrom(inpStream,0);
finally
C.Free;
end;
end;
procedure DecompressStream(inpStream, outStream: TStream);
var
D: TDecompressionStream;
nSize: Integer;
Buffer: array [0..4095] of byte;
begin
D := TDecompressionStream.Create(inpStream);
try
nSize := 4096;
while nSize > 0 do begin
nSize := D.Read(Buffer[0], 4096);
if nSize > 0 then outStream.Write(Buffer[0], nSize);
end;
finally
D.Free;
end;
end;
Ustvari, problem je sa dekompresijom...
Ako neko ima neki primer za TDecompression i TCompression strimove ne bi bilo loše da ih pošalje.