[es] - TDecompressionStream i TCompressionStream

Srodne teme

Kliknite za generisanje liste srodnih tema...

Navigacija

Brisanje liste

Lista poslednjih: 16, 32, 64, 128 poruka.

Ruka
Milan Rukavina
Niš

Član broj: 5772
Poruke: 54
*.bankerinter.net

Profil

TDecompressionStream i TCompressionStream

^{16.01.2003. u 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.

^{16.01.2003. u 19:46}

-zombie-
Tomica Jovanovic
freelance programmer
ni.ac.yu

Član broj: 4128
Poruke: 3448
*.rcub.bg.ac.yu

Sajt: localhost

Profil

Re: TDecompressionStream i TCompressionStream

^{17.01.2003. u 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...

blogče :: unescaped beta^{^» ^{go-paste extenzija} ^» ^{reč dana: backup} ^» ^{bočne koalicije}}

^{17.01.2003. u 00:54}

Ruka
Milan Rukavina
Niš

Član broj: 5772
Poruke: 54
*.bankerinter.net

Profil

Re: TDecompressionStream i TCompressionStream

^{17.01.2003. u 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.

^{17.01.2003. u 13:27}