Datasnap POST 方案

function TServerMethods.updateTest(Value: string; Obj: TJSONObject): TJsonObject;
var
  DataJson: TJSONObject;
begin
  if Assigned(Obj) then
  begin
//    DataJson := TJsonObject.ParseJSONValue(Obj.ToJSON) as TJsonObject;
//    Result := DataJson;
    Result := Obj;
  end;
end;

以上是POST方法，接收参数：传进去是TJSONObject，返回也是TJSONObject，但结果就是报错！有知道的朋友留言一下！

以下代码正常：

function TServerMethods.updateTest(Value: string; Obj: TJSONObject): TJsonObject;
var
  DataJson: TJSONObject;
begin
  if Assigned(Obj) then
  begin
    DataJson := TJsonObject.ParseJSONValue(Obj.ToJSON) as TJsonObject;
    Result := DataJson;
 //   Result := Obj;
  end;
end;

中年大叔学Delphi