(Delphi ActiveX) Compress String Feed to Base64

This example receives incoming text data in chunks, compresses as a stream, and accumulates the compressed data in base64.

The purpose is to demonstrate the BeginCompressStringENC, MoreCompressStringENC, and EndCompressStringENC methods.

Chilkat for Delphi Downloads Chilkat ActiveX DLL for Delphi Chilkat non-ActiveX DLL for Delphi * The examples here use the ActiveX DLL.

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
success: Integer;
sbCompressedBase64: TChilkatStringBuilder;
compress: TChilkatCompression;
sbIndex: TChilkatStringBuilder;
i: Integer;
originalText: WideString;

begin
// This example assumes the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

sbCompressedBase64 := TChilkatStringBuilder.Create(Self);

compress := TChilkatCompression.Create(Self);
compress.Algorithm := 'deflate';
compress.Charset := 'utf-8';
compress.EncodingMode := 'base64';

sbIndex := TChilkatStringBuilder.Create(Self);

for i := 0 to 24 do
  begin
    // Note: It is possible (and normal) for a BeginCompress* or MoreCompress* method to return
    // an empty string (or 0 bytes).  When this happens, the input data is not lost.  It will be flushed
    // in a subsequent call.
    sbIndex.Clear();
    sbIndex.AppendInt(i);
    if (i = 0) then
      begin
        sbCompressedBase64.Append(compress.BeginCompressStringENC(sbIndex.GetAsString()));
      end
    else
      begin
        sbCompressedBase64.Append(compress.MoreCompressStringENC(sbIndex.GetAsString()));
      end;
    sbCompressedBase64.Append(compress.MoreCompressStringENC(': This is a line of data to be compressed...' + #13#10));
  end;

// Flush any remaining output.
sbCompressedBase64.Append(compress.EndCompressStringENC());

Memo1.Lines.Add('The base64 encoded compressed text:');
Memo1.Lines.Add(sbCompressedBase64.GetAsString());

// Now decompress in one call:
originalText := compress.DecompressStringENC(sbCompressedBase64.GetAsString());
Memo1.Lines.Add(originalText);
end;