[Painkiller]

Как всегда проблему решил сам. Вопрос решён . Нашёл модуль по новее и чуть переписал функцию и всё заработало

[Iska]

Painkiller, тогда дело за малым осталось — привести ссылку на:

модуль по новее »

и новый код для:

чуть переписал функцию »

.

[Painkiller]

Painkiller, тогда дело за малым осталось — привести ссылку на: »

в шапке

[Iska]

Painkiller, спасибо! Родина Вас не забудет !

[Painkiller]

Painkiller, спасибо! Родина Вас не забудет ! »

Одна проблема решена , а вот, если нужно распаковать папку с файлами из архива . Функция работает только с файлами . Действительно проще было все реализовать запуск через консольный 7zip с определёнными ключами + имитацию прогрессбара прикрутить . Также до сих пор я не знаю как добавить в модуль поддержку распаковки esd формата.

[opel431]

Одна проблема решена , а вот, если нужно распаковать папку с файлами из архива.... »

В SevenZip целый класс для этого. Код со старой заготовки...., должен работать

Код:

// ----------------------------------------------------------------------

{ распаковать архив }
procedure Unzip7z_All(aCompressFileName: string);
var
  Zz: I7zInArchive;
  outDir: string;
begin
  Zz := CreateInArchive(CLSID_CFormat7z);
  with Zz do // интерфейс архива
  begin
    OpenFile(aCompressFileName); // имя архива
    outDir := ChangeFileExt(aCompressFileName, ''); // выходной каталог
    ForceDirectories(outDir); // создать
    ExtractTo(outDir);
  end;
end;

{ применение }
procedure TForm1.btn1Click(Sender: TObject);
begin
  Unzip7z_All(ExtractFilePath(Application.ExeName) + 'Архив.7z');
end;

// ----------------------------------------------------------------------

{ извлечь файл из архива }
Unzip7z_ExtractFile(const aCompressFileName: string;
  const aOutSaveFileName: string): Boolean;
var
  fs: TFileStream;
  i: Integer;
  InArchive: I7zInArchive;
  Item: string;
begin
  Result := False;

  if not FileExists(aCompressFileName) then
  begin
    ShowMessage('File no found');
    Exit;
  end;

  InArchive := CreateInArchive(CLSID_CFormat7z);
  try
    try
      InArchive.OpenFile(aCompressFileName);

      if InArchive.NumberOfItems > 0 then
      begin
        for i := 0 to InArchive.NumberOfItems - 1 do
        begin
          Item := InArchive.ItemPath[i];
          if not InArchive.ItemIsFolder[i] then
          begin
            if Item = ( { 'Имя папки в архиве\' + } ExtractFileName(aOutSaveFileName)) then
            begin
              if FileExists(aOutSaveFileName) then
                DeleteFile(aOutSaveFileName);
              fs := TFileStream.Create(aOutSaveFileName,
                fmCreate or fmOpenWrite);
              try
                InArchive.ExtractItem(i, fs, False);
              finally
                FreeAndNil(fs);
              end;
            end;
          end;
          Break;
        end;
      end;
    except
      on E: Exception do
      begin
        Result := False;
      end;
    end;
  finally
    InArchive := nil;
  end;
end;

{ применение }
procedure TForm1.btn2Click(Sender: TObject);
begin
  if Unzip7z_ExtractFile(ExtractFilePath(Application.ExeName) + 'Архив.7z',
    'Имя файла.txt') then
    ShowMessage('No found file');
end;

[Painkiller]

opel431, ай -яй -яй

Код:

procedure Unzip7z_All(aCompressFileName: string);
var
 Zz: I7zInArchive;
 outDir: string;
begin
 Zz := CreateInArchive(CLSID_CFormat7z);
 with Zz do // интерфейс архива
 begin
 OpenFile(aCompressFileName); // имя архива
 outDir := ChangeFileExt(aCompressFileName, ''); // выходной каталог
 ForceDirectories(outDir); // создать
 ExtractTo(outDir);
 end;
end;
{ применение }
procedure TForm1.btn1Click(Sender: TObject);
begin
 Unzip7z_All(ExtractFilePath(Application.ExeName) + 'Архив.7z');
end;

Если на то пошло , то бы сделали так

Код:

procedure Unzip7z_All(aCompressFileName, outDir: string);
var
 Zz: I7zInArchive;
begin
 Zz := CreateInArchive(CLSID_CFormat7z);
 with Zz do // интерфейс архива
 begin
 OpenFile(aCompressFileName); // имя архива
 ForceDirectories(outDir); // создать
 ExtractTo(outDir);
 end;
end;
{ применение }
procedure TForm1.btn1Click(Sender: TObject);
begin
 Unzip7z_All(ExtractFilePath(Application.ExeName) + 'Архив.7z' , 'путь распаковки');
end;

Код:

Unzip7z_ExtractFile(const aCompressFileName: string;
 const aOutSaveFileName: string): Boolean;
var
 fs: TFileStream;
 i: Integer;
 InArchive: I7zInArchive;
 Item: string;
begin
 Result := False;
if not FileExists(aCompressFileName) then
 begin
 ShowMessage('File no found');
 Exit;
 end;
InArchive := CreateInArchive(CLSID_CFormat7z);
 try
 try
 InArchive.OpenFile(aCompressFileName);
if InArchive.NumberOfItems > 0 then
 begin
 for i := 0 to InArchive.NumberOfItems - 1 do
 begin
 Item := InArchive.ItemPath[i];
 if not InArchive.ItemIsFolder[i] then
 begin
 if Item = ( { 'Имя папки в архиве\' + } ExtractFileName(aOutSaveFileName)) then
 begin
 if FileExists(aOutSaveFileName) then
 DeleteFile(aOutSaveFileName);
 fs := TFileStream.Create(aOutSaveFileName,
 fmCreate or fmOpenWrite);
 try
 InArchive.ExtractItem(i, fs, False);
 finally
 FreeAndNil(fs);
 end;
 end;
 end;
 Break;
 end;
 end;
 except
 on E: Exception do
 begin
 Result := False;
 end;
 end;
 finally
 InArchive := nil;
 end;
end;
{ применение }
procedure TForm1.btn2Click(Sender: TObject);
begin
 if Unzip7z_ExtractFile(ExtractFilePath(Application.ExeName) + 'Архив.7z',
 'Имя файла.txt') then
 ShowMessage('No found file');
end;

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

[opel431]

opel431, ай -яй -яй »

Ай -яй -яй, так ай -яй -яй! Вам дал пример использования класса, если понимаете о чем идет речь, рассматривая его как основу, а как Вы будете использовать свои обвертки для класса, Ваши проблемы. Так что, ай -яй -яй возьмите обратно!

[Painkiller]

opel431, я не знаю как распаковать определённую папку из архива , а не целый архив . С файлом и так понятно уже, решил сам как всегда, зачем возвращаться к этому ?
Так же интересует вопрос :

как добавить в модуль поддержку распаковки esd формата. »

Ай -яй -яй, так ай -яй -яй! Вам дал пример использования класса, если понимаете о чем идет речь, рассматривая его как основу, а как Вы будете использовать свои обвертки для класса, Ваши проблемы. Так что, ай -яй -яй возьмите обратно! »

Это было не оскорбление, не воспринимайте вы так слова близко к сердцу.