Delphi ActiveX

StringBuilder Encode Charset

Demonstrates the importance of the charset argument when encoding/decoding. Delphi ActiveX

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
s: WideString;
sb: TChilkatStringBuilder;

begin
s := 'é é é';

sb := TChilkatStringBuilder.Create(Self);

sb.Append(s);
sb.EntityDecode();

// The string now contains: "é é é"
Memo1.Lines.Add(sb.GetAsString());

// If encoded to hex using the iso-8859-1 charset, 
// each é char is represented in 1 byte.
// Output: E920E920E9
Memo1.Lines.Add(sb.GetEncoded('hex','iso-8859-1'));

// If encoded to hex using the utf-8 charset, 
// each é char is represented in 2 bytes.
// Output: C3A920C3A920C3A9
Memo1.Lines.Add(sb.GetEncoded('hex','utf-8'));

// Here's utf-16
// Output: E9002000E9002000E900
Memo1.Lines.Add(sb.GetEncoded('hex','utf-16'));

// utf-32
// Output: E900000020000000E900000020000000E9000000
Memo1.Lines.Add(sb.GetEncoded('hex','utf-32'));
end;