delphi json 返回值有result

最新推荐文章于 2023-04-20 20:18:18 发布

原创最新推荐文章于 2023-04-20 20:18:18 发布 · 357 阅读

0 ·

CC 4.0 BY-SA版权

本文介绍了一个针对DSHTTPService1的FormatResult方法的实现细节。该方法用于处理TServerMethods1.getList命令的响应结果，通过移除JSON数组中的第一个元素并重新设置结果值，实现了对特定命令响应的定制化处理。

rocedure TServerContainer1.DSHTTPService1FormatResult(Sender: TObject;
var ResultVal: TJSONValue; const Command: TDBXCommand; var Handled: Boolean);
var
JSONValue: TJSONValue;
temp: string;
begin
// 获得类名.方法名

temp := Command.Text;
//去掉返回值中的result
if temp.ToUpper = UpperCase('TServerMethods1.getList') then
begin
Handled := True;
JSONValue := ResultVal;
ResultVal := TJSONArray(JSONValue).Get(0);
TJSONArray(JSONValue).Remove(0);
JSONValue.Free;
end;