Распаковка определённых файлов/папок из 7zip (sevenzip.pas)

[Aqel]

Использую код:

Код:

uses
...sevenzip, ...
 
function ProgressCallback(sender: Pointer; total: boolean; value: int64): HRESULT; stdcall;
 begin
   if total then
     Form1.sprgrsbr1.Max:= value
   else
     Form1.sprgrsbr1.Position:= value;
   Result:= S_OK;
 end;
 
function Decompress(FileName, DestDir, ArcFname: String; ArcDir: Boolean ): Boolean;
var
  i: Integer;
  ItP: string;
  items: array[1..11] of Cardinal;
  sprgrsbr1: TsProgressBar;
begin
  Result:= False;
  Application.ProcessMessages;
  try
  with CreateInArchive(CLSID_CFormat7z) do
    begin
      OpenFile(FileName);
      SetProgressCallback(sprgrsbr1, ProgressCallback);
      for i:= 1 to NumberOfItems - 1 do
      if not ItemIsFolder[i] then
      //ExtractItem(items[i], Steam, False);  - как ей пользоваться в душе не понимаю...
      ExtractTo(DestDir);
    end;
  finally
    Result:= True;
  end;
end;

Как распаковать только нужные, кто знает подскажите..?

Вот файлы 7zip

[Mazahaka_lab]

Никак, я с этим тоже столкнулся. Пока распаковываю, используя ключи командной строки. Да и sevenzip.pas не идеальный, заточенный под старую dll. Esd формат он не распакует.

[Aqel]

То есть через .bat распаковываешь? Примерчик можно?

[Человек_Борща]

Сообщение от Mazahaka_lab

Никак, я с этим тоже столкнулся. Пока распаковываю, используя ключи командной строки. Да и sevenzip.pas не идеальный, заточенный под старую dll. Esd формат он не распакует.

Всё там можно извлечь и по одиночке, поискав пусть в списке файлов и извлечь конкретный объект по его индексу.

Писал когда-то такую вспомогательную функцию:

function SevenZip_ExtractFile(const aInterf: I7zInArchive; const aPath: string;
  const aSavePath: string): Boolean;
var
  i, indx: Integer;
  fs: TFileStream;
  s1, s2: string;
begin
  Result := False;
  indx := -1;
  for i := 0 to aInterf.NumberOfItems - 1 do
  begin
    if (not aInterf.ItemIsFolder[i]) then
    begin
      s1 := LowerCase(Trim((aInterf.ItemPath[i] + aInterf.ItemName[i])));
      s2 := LowerCase(Trim(aPath));
      if (s1 = s2) then
      begin
        indx := i;
        Break;
      end;
    end;
  end;
  if (indx <> -1) then
  begin
    try
      fs := TFileStream.Create(aSavePath, fmCreate or fmOpenWrite);
      try
        aInterf.ExtractItem(indx, fs, False);
        Result := True;
      finally
        FreeAndNil(fs);
      end;
    except
      Result := False;
    end;
  end;
end;

Первое - открытый интерфейс архива.
Второе - путь к тому что распаковать,
третье - куда распокавать
На выход:
true - распаковано
false - не распаковано.

В любой непонятной ситуации - false.

[Mazahaka_lab]

Человек_Борща , использую вашу функцию так

procedure TForm1.Button1Click(Sender: TObject);
var
Zz: I7zInArchive;
begin
Zz:= CreateInArchive(CLSID_CFormat7z);
Zz.OpenFile('C:\hidcon.7z');
if SevenZip_ExtractFile(Zz,'hidcon_x64.exe','C:\3333') then begin
caption:='1' end else begin
caption:='0' ;
end;
end;
end.

Чего-то не распаковывает =(

[Mazahaka_lab]

Проблема решена !

[Mazahaka_lab]

С файлом понятно, а как извлечь определённую папку из архива ?

[Aqel]

Вот мой вариант:

procedure TForm1.btn3Click(Sender: TObject); 
var
  Arc7z: I7zInArchive;
begin
  if dlg1.Execute then
    if FileExists(dlg1.FileName) then
    begin
      aNV := dlg1.FileName; // Файл архива
      pNV := ExtractFilePath(aNV); // Путь файла архива
      Arc7z := CreateInArchive(CLSID_CFormatZip);
      Arc7z.OpenFile(aNV);
      SevenZip_ExtractFile(Arc7z, 'readme.txt', pNV + '\Unpack');
    end;
end;

Что то у меня ошибка "неверная функция" пишет...

[Mazahaka_lab]

Сообщение от Aqel

Вот мой вариант:

procedure TForm1.btn3Click(Sender: TObject); 
var
  Arc7z: I7zInArchive;
begin
  if dlg1.Execute then
    if FileExists(dlg1.FileName) then
    begin
      aNV := dlg1.FileName; // Файл архива
      pNV := ExtractFilePath(aNV); // Путь файла архива
      Arc7z := CreateInArchive(CLSID_CFormatZip);
      Arc7z.OpenFile(aNV);
      SevenZip_ExtractFile(Arc7z, 'readme.txt', pNV + '\Unpack');
    end;
end;

Что то у меня ошибка "неверная функция" пишет...

Ты zip распаковываешь или 7z? В твоём примере в шапке 7z , а тут CLSID_CFormatZip. Определись

[Aqel]

Сообщение от Mazahaka_lab

Ты zip распаковываешь или 7z? В твоём примере в шапке 7z , а тут CLSID_CFormatZip. Определись

Ууупс!!! Пропустил... Спс!!!