Упаковка файлов и архивация

← →
Vidog © (2010-08-26 12:43) [0]

Здравствуйте.

Наверняка есть готовые решения для упаковки файлов в один архив (желательно с защитой -- пароль). Без использования сторонних DLL итп.

ТО есть просто:
procedure packDirectory(dir: String; out: String; key: String); begin //засовываем все файлы из dir и сохраняем запароленный файл ключом key в файл out end;

Подскажите, пожалуйста. Интересует минимальный размер приложения без сторонних библиотек итп.

← →
Vidog © (2010-08-26 12:46) [1]

Или просто массив
type TMyFileInfo = record Name: String; Comment: String; Stream: TMemoryStream; end; TMyFiles = array of TMyFileInfo; procedure packDirectory(files: TMyFiles; out: String; key: String); begin end;

← →
brother © (2010-08-26 12:55) [2]

> Без использования сторонних DLL итп.

Нет! Придется писать все ручками

← →
Anatoly Podgoretsky © (2010-08-26 13:27) [3]

> Vidog (26.08.2010 12:43:00) [0]

Задача на 30 минут. С упаковкой немного больше, придется освоить ZLib

← →
Vidog © (2010-08-26 14:44) [4]

> Задача на 30 минут. С упаковкой немного больше, придется
> освоить ZLib

а как паковать лучше? в TMemoryStream записывать файлы по очереди? и как длину каждого файла + комментарии прицепить к ним?

← →
~AQUARIUS~ (2010-08-26 15:06) [5]

> а как паковать лучше? в TMemoryStream записывать файлы по
> очереди? и как длину каждого файла + комментарии прицепить
> к ним?

А это уже как вам дуобнее будет. Это будет ваш собственный формат файла, как захотите - так его и оформляйте.

← →
Anatoly Podgoretsky © (2010-08-26 15:52) [6]

> Vidog (26.08.2010 14:44:04) [4]

Это твое внутреннее дело, как хочешь так и реализуешь, хоть видео
комментарии добавляй. А паковать лучше так, что бы можно было распаковать.

← →
Германн © (2010-08-27 03:37) [7]

> готовые решения для упаковки файлов в один архив (желательно
> с защитой -- пароль). Без использования сторонних DLL итп.
>

И бесплатные при этом?
Утопия.

← →
kudatsky (2010-08-27 09:29) [8]

Можно использовать WinRar. Управление через командную строку

> Германн (27.08.2010 03:37:07) [7]

zlib бесплатен, а если поискать на SF то наверно еще можно найти. По крайней
мере 7z интерфейс открытый

← →
kudatsky (2010-08-27 09:50) [10]

Я только-что проверил этот код:
FileExecuteWait("Winrar.exe","A "E:\1111\XYZ.RAR" "@E:\1111\CalcPath.lst"",
"C:\",esNormal);
Он работает. В файле CalcPath.lst - список файлов для архивации с путями.
Процедура FileExecuteWait из библиотеки RxLib

KaZip идет с исходниками - рекомендую.
http://kadao.dir.bg/

Упаковка файлов и архивация Найти похожие ветки