zlib delphi

Ответ от Monax Var[гуру]
В Delphi 7 официально включена поддержка библиотеки сжатия ZLib. Если у вас более старшая версия Дэлфы, посмотрите модули ZLib в дестрибутиве среды (они должны быть на диске но подключать прийдеться самому) .
Степень сжатия превосходит алгоритм zip. Максимальная степень сжатия по алгоритму ZLib приближается к степени сжатия упаковщиком RAR.
Работает с zip архивами и по ещё непроверенным мной данным может упаковывает в zip 2.0.
Модули злиба: Zlib, ZlibConst.
При использовании необходимо подключить в описании Uses модуль ZLib.
пример использования:
компрессия потока (сжатие) :
ComressStream( aSource, aTarget : TStream; compressionRate : TCompressionLevel );
var comprStream : TCompressionStream;
begin
// compression level : (clNone, clFastest, clDefault, clMax)
comprStream := TCompressionStream.Create( compressionRate, aTarget );
try
comprStream.CopyFrom( aSource, aSource.Size );
comprStream.CompressionRate;
finally
comprStream.Free;
End;
End;
Декомпрессия потока:
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;

Ответ от 3 ответа[гуру]