Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Сжатие масива данных [D7, WinXP]

tse © (2005-01-20 16:43:00)
Неодходим исходный текст алгоритма сжатия масива данных.
Спасибо.

VMcL (2005-01-20 22:22:00) [1]
>> begin...end © (20.01.05 20:12) [9]

Не помню. Я навскидку предположил. Delphi на работе нету.

tse (2005-01-20 22:19:00) [2]
Всё равно не получается

begin...end (2005-01-20 20:12:00) [3]
> VMcL © (20.01.05 20:03) [8]

А разве после LoadFromFile позиция не остаётся равной нулю?

VMcL (2005-01-20 20:03:00) [4]
>> tse (20.01.05 19:33) [7]

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

tse (2005-01-20 19:33:00) [5]
Через 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);

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

raidan (2005-01-20 18:24:00) [6]
http://pascal.sources.ru/archives/index.htm
Но если нужно просто паковать, то используй TCompressionStream в Zlib и не парь мозг.

tse (2005-01-20 17:15:00) [7]
Где можно взять пример работы с \Source\Rtl\Common\ZLib.pas?

Separator (2005-01-20 16:55:00) [8]
Существует множество алгоритмов, в зависимости от используемых данных. Допустим не хранить нулевые значения.

Ega23 (2005-01-20 16:50:00) [9]
Неодходим исходный текст алгоритма сжатия масива данных.

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

GuAV (2005-01-20 16:46:00) [10]
т.е. прошу прощения,не то, исходника там нет.

GuAV (2005-01-20 16:44:00) [11]
см. ($Delphi)\Source\Rtl\Common\ZLib.pas

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »