最近再看李维的<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.
以上是我写的一个类,以上的这个类要怎样才能让客户端应用?
书上说: 一个自定义类型,如果继承自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.
以上是我写的一个类,以上的这个类要怎样才能让客户端应用?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货