GZip Tar Extract (.tgz or .tar.gz)

Demonstrates how to extract the contents of a GZip compressed Tar archive (.tgz or .tar.gz).

Download Chilkat 32-bit Zip ActiveX (.msi) (includes objects for .zip, .gz, .bz2, and .Z)

Download All 32-bit Chilkat ActiveX Components (.zip)

Download All 64-bit Chilkat ActiveX Components (.zip)

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls,
    CHILKATGZIPLib_TLB,
    OleCtrls;

...

procedure TForm1.Button1Click(Sender: TObject);
var
gzip: TGzip;
success: Integer;
bNoAbsolute: Integer;
untarToDirectory: String;

begin

gzip := TGzip.Create(Self);

//  Any string unlocks the component for the 1st 30-days.
success := gzip.UnlockComponent('Anything for 30-day trial');
if (success <> 1) then
  begin
    ShowMessage(gzip.LastErrorText);
    Exit;
  end;

//  Ungzip and untar.
bNoAbsolute := 1;

untarToDirectory := 'c:/temp/test';
//  bNoAbsolute tells the component to convert all absolute paths
//  found in the .tar to relative paths.   For example, if the .tar
//  contains a file with an absolute path such as
//  "c:/Windows/system32/something.exe" it will
//  be extracted to "c:/temp/test/Windows/system32/something.exe"
success := gzip.UnTarGz('test.tar.gz',untarToDirectory,bNoAbsolute);
if (success <> 1) then
  begin
    ShowMessage(gzip.LastErrorText);
    Exit;
  end;


end;