Перейти к содержанию
  • 0
zurprog

JSON русские буквы

Вопросы

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

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

 

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

Рекомендуемые сообщения

Присоединяйтесь к обсуждению

Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.

Гость
Ответить на вопрос...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.


  • Последние посетители   0 пользователей онлайн

    Ни одного зарегистрированного пользователя не просматривает данную страницу

×
×
  • Создать...