(Delphi DLL) Compress a String and Save as a Gzip File

See more Gzip Examples

This example demonstrates how to use the CompressStringToFile method to compress a string and write the result directly to a Gzip (.gz) file.

The input string is first converted to its byte representation using the specified character set (in this case, UTF-8). The resulting bytes are then compressed using the Gzip format, and the compressed output is written directly to the specified file.

This method is convenient when you want to generate a compressed file from in-memory text without needing intermediate objects such as BinData or StringBuilder.

Chilkat for Delphi Downloads Chilkat non-ActiveX DLL for Delphi Chilkat ActiveX DLL for Delphi * The examples here use the non-ActiveX 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;
inputStr: PWideChar;

begin
success := False;

// This example demonstrates how to compress a string and save the result
// directly to a Gzip (.gz) file.

gzip := CkGzip_Create();

// The string to be compressed:
inputStr := 'The quick brown fox jumps over the lazy dog.';

// Compress the string using UTF-8 and write to a file:
success := CkGzip_CompressStringToFile(gzip,inputStr,'utf-8','output.gz');
if (success = False) then
  begin
    Memo1.Lines.Add(CkGzip__lastErrorText(gzip));
    Exit;
  end;

Memo1.Lines.Add('Compression successful.');
Memo1.Lines.Add('Gzip file written to output.gz');

CkGzip_Dispose(gzip);

end;