Delphi ActiveX

StringBuilder Encode

Demonstrates the Chilkat StringBuilder Encode method. 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 := 'The quick brown fox jumps over the lazy dog';

sb := TChilkatStringBuilder.Create(Self);

sb.Append(s);

// output: The quick brown fox jumps over the lazy dog
Memo1.Lines.Add(sb.GetAsString());

sb.Encode('base64','utf-8');

// output: VGhlIHF1aWNrIGJyb3duIGZveCBqdW1wcyBvdmVyIHRoZSBsYXp5IGRvZw==
Memo1.Lines.Add(sb.GetAsString());

sb.Decode('base64','utf-8');
// output: The quick brown fox jumps over the lazy dog
Memo1.Lines.Add(sb.GetAsString());

// Now encode to hex..
sb.Encode('hex','utf-8');
// output: 54686520717569636B2062726F776E20666F78206A756D7073206F76657220746865206C617A7920646F67
Memo1.Lines.Add(sb.GetAsString());

sb.Decode('hex','utf-8');
// URL encode
sb.Encode('url','utf-8');
Memo1.Lines.Add(sb.GetAsString());

sb.Decode('url','utf-8');
// base64url
sb.Encode('base64url','utf-8');
Memo1.Lines.Add(sb.GetAsString());

// other possible encodings include modbase64, base32, base58, quoted-printable, url_rfc1738, url_rfc2396, url_rfc3986, and fingerprint
end;