zurprog

Вопрос закрыт!

Доброго дня. Подскажите пожалуйста уважаемые знатоки.

Создал 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;