DataSnap Rest 服务器网络分配器返回格式定义

1、如果后台网络分配器格式 Handled=True 时，前台返回的结果为数组[] ,不带result节点
procedure TWebModule1.DSHTTPWebDispatcherFormatResult(Sender: TObject;
  var ResultVal: TJSONValue; const Command: TDBXCommand; var Handled: Boolean);
begin
  Handled := True;
end;


2、如果后台网络分配器格式 Handled=True 时,取返回返回数组的第一个值时，
前台返回的结果是后台API返回的什么就是什么。
procedure TWebModule1.DSHTTPWebDispatcherFormatResult(Sender: TObject;
  var ResultVal: TJSONValue; const Command: TDBXCommand; var Handled: Boolean);
var
  JSONValue: TJSONValue;
  temp: string;
begin
  temp:= Command.Text.Substring(0, 4);
  if temp.ToUpper = '类名.API方法名' then
  begin
    Handled := True;
    JSONValue := ResultVal;
    ResultVal := TJSONArray(JSONValue).Get(0);
    TJSONArray(JSONValue).Remove(0);
    JSONValue.Free; 
  end;

end;

注意：网络分配器格式改动的话，前台如果用html + javascript 来实现的话，相关文件也要改动，比如，DataSnap生成的connection.js、

serverfunctioninvoker.js、serverfunctions.js都要有改动。