Delphi DLL

Extract a .tar.gz Archive to a Directory

See more Gzip Examples

This example demonstrates how to use the UnTarGz method to extract a .tar.gz archive to a specified directory.

The method performs both the Gzip decompression and TAR extraction in a single step. It operates in streaming mode, meaning it does not create temporary files and uses a constant, minimal amount of memory regardless of archive size.

The bNoAbsolute parameter is set to _TRUE_ in this example to prevent extraction of files with absolute paths. This is a safety measure that helps avoid overwriting files in unintended locations (such as system directories).

This method is ideal for efficiently extracting large .tar.gz archives while maintaining security and low memory usage.

Delphi DLL

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Gzip;

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Boolean;
gzip: HCkGzip;
tgzPath: PWideChar;
destDir: PWideChar;
noAbsolute: Boolean;

begin
success := False;

// This example demonstrates how to extract a .tar.gz archive to a directory.

gzip := CkGzip_Create();

// The .tar.gz file to be extracted:
tgzPath := 'c:/temp/archive.tar.gz';

// The destination directory:
destDir := 'c:/temp/outputDir';

// Set to True to prevent extraction of files with absolute paths:
noAbsolute := True;

// Extract the archive:
success := CkGzip_UnTarGz(gzip,tgzPath,destDir,noAbsolute);
if (success = False) then
  begin
    Memo1.Lines.Add(CkGzip__lastErrorText(gzip));
    Exit;
  end;

Memo1.Lines.Add('Archive successfully extracted to: ' + destDir);

CkGzip_Dispose(gzip);

end;