Архиватор на Delphi
Подскажите как написать архиватор на Delphi.
Про методы архивирования можете не говорить (если что-то дельное, то, конечно, говорите).
Есть файл любого расширения, так вот, 'с какой стороны к нему подойти'? Я хочу представить его в двоичном коде и просто заменить повторяющиеся символы некоторыми комбинациями.
В общем хоть что-то подскажите :)
Про методы архивирования можете не говорить (если что-то дельное, то, конечно, говорите).
Есть файл любого расширения, так вот, 'с какой стороны к нему подойти'? Я хочу представить его в двоичном коде и просто заменить повторяющиеся символы некоторыми комбинациями.
В общем хоть что-то подскажите :)
здесь можно пару исходничков скачать: http://compression.graphicon.ru/download/huff.html. посмотри может поможет. также советую гугл.
var f:File of Byte;
//Читаем из файла
AssignFile
Reset
ReadBlock
CloseFile
// Сжимаем или разжимаем.
LZ(LZW,LZSS,LZ77)+арефметическое кадирование(Хаффмена, Шеннона-Фэно)
Твой RLE- тоже ничего.
Q-coder
Z-Coder
//Пишим в файла
AssignFile
Rewrite
BlockWrite
CloseFile
//Читаем из файла
AssignFile
Reset
ReadBlock
CloseFile
// Сжимаем или разжимаем.
LZ(LZW,LZSS,LZ77)+арефметическое кадирование(Хаффмена, Шеннона-Фэно)
Твой RLE- тоже ничего.
Q-coder
Z-Coder
//Пишим в файла
AssignFile
Rewrite
BlockWrite
CloseFile
