2

Как можно разархивировать zip-архив (с какой нибудь библиотекой или вообще скриптом) в определенную папку ?

4 ответа 4

5

Замечу, что ZipForge - коммерческий компонент и лицензия обойдется в € 49.

В то же самое время есть свободная Abbrevia с аналогичным набором фич по лицензии MPL.

1
  • плюсану. не слышал про него. скачаем, посмотрим.
    – teanЫЧ
    11 июл 2012 в 9:39
1

Спасибо, уже нашел самый простой вариант: использовав 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;
2
  • не в обиду будет сказано, но тогда уж сначала можно было полукморить, а потом уж вопрос задавать
    – teanЫЧ
    11 июл 2012 в 9:40
  • Извиняюсь, просто долго не мог найти оптимальный вариант, ZipForge - платный еще несколько библиотек уж очень медленные.
    – zerpico
    11 июл 2012 в 10:34
0

Рекомендую посмотреть в сторону компонента ZipForge.
Он очень прост в использовании и в интернетах полно информации о нем.

0

Нужен 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;
9
  • зачем в данном случае пользоваться посторонними приложениями? 1. общий размер приложения от этого не уменьшится 2. скорость работы, отнюдь, не увеличится 3. код выглядит сложнее и больше. Человек, не знакомый с WinApi, не разберется в том, что тут написано. А просто копипастить быдлокод в свой проект - не к добру.
    – teanЫЧ
    27 июл 2012 в 5:38
  • 1
    @an_vital, ну очень удобный способ )
    – Nofate
    27 июл 2012 в 6:16
  • 1
    @Nofate, ты забыл про ![тэг][1] =) [1]: i.imgur.com/NiCp6.jpg
    – teanЫЧ
    27 июл 2012 в 6:21
  • 2
    Нет всё таки мой способ легче, просто использовав 7z.dll
    – zerpico
    2 авг 2012 в 2:48
  • То есть 7z.dll - это не стороннее приложение? :)
    – an_vital
    3 авг 2012 в 0:57

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.