(Delphi DLL) Compress a String to Gzip and Return as Base64

See more Gzip Examples

This example demonstrates how to use the CompressStringENC method to compress a string into Gzip format and return the result as an encoded string.

The input string is first converted to its byte representation using the specified character set (in this case, UTF-8). The bytes are then compressed using the Gzip format. Finally, the compressed binary data is encoded as a Base64 string.

Returning the compressed data as an encoded string is useful for safely transmitting or storing the data in text-based systems such as JSON, XML, or HTTP headers.

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
gzip: HCkGzip;
inputStr: PWideChar;
compressedBase64: PWideChar;

begin
// This example demonstrates how to compress a string into Gzip format
// and return the compressed result as a Base64-encoded string.

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 return the result as Base64:
compressedBase64 := CkGzip__compressStringENC(gzip,inputStr,'utf-8','base64');
if (CkGzip_getLastMethodSuccess(gzip) = False) then
  begin
    Memo1.Lines.Add(CkGzip__lastErrorText(gzip));
    Exit;
  end;

Memo1.Lines.Add('Original string: ' + inputStr);
Memo1.Lines.Add('Compressed (Base64): ' + compressedBase64);

// Note: For very small strings, the compressed output may actually be larger
// than the original. This is because the Gzip format adds overhead such as
// headers and metadata. As the size of the input string increases, the
// compression becomes more effective and results in a smaller output.

CkGzip_Dispose(gzip);

end;