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":""}]}