引用了 <在 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]
