Delphi 三层框架 DataSnap 的服务器端设置
elphi 三层框架 DataSnap 的服务器端设置:
DataSnap 框架有三个模块:DataSnap Server,Server Module,DataSnap Client Module。
当创新新的 DataSnap Server时,会产生三个文件,分别是:
1)ServerForm 窗口文件; ----- 可以扩展了此功能,使得 ServerContainer 可以启动、停止服务,并记录会话的产生、关闭。
2)ServerContainer 服务容器;
主要是:DSServer,DSTCPServerTransport,DSHTTPService,DSAuthenticationManager 它们相互引用,对应控件在面板上,但一般只需要一个。
变动重点是:TDSServerClass 类的增加,在控件面板上可以找到相应的控件 ,可以增加多个。
需要增加一个时注意:1)从面板由拉一个控件;2)设置其属性:Server 为已有的:DSServer;3)LifeCycle 属性一般设为:Sesssion,也可以是Server或者Invocation。 4)别忘记设置事件:OnGetClass, 在事件中,引入(Uses)服务模块,并 PersistentClass := utXX.TXX;
3)XXSysModu 服务模块
每增加一个服务 Server Module,需要新创建一个文件,继承 class(TDSServerModule) ,可以从 File/New/Other.../DataSnap Server/Server Module 菜单进行。
增加 数据库连接组件 TFDConnection,TFDQuery,TDatasetProvider 等,向客户端提供服务。TDatasetProvider 的Options 参数,必须选上:poAllowCommandText,即允许客户端向 服务器端直接 传送 SQL 命令。
这样产生的服务类,进行 Uses 引入到 ServerContainer 服务容器,并通过“容器”增加 TDSServerClass 类,通过事件OnGetClass,获得服务!!!
提示,备忘!