DataSnap Server 返回对像数组

引用了 <在 DataSnap Server 中使用多态>http://datasnap.5d6d.com/thread-156-1-1.html 的一些内容, 为方便贴过来
  
因为这篇用到了多态,不明白的看官还是有必要看看以上内容
  
{ 前期准备一下: 对像单元, 定义了一个玩具基类 TToy 和它的派生类 TKitte
  把定义对像独立到一个新单元是必要的,因为客户端也需要引用这个单元 }
[code]unit ToyObject;
interface

uses
  Classes;

type
  { TToy }

  TToy = class(TPersistent)
  private
    FName: string;
  published
    property Name: string read FName write FName;
  end;

  { TKitte }

  TGender = (gdMale, gdFemale);
  TKitte = class(TToy)
  private
    FGender: TGender;
  published
    property Gender: TGender read FGender write FGender;
  end;
implementation

  procedure RegisterClass(AClass: TClass);
  begin
    { 无代码 }
  end;

initialization
  RegisterClass(TToy);
  RegisterClass(TKitte);
end.[/code]

回想到 WebService 中, 直接定义一个TToys = array of Toy 就可以用于返回
  
可惜这点在 DataSnap Server中并不相同, DataSnap Server 可用于返回的对像必需是 TObject 派生类,这样一来,可以用作返回的对像就实再太多了,所有的VCL类都是TObject派生类...遗憾的是,没有任何文档说明哪些是可以用作返回 值,,,更重要的是 array of type 不是TObject派生类 ,它....属于Delphi魔法的一部分,是一个类,是什么没有文档说明过

再怀念下 WebService的 TRemotable,只有从TRemoteable派生的类才能用于函数返回值,,,well,至少这点不让人产生疑虑

没办法,总之 array of type 是不能用的,回来说DataSnap Server.
发 现TJSONArray,TJSONValue,TJSONObject都有能力作为返回数组用,特殊的类型要写一个TJSONMarsharal & TJSONUnMarshal,不过...我们任意的写一个类也能返回,并没做 marshal & unmarshal,跟踪发现DBX在里面做了很大的文章有一个JSONParser存在...怎回事好像几句也说不清,结论嘛可以归纳下

1. 返回类型必需是 TObject 派生类, 这个是DBX的一个约定. 建议至少应为 TPersistent派生,这样RTTI信息比较建全

2.只要有RTTI信息的成员都可以被用于返回, 之前(明确的是Delphi7)只有published区的才有 RTTI, 2010中加入了新的一些控制,让private区也存在了RTTI信息,不过原理上我仍不是很明白


3.类成员中存在其它类的,有RTTI信息的就可以写入JSONValue, 举例为 [code]  Tfoo = class(TPersistent)
  private
    fn2: string;
    fn1: string;
  published
    property n1: string read fn1 write fn1;
    property n2: string read fn2 write fn2;
  end;

  TToy = class(TPersistent)
  private
    FName: string;
    fprop: Tfoo;
  public
    constructor Create; // 要建立 fprop := TFoo.Create;

  published
    property Name: string read FName write FName;
    property prop: Tfoo read fprop write fprop;
  end;
[/code]4.类成员中存在数组类型的,同上有RTTI信息就能用, 举例 [code]  TFoo = array of string; // 数组类型, 这样仍然是正确的
  TToy = class(TPersistent)
  private
    FName: string;
    fprop: Tfoo;
  published
    property Name: string read FName write FName;
    property prop: Tfoo read fprop write fprop;
  end;
[/code]... 仍有很多

5. 什么成员不存在RTTI信息成为关键,这个很难归纳,基本上认为 所有 指 针类型都没有RTTI信息,这时就得写 marshal & unmarshal, 尽管这样,可以用于返回值的类型已经足够大了,不过...至少...就有一个范围了,TControl所有派生类应该是不都能用于返回,这些类估计也不会 有太多人去用它返回...不过...这世道也难说. 有什么作用以后看吧
  
继续玩具返回对像数组. 上面归纳了一下,
  array of type 不是 TObject, 不能使用
  TList 用的是收集指针,也不能使用
  TObjectList 仍然是 TList 派生类, 也是不能使用
... ... ... ...
  TList<T> ( unit Generics.Collections) 哧哧..这个收集的内容是有明确类型信息的
  
向导生成一个 ServerMethod
[code]
unit Unit1;

interface

uses
  SysUtils, Classes, DSServer, Generics.Collections, {引用}ToyObject;

type

  {$METHODINFO ON}
  TServerMethods1 = class(TComponent)
  private
    { Private declarations }
  public
    { Public declarations }
    function EchoString(Value: string): string;
    function ReverseString(Value: string): string;
    function GetToy: TToy;
    { 这里是加入的新函数 }
    function GetToys: TList<TToy>;
  end;
  {$METHODINFO OFF}

implementation

uses StrUtils;

function TServerMethods1.EchoString(Value: string): string;
begin
  Result := Value;
end;



function TServerMethods1.GetToy: TToy;
begin
  // 生成 proxies bug, 不用下类名不会自动在 proxies 中加入 ToyObject
end;

function TServerMethods1.GetToys: TList<TToy>;
var
  Toy: TToy;
begin
  Result := TList<TToy>.Create;

  Toy := TKitte.Create;
  TKitte(Toy).Name := 'angry kitte';
  TKitte(Toy).Gender := gdFemale;
  Result.Add(Toy);

  Toy := TKitte.Create;
  TKitte(Toy).Name := 'smile kitte';
  TKitte(Toy).Gender := gdFemale;
  Result.Add(Toy);

  Toy := TKitte.Create;
  TKitte(Toy).Name := 'sleepy kitte';
  TKitte(Toy).Gender := gdFemale;
  Result.Add(Toy);
end;

function TServerMethods1.ReverseString(Value: string): string;
begin
  Result := StrUtils.ReverseString(Value);
end;

end.
[/code]