Ecosyste.ms: Awesome

An open API service indexing awesome lists of open source software.

Awesome Lists | Featured Topics | Projects

https://github.com/geoffsmith82/d7zip

A Delphi Wrapper around 7z.dll
https://github.com/geoffsmith82/d7zip

7z 7zip chm compression decompression gzip iso lzh wim xz

Last synced: 10 days ago
JSON representation

A Delphi Wrapper around 7z.dll

Awesome Lists containing this project

README 

        
# 7-zip Delphi API



* Author: Henri Gourvest 

* Licence: MPL1.1

* Date: 2011-11-29

* Version: 1.2

* [Original source at Google Code](https://code.google.com/archive/p/d7zip/source/default/commits)

* Extended version by Daniel Marschall 2024-05-15 with a lot of changes (see sevenzip.pas header for changelog)

* Example usage Demo added by Geoffrey Smith



This API use the 7-zip dll (7z.dll) to read and write all 7-zip supported archive formats.  The latest 32-bit and 64-bit version of the 7z.dll is included in the repository (currently 24.08). According to the documentation, file formats listed below are supported, although many may only support decompression/extraction and not creation/compression.

 - zip

 - bz2

 - rar

 - arj

 - z

 - lzh

 - 7z

 - cab

 - nsis

 - lzma

 - lzma86

 - xz

 - ppmd

 - squashFS

 - cramFS

 - apm

 - mslz

 - flv

 - swf

 - swfc

 - ntfs

 - fat

 - mbr

 - vhd

 - pe

 - elf

 - macho

 - udf

 - xar

 - mub

 - hfs

 - dmg

 - compound doc

 - wim

 - iso

 - bkf

 - chm

 - split

 - rpm

 - deb

 - cpio

 - tar

 - gzip

 

## 7-Zip Demo

  This demo currently allows you to locate archives on your hard disk and list the contents of archive. It uses VirtualTree that you can get in the GetIt package manager in Delphi.



  

## Reading archive:

### Extract to path:



```pascal

var

  archive : I7zInArchive;

begin

  archive := CreateInArchive(CLSID_CFormatZip);

  archive.OpenFile('c:\test.zip');

  archive.ExtractTo('c:\test');

end;



```

### Get file list:

```Pascal

var

  archive : I7zInArchive;

  i : Integer;

begin

  archive := CreateInArchive(CLSID_CFormat7z);

  archive.OpenFile('c:\test.7z');

  for i := 0 to archive.NumberOfItems - 1 do

    if not archive.ItemIsFolder[i] then

      Writeln(archive.ItemPath[i]);

end;

```

### Extract to stream

```Pascal

 with CreateInArchive(CLSID_CFormat7z) do

 begin

   OpenFile('c:\test.7z');

   for i := 0 to NumberOfItems - 1 do

     if not ItemIsFolder[i] then

       ExtractItem(i, stream, false);

 end;

```

### Extract "n" Items

```Pascal

function GetStreamCallBack(sender: Pointer; index: Cardinal;

  var outStream: ISequentialOutStream): HRESULT; stdcall;

begin

  case index of ...

    outStream := T7zStream.Create(aStream, soReference);

  Result := S_OK;

end;



procedure TMainForm.ExtractClick(Sender: TObject);

var

  archive : I7zInArchive;

  i: integer;

  items: array[0..2] of Cardinal;

begin

  archive := CreateInArchive(CLSID_CFormat7z);

  archive.OpenFile('c:\test.7z');

    // items must be sorted by index!

  items[0] := 0;

  items[1] := 1;

  items[2] := 2;

  archive.ExtractItems(@items, Length(items), false, nil, GetStreamCallBack);

end;



```

### Open stream

```Pascal

var

  archive : I7zInArchive;

begin

  archive := CreateInArchive(CLSID_CFormatZip) do

  archive.OpenStream(T7zStream.Create(TFileStream.Create('c:\test.zip', fmOpenRead), soOwned));

  archive.OpenStream(aStream, soReference);

   ...

end;

```

### Progress bar

```Pascal

function ProgressCallback(sender: Pointer; total: boolean; value: int64): HRESULT; stdcall;

begin

  if total then

    Mainform.ProgressBar.Max := value 

  else

    Mainform.ProgressBar.Position := value;

  Result := S_OK;

end;



procedure TMainForm.ExtractClick(Sender: TObject);

var

  archive : I7zInArchive;

begin

  archive := CreateInArchive(CLSID_CFormatZip);

  archive.OpenFile('c:\test.zip');

  archive.SetProgressCallback(nil, ProgressCallback);

  ...

end;

```

### Password

```Pascal

function PasswordCallback(sender: Pointer; var password: WideString): HRESULT; stdcall;

begin

  // call a dialog box ...

  password := 'password';

  Result := S_OK;

end;



procedure TMainForm.ExtractClick(Sender: TObject);

var

  archive : I7zInArchive;

begin

  archive := CreateInArchive(CLSID_CFormatZip);

  // using callback

  archive.SetPasswordCallback(nil, PasswordCallback);

  // or setting password directly

  archive.SetPassword('password');

  archive.OpenFile('c:\test.zip');

     ...

end;

```

### Writing archive

```Pascal

 procedure TMainForm.PackFilesClick(Sender: TObject);

var

  Arch: I7zOutArchive;

begin

  Arch := CreateOutArchive(CLSID_CFormat7z);

  // add a file

  Arch.AddFile('c:\test.bin', 'folder\test.bin');

  // add files using willcards and recursive search

  Arch.AddFiles('c:\test', 'folder', '*.pas;*.dfm', true);

  // add a stream

  Arch.AddStream(aStream, soReference, faArchive, CurrentFileTime, CurrentFileTime, 'folder\test.bin', false, false);

  // compression level

  SetCompressionLevel(Arch, 5);

  // compression method if <> LZMA

  SevenZipSetCompressionMethod(Arch, m7BZip2);

  // add a progress bar ...

  Arch.SetProgressCallback(...);

  // set a password if necessary

  Arch.SetPassword('password');

  // Save to file

  Arch.SaveToFile('c:\test.zip');

  // or a stream

  Arch.SaveToStream(aStream);

end;

```