Доброго дня. Подскажите пожалуйста уважаемые знатоки.
Создал WebServerApplication. По запросу он должен отдавать данные в виде json.
Данные отдает, но русские слова в браузере отображаются в виде "\u0433.\u041c\u043e\u0441\u043a\u0432\u0430", а мне нужно чтобы "г.Москва"
Для создания json использую XSuperObject.
Пример кода :
procedure TWebModule1.WebModule1StatAction(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
jsonA: ISuperArray;
json: ISuperObject;
begin
jsonA := TSuperArray.Create();
jsonA := SA;
json:= SO();
json.S['Id']:= "1";
json.B['Enable'] := True;
json.V['Name'] := "Имя";
json.V['Address'] := "г.Москва";
jsonA.Add(json);
Response.StatusCode:= 200;
Response.ContentType:='application/json; charset=utf-8';
Response.ContentEncoding:= 'UTF-8';
Response.Content := jsonA.AsJSON(True,False);
end;
