(Delphi DLL) Decode Literal String

Decode a literal string. See Avoid Non-usascii Literal Strings in Source Code

Chilkat for Delphi Downloads Chilkat non-ActiveX DLL for Delphi Chilkat ActiveX DLL for Delphi * The examples here use the non-ActiveX DLL.

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

...

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

begin
// It's best not to use non-usascii literal strings in source code.
// Instead, use a binary encoded representation of the string.

// This is the string "44ης Οδός, αρ.2" encoded as quoted-printable.
// Use Chilkat's online tool to prepare encoded strings: Online Binary Encoder
// Note: For strings that have very few us-ascii chars, it's better to use base64 encoding instead of quoted-printable.
s := '44=CE=B7=CF=82 =CE=9F=CE=B4=CF=8C=CF=82, =CE=B1=CF=81.2';
sb := CkStringBuilder_Create();
CkStringBuilder_AppendEncoded(sb,s,'quoted-printable');

// For programming languages where strings are exposed bytes, you can tell Chilkat globally
// to give you the utf-8 byte representation.
// For programming languages where strings are opaque objects, such as C#, it doesn't matter.
glob := CkGlobal_Create();
CkGlobal_putDefaultUtf8(glob,True);

s := CkStringBuilder__getAsString(sb);

CkStringBuilder_Dispose(sb);
CkGlobal_Dispose(glob);

end;