o := TJSONObject.Create;
o.AddPair('resp', TJSONString.Create(s));
Response.ContentType := 'application/json';
Response.Content := o.ToString;
Смотрю в дебаге - все ок, в респонсе русский текст.
Клиент:
procedure TForm2.RESTRequestAfterExecute(Sender: TCustomRESTRequest);
begin
if Assigned(Sender.Response.JSONValue) then
begin
mmoLog.Lines.Add('Content '+Sender.Response.Content);
end;
выдает Content {"resp":"????"}
Неа, не работает... Пойду дальше гуглить
Через постман проверь
Не так давно лазила, вроде в респонсе свойство видела кодировка.
Обсуждают сегодня