Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.02.06;
Скачать: CL | DM;

Вниз

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

 
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;


 
begin...end ©   (2005-01-20 20:12) [9]

> VMcL ©   (20.01.05 20:03) [8]

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


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

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


 
VMcL ©   (2005-01-20 22:22) [11]

>>begin...end ©  (20.01.05 20:12) [9]

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



Страницы: 1 вся ветка

Текущий архив: 2005.02.06;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.049 c
3-1105313703
Apophis
2005-01-10 02:35
2005.02.06
Поле MEMO и SQL запрос с параметром LIKE....


4-1101921383
TankMan
2004-12-01 20:16
2005.02.06
Хорошо...Скажите пожалуйста, как (возможно ли) "опознать" чипсет


1-1106311006
Dmitry_04
2005-01-21 15:36
2005.02.06
Как программно выделить строку в TreeView?


14-1106196121
Poha
2005-01-20 07:42
2005.02.06
Edit


14-1105613201
boriskb
2005-01-13 13:46
2005.02.06
Так развлекаются дизайнеры.