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]

DataSnap Server 返回对像数组

相关推荐