datasnap——动态注册服务类 datasnap——动态注册服务类 在DataSnap的应用程序时,我们首先需要注册的服务器类,以提供访问客户端应用程序的服务器方法。通常的做法是使用DSSer
来源:互联网 发布:企业网络初步设计方案 编辑:程序博客网 时间:2024/05/29 19:14
datasnap——动态注册服务类
datasnap——动态注册服务类
在DataSnap的应用程序时,我们首先需要注册的服务器类,以提供访问客户端应用程序的服务器方法。通常的做法是使用DSServerClass组件,但有些时候,我们要做到在运行时加载。下面代码实现的类TSimpleServerClass从TDSServerClass继承,超载了Create方法并且增加了ServerClass,DataSnap Server和LifeCycle三个参数。
type
TSimpleServerClass = class(TDSServerClass)
private
FPersistentClass: TPersistentClass;
protected
function GetDSClass: TDSClass; override;
public
constructor Create(AOwner: TComponent; AServer: TDSCustomServer;
AClass: TPersistentClass; ALifeCycle: String); reintroduce; overload;
end;
procedure RegisterServerClasses(AOwner: TComponent; AServer: TDSServer);
implementation
constructor TSimpleServerClass.Create(AOwner: TComponent; AServer: TDSCustomServer;
AClass: TPersistentClass; ALifeCycle: String);
begin
inherited Create(AOwner);
FPersistentClass := AClass;
Self.Server := AServer;
Self.LifeCycle := ALifeCycle;
end;
function TSimpleServerClass.GetDSClass: TDSClass;
begin
Result := TDSClass.Create(FPersistentClass, False);
end;
现在我们只需要为每个Server Class初始化TSimpleServerClass。下面的代码在同一服务器上注册3个不同生命周期的类。
procedure RegisterServerClasses(AOwner: TComponent; AServer: TDSServer);
begin
Assert(AServer.Started = false, 'Can''t add class to non active Server');
TSimpleServerClass.Create(AOwner, AServer, TGlobal, TDSLifeCycle.Server);
TSimpleServerClass.Create(AOwner, AServer, TCustomer, TDSLifeCycle.Session);
TSimpleServerClass.Create(AOwner, AServer, TObjectPool, TDSLifeCycle.Invocation);
end;
- datasnap——动态注册服务类 datasnap——动态注册服务类 在DataSnap的应用程序时,我们首先需要注册的服务器类,以提供访问客户端应用程序的服务器方法。通常的做法是使用DSSer
- 在Datasnap服务端动态注册类
- Delphi在运行时注册Datasnap服务类
- 在运行注册DataSnap服务器类时发布provider
- Delphi2010中DataSnap高级技术(3)—DataSnap服务器如何得到客户端的IP和端口
- Delphi2010中DataSnap高级技术(3)—DataSnap服务器如何得到客户端的IP和端口
- Delphi2010中DataSnap高级技术(3)—DataSnap服务器如何得到客户端的IP和端口
- 利用DataSnap的回调功能在客户端显示服务器方法的执行进度
- DataSnap服务器如何得到客户端的IP和端口
- DataSnap服务器如何得到客户端的IP和端口
- Delphi2010中DataSnap高级技术(6)—加强服务程序对访问者的控制能力
- Delphi2010中DataSnap高级技术(6)—加强服务程序对访问者的控制能力
- Delphi2010中DataSnap高级技术(6)—加强服务程序对访问者的控制能力
- DB2 UDB 和 SOAP: 使用 DataSnap 的数据库 Web 服务
- DataSnap服务器方法返回TClientDataSet的简易实现
- [转]DataSnap服务器方法返回TClientDataSet的简易实现
- Delphi2010中DataSnap高级技术(5)—建立稳定服务程序之TCP心跳包的使用
- Delphi2010中DataSnap高级技术(5)—建立稳定服务程序之TCP心跳包的使用
- 李洋疯狂C语言之初
- java向上转型和向下转型
- 8.14 证明如下问题是NP完全的
- python 安装mysqldb
- 推荐系统构架图
- datasnap——动态注册服务类 datasnap——动态注册服务类 在DataSnap的应用程序时,我们首先需要注册的服务器类,以提供访问客户端应用程序的服务器方法。通常的做法是使用DSSer
- Nginx配置教程
- 实训笔记第十二天
- 服务器架构的演变
- 厦门工程技术人员职称评审 总体梳理
- weakreference实现原理分析
- 观察者模式(Observer Pattern)——让你的对象知悉现状
- JSP EL表达式 学习 应用
- 思维导图---区块链技术和区块链应用