[ Ruka @ 16.01.2003. 19:46 ] @
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.
[ -zombie- @ 17.01.2003. 00:54 ] @
koje su to (de)compressStream klase? neke standardne iz delphija? iz koje verzije (ne secam ih se iz d6, mozda d7). ako nisu standarne, daj link ka helpu / specifikaciji...

i kako znash da ne radi? puca? javalja neki exception? samo lose otpakuje?

daj malo vise info...
[ Ruka @ 17.01.2003. 13:27 ] @
To su standardne klase iz D7 i ubacene su u zlib kao delfi interfejs ka ovoj biblioteci. Znam da je kompresija dobra jer mogu da je raspakujem sa jednom drugom funkcijom koja je isto interfejs ka istoj biblioteci. Medjutim, hteo sam da koristim bas standardne klase jer bi trebalo da rade i u Kylix-u (pomenuta funkcija iz nekog treceg razloga ne radi u kylix-u) a i imaju prednosti jer mogu da podesim tip kompresije. Dekompresija ne puca ali ne raspakuje kako treba. Mislio sam da mi pomogne neko ko je vec radio sa ovim klasama, mada je to izgleda nova stvar.