Delphi DataSnap 框架向 JSON 消息添加内容

我正在使用 Delphi XE DataSnap REST 服务器并尝试返回 JSON 序列化对象。我的方法返回给客户端的结果如下所示：

{"type":"ServerMethodsUnit1.TJSONIssue",
 "id":1,
 "fields":{
           "FIssueNo":90210,
           "FTitle":"Beverly Hills...that''s where I want to be",
           "FKind":"Wishlist"
          }
}

格式良好的 JSON。

问题是，当客户端收到消息时，会添加一堆内容，如下所示：

{"result": ["{\"type\":\"ServerMethodsUnit1.TJSONIssue\",
              \"id\":1,
              \"fields\":{
                          \"FIssueNo\":90210,
                          \"FTitle\":\"Beverly Hills...that's where I want to be\",
                          \"FKind\":\"Wishlist\"}
             }
            "
           ]
}

我收到一堆反斜杠字符"result"前面有标签。

我想知道是否有人知道为什么我会得到这些额外的东西以及如何摆脱它。

为了摆脱"result"你应该使用的标签OnFormatResult的事件TDSHTTPWebDispatcher。尤其是价值Handled。的价值Handled is false默认情况下。如果设置为true，那么传递给用户的结果将不会被包装在"result"JSON 对象。如果为 false，则它将被包装在该对象中。

例子。我有这样的代码：

function TServerMethods1.EchoStringJSON(Value: string): TJSONObject;
var
  JSONObj : TJSONObject;
begin
  JSONObj := TJSONObject.Create;
  JSONObj.AddPair(TJSONPair.Create('name',Value));
  result := JSONObj;
end;

REST 服务响应如下所示：{"result":[{"name":"asdfasdf"}]}

I add Handled := true;:

procedure TWebModule1.DSHTTPWebDispatcher1FormatResult(Sender: TObject;
  var ResultVal: TJSONValue; const Command: TDBXCommand; var Handled: Boolean);
begin
  Handled := true;
end;

REST 服务响应如下所示：[{"name":"asdfasdf"}].

还有"[]"。所以我添加一些额外的代码：

procedure TWebModule1.DSHTTPWebDispatcher1FormatResult(Sender: TObject;
  var ResultVal: TJSONValue; const Command: TDBXCommand; var Handled: Boolean);
var
  Aux: TJSONValue;
begin
  //remove [] element
  Aux := ResultVal;
  ResultVal := TJSONArray(Aux).Items[0];
  TJSONArray(Aux).Remove(0);
  Aux.Free;
  //we do not need "result" tag
  Handled := true;
end;

现在结果看起来像：{"name":"asdfasdf"}

附言。答案在这里找到：REST 响应的 FormatResult 事件部分 http://mathewdelong.wordpress.com/2011/09/15/delphilive-2011-recap/.