本文整理自网络,侵删。
datasnap 的HTTP 调用返回JSONdatasnap 相关设置,就不细说了,直接上函数
uses System.JSONfunction TServerMethods.Updatehello: Tjsonobject;vartemp:tjsonobject;begintemp:=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
返回结果
1{"result":[{"code":"00000","error":""}]}
相关阅读 >>
Delphi mailurlmaybeinvalid 检测邮箱地址有效性
更多相关阅读请进入《Delphi》频道 >>