(Delphi ActiveX) JSON Hex Encoding

See more JSON Examples

Let's say your JSON contains content that is hex encoded like this: \u05d1\u05d3\u05d9\u05e7

This example shows how to get the decoded string.

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
s: WideString;
json: TChilkatJsonObject;
success: Integer;
sb: TChilkatStringBuilder;

begin
s := '{ "example": "\\u05d1\\u05d3\\u05d9\\u05e7" }';

json := TChilkatJsonObject.Create(Self);

success := json.Load(s);

// When getting the member data, it is automatically decoded.
Memo1.Lines.Add('member data: ' + json.StringOf('example'));

// Output:
// member data: בדיק

// When getting the full JSON, it remains encoded. This is expected and intentional.
Memo1.Lines.Add('full JSON: ' + json.Emit());

// Output:
// full JSON: {"example":"\u05d1\u05d3\u05d9\u05e7"}

// To get the full JSON without the encoding, you can decode manually.
sb := TChilkatStringBuilder.Create(Self);
json.EmitSb(sb.ControlInterface);
// The hex encoding used by JSON is utf-8.
sb.Decode('json','utf-8');

Memo1.Lines.Add(sb.GetAsString());

// Output:
// {"example":"בדיק"}
end;