Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(Delphi ActiveX) Compress String Feed to Base64This 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.
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; |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.