| تبليغات | X |
| English | سايت ديگر ما | Picture | Visual Basic | Delphi | Ebook | Forum[2] | SiteList | صفحه اصلي |
برای خروج از حالت فشرده سازی یا دیکمپرس کردن فایل های 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 فراموش نشود.