(Delphi ActiveX) JSON Escape and Unescape a String

The encoding mode keyword "json" was added in Chilkat v9.5.0.66 to provide the ability to escape and unescape JSON strings. See Chilkat Encodings for the full list of encoding keywords, such as "base64", "hex", "url", etc.

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

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

begin
// Note: This example requires Chilkat version 9.5.0.66 or greater.

sb := TChilkatStringBuilder.Create(Self);

sb.Append('backslash: \\\\, A: \\u0041');
Memo1.Lines.Add(sb.GetAsString());

// The output is:
//    backslash: \\, A: \u0041

// Starting in Chilkat v9.5.0.66, the keyword "json" can be used
// to escape and unescape.  To escape is to encode.  To unescape is to decode.

// Unescape (decode) the string in sb.
sb.Decode('json','utf-8');
Memo1.Lines.Add(sb.GetAsString());

// After JSON unescaping:
//    backslash: \, A: A

// Now JSON escape the string.
sb.Encode('json','utf-8');
Memo1.Lines.Add(sb.GetAsString());

// After JSON escaping:
//    backslash: \\, A: A

// Note: The "A" is not escaped to "\u0041" because there is no need.
// The "\uXXXX" format would be produced for non-printable control chars.
end;