Indy 10服务器：如何发送JSON响应？

Question

我正在寻找一个简单的代码示例，使用Data.DBXJSON的{​​{1}}来构建响应并将其返回TJSONObject。

谷歌今天似乎不是我的朋友： - （

Answer 1

答案在Embarcadero的文档中。有an example显示如何创建和解析JSON字符串。 TJSONObject有一个ToString()方法，例如：

var
  JSON: TJSONObject;
begin
  ...
  JSON := TJSONObject.Create;
  try
    // populate JSON as needed...
    AResponseInfo.ContentText := JSON.ToString;
  finally
    JSON.Free;
  end;
  ...
end;