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

zurprog

Пользователи
  • Активность

    2
  • Зарегистрирован

  • Посещение

Информация о zurprog

  • Звание
    Новичок
  1. zurprog

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

    Вопрос закрыт!
  2. 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;
×
×
  • Создать...