Delphi DLL

Unicode Escape

Convert a string to Unicode escaped values. 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
success: Boolean;
sb: HCkStringBuilder;
str: PWideChar;
charset: PWideChar;

begin
success := False;

sb := CkStringBuilder_Create();

str := 'bôn';
charset := 'not_used';

// Unicode escape all chars using \uHHHH
success := CkStringBuilder_SetString(sb,str);
CkStringBuilder_Encode(sb,'unicode-escape-all',charset);
Memo1.Lines.Add(CkStringBuilder__getAsString(sb));
// Output is \u0062\u00f4\u006e

// Unicode escape only 8bit chars using \uHHHH
success := CkStringBuilder_SetString(sb,str);
CkStringBuilder_Encode(sb,'unicode-escape-8bit',charset);
Memo1.Lines.Add(CkStringBuilder__getAsString(sb));
// Output is b\u00f4n

// To use uppercase hex chars (A-F), add "-upper" to the encoding name
success := CkStringBuilder_SetString(sb,str);
CkStringBuilder_Encode(sb,'unicode-escape-all-upper',charset);
Memo1.Lines.Add(CkStringBuilder__getAsString(sb));
// Output is \u0062\u00F4\u006E

// Unicode escape all chars using \u{HHHH}
success := CkStringBuilder_SetString(sb,str);
CkStringBuilder_Encode(sb,'unicode-escape-all-curly-upper',charset);
Memo1.Lines.Add(CkStringBuilder__getAsString(sb));
// Output is \u{0062}\u{00F4}\u{006E}

// Unicode escape 8bit chars using HTML hex &#xH;
success := CkStringBuilder_SetString(sb,str);
CkStringBuilder_Encode(sb,'unicode-escape-8bit-html-hex',charset);
Memo1.Lines.Add(CkStringBuilder__getAsString(sb));
// Output is bôn

// Unicode escape all chars using HTML decimal &#D;
success := CkStringBuilder_SetString(sb,str);
CkStringBuilder_Encode(sb,'unicode-escape-all-html-dec',charset);
Memo1.Lines.Add(CkStringBuilder__getAsString(sb));
// Output is bôn

// Unicode escape all chars using u+HHHH
success := CkStringBuilder_SetString(sb,str);
CkStringBuilder_Encode(sb,'unicode-escape-all-plus',charset);
Memo1.Lines.Add(CkStringBuilder__getAsString(sb));
// Output is u+0062u+00f4u+006e

// Unicode escape 8bit chars using angled brackets <HHHH>
success := CkStringBuilder_SetString(sb,str);
CkStringBuilder_Encode(sb,'unicode-escape-8bit-angle-upper',charset);
Memo1.Lines.Add(CkStringBuilder__getAsString(sb));
// Output is b<00F4>n

CkStringBuilder_Dispose(sb);

end;