(Delphi ActiveX) GZip Decompress File
Demonstrates how to uncompress a .gz compressed file to get the uncompressed original file.
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB;
...
procedure TForm1.Button1Click(Sender: TObject);
var
gzip: TChilkatGzip;
success: Integer;
begin
// This example assumes the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.
gzip := TChilkatGzip.Create(Self);
success := gzip.UncompressFile('qa_data/gzip/something.csv.gz','qa_output/something.csv');
if (success <> 1) then
begin
Memo1.Lines.Add(gzip.LastErrorText);
Exit;
end;
Memo1.Lines.Add('File successfully uncompressed and extracted from the Gzip compressed format.');
end;
|