Delphi DLL

StringBuilder Encode

Demonstrates the Chilkat StringBuilder Encode method. Delphi DLL

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, StringBuilder;

...

procedure TForm1.Button1Click(Sender: TObject);
var
s: PWideChar;
sb: HCkStringBuilder;

begin
s := 'The quick brown fox jumps over the lazy dog';

sb := CkStringBuilder_Create();

CkStringBuilder_Append(sb,s);

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

CkStringBuilder_Encode(sb,'base64','utf-8');

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

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

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

CkStringBuilder_Decode(sb,'hex','utf-8');
// URL encode
CkStringBuilder_Encode(sb,'url','utf-8');
Memo1.Lines.Add(CkStringBuilder__getAsString(sb));

CkStringBuilder_Decode(sb,'url','utf-8');
// base64url
CkStringBuilder_Encode(sb,'base64url','utf-8');
Memo1.Lines.Add(CkStringBuilder__getAsString(sb));

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

CkStringBuilder_Dispose(sb);

end;