delphi中Web Service自定义类型返回
最近再看李维的<Web Service设计>这本书,我发现服务端自定义的数据类型,无法让客户端调用.
书上说: 一个自定义类型,如果继承自TRemotable类,调用RegisterXSClass和RegisterXSInfo来注册后,这个自定义类就可以由XSBuiltIns类转换成SOAP类型的类,然后把它转换成字符串在网络上传输.完成客户端调用Web Service的功能.
unit uMyInfo;
interface
uses InvokeRegistry, XSBuiltIns;
type
TMyInfo=class(TRemotable)
private
FID:integer;
FName:String;
FSex:String;
published
property ID:integer read FID write Fid;
property Name:String Read FName write FName;
property Sex:String Read FSex write FSex;
end;
TMyInfos= Array of TMyInfo;
implementation
initialization
RemClassRegistry.RegisterXSClass(TMyInfo,'http://www.w3.org/2001/XMLSchema','TMyInfo','',False);
RemClassRegistry.RegisterXSInfo(TypeInfo(TMyInfos),'http://www.w3.org/2001/XMLSchema','TMyInfos');
finalization
RemClassRegistry.UnRegisterXSClass(TMyInfo);
RemClassRegistry.UnRegisterXSInfo(TypeInfo(TMyInfos));
end.
以上是我写的一个类,以上的这个类要怎样才能让客户端应用?
[解决办法]
在服务端返回这个类型，客户端写的时候也ＵＳＥＳ这个类的单元
