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,但结果就是报错!有知道的朋友留言一下!

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;

Datasnap POST 方案

 

Datasnap POST 方案

上一篇:study31


下一篇:分享|华为智慧城市主解决方案(PDF)