کد سورس هاي مفید و كاربردي در دلفی Delphi

[TAHA]

عکس عمل بالا خارج کردن از حالت فشره
*****************************

Uses ZLib; 
procedure  DecompressStream (aSource, aTarget: TStream) ;
var
decompStream:  TDecompressionStream;
nRead: Integer;
Buffer: array [0..1023] of  Char;
begin
decompStream :=  TDecompressionStream.Create(aSource);
try
repeat
nRead :=  decompStream.Read(Buffer, 1024);
aTarget.Write (Buffer, nRead);
until  nRead = 0;
finally
decompStream.Free;
end;
end;