برای خروج از حالت فشرده سازی یا دیکمپرس کردن فایل های Zlip می توانید از تابع زیر استفاده کنید :

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;

نکته: استفاده از عبارت Uses ZLib فراموش نشود.

مبنبعورودی های 82 دانشکده فنی اهر