delphi datasnap 的HTTP 调用返回JSON

datasnap 的HTTP 调用返回JSON

datasnap 相关设置，就不细说了，直接上函数

uses System.JSON

function TServerMethods.Updatehello: Tjsonobject;

var

temp:tjsonobject;

begin

temp:=tjsonobject.Create;

temp.AddPair(Tjsonstring.Create('code'),tjsonstring.Create('00000')) ;

temp.AddPair(Tjsonstring.Create('error'),tjsonstring.Create('')) ;

result:=temp;

end;

调用时，输入地址：

http://127.0.0.1:9001/datasnap/rest/TServerMethods/Updatehello

返回结果

{"result":[{"code":"00000","error":""}]}

推荐分享