Как работать с 7z в Delphi -> Форум на Исходниках.Ру

	Наши проекты: Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту

Здравствуйте, Гость ! [18.225.255.134]

ПРАВИЛА РАЗДЕЛА · FAQ раздела Delphi · Книги по Delphi

Пожалуйста, выделяйте текст программы тегом [сode=pas] ... [/сode]. Для этого используйте кнопку [code=pas] в форме ответа или комбобокс, если нужно вставить код на языке, отличном от Дельфи/Паскаля.

Следующие вопросы задаются очень часто, подробно разобраны в FAQ и, поэтому, будут безжалостно удаляться:
1. Преобразовать переменную типа String в тип PChar (PAnsiChar)
2. Как "свернуть" программу в трей.
3. Как "скрыться" от Ctrl + Alt + Del (заблокировать их и т.п.)
4. Как прочитать список файлов, поддиректорий в директории?
5. Как запустить программу/файл?
... (продолжение следует) ...

Вопросы, подробно описанные во встроенной справочной системе Delphi, не несут полезной тематической нагрузки, поэтому будут удаляться.
Запрещается создавать темы с просьбой выполнить какую-то работу за автора темы. Форум является средством общения и общего поиска решения. Вашу работу за Вас никто выполнять не будет.

Внимание
Попытки открытия обсуждений реализации вредоносного ПО, включая различные интерпретации спам-ботов, наказывается предупреждением на 30 дней.
Повторная попытка - 60 дней. Последующие попытки бан.
Мат в разделе - бан на три месяца...

Модераторы: jack128, D[u]fa, Shaggy, Rouse_

Новое голосование

Как работать с 7z в Delphi

koder	Сообщ. #1 , 14.03.07, 15:44
Profi Профиль · PM Рейтинг (т): 10	Как работать с 7zip.dll в Delphi. Может есть у кого пример..?? Прикреплённый файл7z.zip (276.68 Кбайт, скачиваний: 3709)

P.O.D	Сообщ. #2 , 14.03.07, 16:59
Guru Профиль · PM Поощрения: 1 Dgm Рейтинг (т): 274	koder Ты же сам ответил на свой вопрос У тебя в архиве 2 ф-ции для добавления и извлечения.

koder	Сообщ. #3 , 14.03.07, 17:11
Profi Профиль · PM Рейтинг (т): 10	Да разобрался..хех..где можно пример глянуть для работы с listview, чтобы добавлять выбранные файлы в архив..

koder	Сообщ. #4 , 14.03.07, 18:43
Profi Профиль · PM Рейтинг (т): 10	Подскажите а как несколько файлов заархивировать?

Testudo

Сообщ. #5 , 15.03.07, 06:44

Master

Профиль · PM

Рейтинг (т): 105

Очень просто. При создании архива:

Цитата

FileList : string; // comma separated files to be added to archive (wildcards ok)

Можно список файлов через ;, а можно и маски использовать.

Добавлено 15.03.07, 06:48
Я как раз этой библиотекой пользовался. Тут есть несколько грабель.
Во-первых, эти либы от Minoru Akita могут полностью вешать на время архивации 2003ю винду (сервер).
Во-вторых, при работе в нескольких потоках возникают проблемы с загрузкой либы в очередной поток.
Если первая проблема решается поиском другой версии этой либы, то вторую проблему мне решить не удалось. Пришлось использовать оригенальную консольную версию 7za.exe.

koder	Сообщ. #6 , 15.03.07, 12:43
Profi Профиль · PM Рейтинг (т): 10	Testudo А как архивировать файлы из других папок, не только из текущей..

dron-s	Сообщ. #7 , 15.03.07, 13:45
Master Профиль · PM Рейтинг (т): 146	Цитата koder @ 15.03.07, 12:43 А как архивировать файлы из других папок, не только из текущей.. использовать полные пути к файлам...

koder	Сообщ. #8 , 15.03.07, 13:59
Profi Профиль · PM Рейтинг (т): 10	А в тип string разве это уместится???Пробовал..он виснит и ничего не делает..

dron-s	Сообщ. #9 , 15.03.07, 14:11
Master Профиль · PM Рейтинг (т): 146	Цитата koder @ 15.03.07, 13:59 А в тип string разве это уместится??? а зачем в тип String это сувать? ты же из ListBox списох берёшь... вот и считывай построчно а потом пакуй

koder

Сообщ. #10 , 15.03.07, 14:14

Profi

Профиль · PM

Рейтинг (т): 10

function SevenZipCreateArchive( hWnd : HWND; // parent window handle

ArchiveFilename : string;

FileList : string; // comma separated files to be added to archive (wildcards ok)

CompressionLevel : integer; // 0 = none, 9=max

CreateSolidArchive : Boolean; // solid = better compression for multiple files

RecurseFolders : Boolean; // recurse folders?

ShowProgress : Boolean; // if true uses dll's internal progress indicator (callback func ignored)

Callback : TSevenZipCallbackProc = nil ) // optional callback (ShowProgress must be false)

: integer;

Это каждый раз вызывать эту функцию для каждого файла..???

Testudo

Сообщ. #11 , 16.03.07, 11:50

Master

Профиль · PM

Рейтинг (т): 105

Цитата dron-s @ 15.03.07, 13:45

использовать полные пути к файлам...

Не полные, а относительные. Эта либа не умеет работать с полными путями (а может твоя версия и умеет, но предыдущие - нет).

Цитата koder @ 15.03.07, 14:14

Это каждый раз вызывать эту функцию для каждого файла..???

Нет.
Просто в параметр FileList передай нечто вроде:

.\toarch_*.dat,.\..\somedir\mainfile.dat,.\..\..\windows\system32\users32.dll

Добавлено 16.03.07, 11:53
koder, я тебе все же рекомендую скачать 7za.exe - консольный вариант архиватора, и работать с ним. Проблем меньше будет. В том числе с относительными путями: консольный архиватор замечательно глотает полные пути. Да и добавлять файлы в созданный ранее архив проще.

Сообщение отредактировано: Testudo - 16.03.07, 11:53

koder	Сообщ. #12 , 16.03.07, 12:09
Profi Профиль · PM Рейтинг (т): 10	а где е взять этот 7za.exe?

Testudo	Сообщ. #13 , 16.03.07, 12:13
Master Профиль · PM Рейтинг (т): 105	Как где? На www.7-zip.org конечно! Ежели лень, вот прямая ссылка: 7za442.zip

koder	Сообщ. #14 , 17.03.07, 19:52
Profi Профиль · PM Рейтинг (т): 10	можешь примерчик кинуть как заархивировать несколько файлов с разных мест

Alexandr_7	Сообщ. #15 , 28.06.20, 12:26
Newbie Профиль · PM Рейтинг (т): нет	Здравствуйте. Ктонибудь знает где найти обертку под 7z посвежее желательно с LZMA2 и размер словаря 128МБ

0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)

0 пользователей:

Страницы: (2) [1] 2 все

[ Script execution time: 0,0353 ] [ 17 queries used ] [ Generated: 25.04.24, 00:16 GMT ]