Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.025 c