Как можно разархивировать zip-архив (с какой нибудь библиотекой или вообще скриптом) в определенную папку ?
4 ответа
Замечу, что ZipForge - коммерческий компонент и лицензия обойдется в € 49.
В то же самое время есть свободная Abbrevia с аналогичным набором фич по лицензии MPL.
Спасибо, уже нашел самый простой вариант:
использовав 7z.dll
и библиотеку - Ссылка
И сам код для примера:
uses SevenZip;
var
I : Integer;
begin
// Получаем список файлов
with CreateInArchive(CLSID_CFormatZip) do
begin
OpenFile(ExtractFilePath(ParamStr(0)) + 'file.zip');
MLog.Lines.Append('Список Файлов:');
for I := 0 to NumberOfItems - 1 do
if not ItemIsFolder[I] then
MLog.Lines.Append(ItemPath[I]);
end;
// Распаковывает файлы
with CreateInArchive(CLSID_CFormatZip) do
begin
OpenFile(ExtractFilePath(ParamStr(0)) + 'file.zip');
ExtractTo(ExtractFilePath(ParamStr(0)) + 'file');
MLog.Lines.Append('Архив распакован!');
end;
end;
Рекомендую посмотреть в сторону компонента ZipForge.
Он очень прост в использовании и в интернетах полно информации о нем.
Нужен 7z.exe (7zip - бесплатный архиватор), архиватор положи рядом с исходником программы.
Пишешь процедуру примерно такую:
procedure ExtractTo(AArchive, ADestPath: String);
var
Cmd, Params: String;
begin
Params:= Format('e -y "%s" -o"%s"', [AArchive, ADestPath]);
Cmd:= '"' + FArcPath + '7z.exe"';
OutputDebugString(PChar(Cmd + ' ' + Params));
ShellExecuteWait(Cmd, Params);
end;
function ShellExecuteWait(AppName, Params: String; WaitTime: Cardinal = INFINITE; ShowMode: Integer = SW_SHOWMINIMIZED): integer;
var
ShellInfo: TShellExecuteInfo;
ExitCode: Cardinal;
begin
Screen.Cursor:= crAppStart;
try
with ShellInfo do
begin
cbSize:= SizeOf(TShellExecuteInfo);
fMask:= SEE_MASK_NOCLOSEPROCESS;
Wnd:= HWND_DESKTOP;
lpVerb:= 'open';
lpFile:= PAnsiChar(AppName);
lpParameters:= PAnsiChar(Params);
lpDirectory:= nil;
nShow:= ShowMode;
end;
if not ShellExecuteEx(@ShellInfo) then
RaiseLastOSError;
if ShellInfo.hProcess <> 0 then
try
WaitForSingleObject(ShellInfo.hProcess, INFINITE);
GetExitCodeProcess(ShellInfo.hProcess, ExitCode);
Result:= ExitCode;
finally
CloseHandle(ShellInfo.hProcess);
end
else
Result:= -1;
Application.BringToFront;
//SetForegroundWindow(Application.MainForm.Handle);
finally
Screen.Cursor:= crDefault;
end;
end;
-
зачем в данном случае пользоваться посторонними приложениями? 1. общий размер приложения от этого не уменьшится 2. скорость работы, отнюдь, не увеличится 3. код выглядит сложнее и больше. Человек, не знакомый с WinApi, не разберется в том, что тут написано. А просто копипастить быдлокод в свой проект - не к добру.– teanЫЧ27 июл 2012 в 5:38
-
1
-
1
-
2
-