Сжатие масива данных

← →
tse (2005-01-20 16:43) [0]

Неодходим исходный текст алгоритма сжатия масива данных.
Спасибо.

← →
GuAV © (2005-01-20 16:44) [1]

см. ($Delphi)\Source\Rtl\Common\ZLib.pas

← →
GuAV © (2005-01-20 16:46) [2]

т.е. прошу прощения,не то, исходника там нет.

← →
Ega23 © (2005-01-20 16:50) [3]

Неодходим исходный текст алгоритма сжатия масива данных.

воистину, неодходим.

← →
Separator © (2005-01-20 16:55) [4]

Существует множество алгоритмов, в зависимости от используемых данных. Допустим не хранить нулевые значения.

← →
tse (2005-01-20 17:15) [5]

Где можно взять пример работы с \Source\Rtl\Common\ZLib.pas?

← →
raidan © (2005-01-20 18:24) [6]

http://pascal.sources.ru/archives/index.htm
Но если нужно просто паковать, то используй TCompressionStream в Zlib и не парь мозг.

← →
tse (2005-01-20 19:33) [7]

Через TCompressionStream нормально работает с TFileStream, а вот с TMemoryStream не получается - размер выходного потока остаётся нулевым.

var
InputStream, OutputStream: TMemoryStream;
CompressionStream: TCompressionStream;
InputFileName: string;
begin
InputFileName := "d:\in.txt";
InputStream := TMemoryStream.Create;
InputStream.LoadFromFile(InputFileName);
OutputStream := TMemoryStream.Create;
CompressionStream := TCompressionStream.Create(clFastest, OutputStream);
CompressionStream.CopyFrom(InputStream, InputStream.Size);

Подскажите что здесь ни так?

← →
VMcL © (2005-01-20 20:03) [8]

>>tse (20.01.05 19:33) [7]

InputStream.LoadFromFile(InputFileName); InputStream.Position := 0;

← →
tse (2005-01-20 22:19) [10]

Всё равно не получается

Сжатие масива данных Найти похожие ветки