Файловые форматы - [14] :: Прикладное программирование

Искал материалл по Zip архивированию ничего не могу найти. У меня такой вопрос. Мне нужно разархивировать уже сжатый поток. Например я его беру из ZIP файла. Для разархивации я использую два метода - библиотекой ZLib в стандартной поставке Delphi Studio 2006, библиотекой JclCompression. В обоих случаях одинаковая ситуация. Если я разархивирую на один байт меньше чем архивированный исходник, то всё нормально за исключением последнего байта. Если я разархивирую все байты, то обе библиотеки выдают Exception. Удалось выяснить, что в конце надо добавлять четыре байта checksum. Мне кажется что используется конкретный метод Adler32. Но настроить его у меня не получилось, пока записываю четыре нуля и игнорирую Exception. Вроде всё работает, но что-то для счастья не хватает. Наверное как вычислить adler не имея исходных данных, вычислить по сжатым данным. Кто нибудь знает в чём там дело? Или может дать сцилки? Я гуглил и вообще много перерыл - найти пока немогу, так что не обессудьте.

Добавлено:
Сейчас проверил - в конце должен быть действительно adler, только как его брать из zip архива мне не понятно. Следующий код сначала разархивирует, потом считает adler по разархивированным данным, потом переписывает adler в конец и снова разархивирует. Но во втором случае экзепшен не вылазит. Как быть если adler я не знаю?

Код:

Decompress(M1, M2, ZItem.PkUncmp);
a := adler32(adler32(0, nil, 0), M2.Memory, M2.Size);
a := (a shr 24) + ((a and $FF0000) shr 8) +
((a and $FF00) shl 8) + ((a and $FF) shl 24);
M1.Position := M1.Size-4;
M1.Write(a, 4);
M1.Position := 0;
M2.Clear;
Decompress(M1, M2, ZItem.PkUncmp);

Модерирует : ShIvADeSt
Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20