| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Упаковка файлов и архивация [D7]
Vidog © (2010-08-26 12:43:00)Здравствуйте.
Наверняка есть готовые решения для упаковки файлов в один архив (желательно с защитой -- пароль). Без использования сторонних DLL итп.
ТО есть просто:
procedure packDirectory(dir: String; out: String; key: String);
begin
//засовываем все файлы из dir и сохраняем запароленный файл ключом key в файл out
end;
Подскажите, пожалуйста. Интересует минимальный размер приложения без сторонних библиотек итп.
Rouse_ (2010-09-01 16:13:00) [1]KaZip идет с исходниками - рекомендую.
http://kadao.dir.bg/
kudatsky (2010-08-27 09:50:00) [2]Я только-что проверил этот код:
FileExecuteWait('Winrar.exe','A "E:\1111\XYZ.RAR" "@E:\1111\CalcPath.lst"',
'C:\',esNormal);
Он работает. В файле CalcPath.lst - список файлов для архивации с путями.
Процедура FileExecuteWait из библиотеки RxLib
Anatoly Podgoretsky (2010-08-27 09:40:00) [3]> Германн (27.08.2010 03:37:07) [7]
zlib бесплатен, а если поискать на SF то наверно еще можно найти. По крайней
мере 7z интерфейс открытый
kudatsky (2010-08-27 09:29:00) [4]Можно использовать WinRar. Управление через командную строку
Германн (2010-08-27 03:37:00) [5]
> готовые решения для упаковки файлов в один архив (желательно
> с защитой -- пароль). Без использования сторонних DLL итп.
>
И бесплатные при этом?
Утопия.
Anatoly Podgoretsky (2010-08-26 15:52:00) [6]> Vidog (26.08.2010 14:44:04) [4]
Это твое внутреннее дело, как хочешь так и реализуешь, хоть видео
комментарии добавляй. А паковать лучше так, что бы можно было распаковать.
~AQUARIUS~ (2010-08-26 15:06:00) [7]
> а как паковать лучше? в TMemoryStream записывать файлы по
> очереди? и как длину каждого файла + комментарии прицепить
> к ним?
А это уже как вам дуобнее будет. Это будет ваш собственный формат файла, как захотите - так его и оформляйте.
Vidog (2010-08-26 14:44:00) [8]
> Задача на 30 минут. С упаковкой немного больше, придется
> освоить ZLib
а как паковать лучше? в TMemoryStream записывать файлы по очереди? и как длину каждого файла + комментарии прицепить к ним?
Anatoly Podgoretsky (2010-08-26 13:27:00) [9]> Vidog (26.08.2010 12:43:00) [0]
Задача на 30 минут. С упаковкой немного больше, придется освоить ZLib
brother (2010-08-26 12:55:00) [10]> Без использования сторонних DLL итп.
Нет! Придется писать все ручками
Vidog (2010-08-26 12:46:00) [11]Или просто массив
type
TMyFileInfo = record
Name: String;
Comment: String;
Stream: TMemoryStream;
end;
TMyFiles = array of TMyFileInfo;
procedure packDirectory(files: TMyFiles; out: String; key: String);
begin
end;
| |
