Delphi 使用 Datasnap 进行三层应用开发,积累了几种技术,总结如下:1、(推荐!)在 Datasnap 服务端 使用 TDatasetProvider,客户端 使用 TDSProviderConnection 1)采用 Datasnap Server ,可以使用TCP/IP、Http 通信。TDatasetProvider 能够提供 “元数据与业务数据”。 推荐:采用(FireDac技术) TFDConnection 连接数据库,通过 TFDQuery/TFDTable 向 TDatasetProvider 提供数据集;(!执持数据库新版本) 注意:也可以采用(DBX技术)TSQLConnect、TSQLDataSet/TSQLQuery/TSQLTable/TSQLStoredProc,向 TDatasetProvider 提供数据集;
2)客户端使用(DBExpress技术 DBX) TSQLConnection + TDSProviderConnection ==》TClientDataSet ==》TDataSource TSQLConnection 设置为 DataSnapCONNECTION,驱动 DataSnap; TDSProviderConnection 设置:TSQLConnection 的实例(驱动 DataSnap);ServerClassName 设置 DataSnap服务端 提供服务的 “类名称”; TClientDataSet 设置:RemoteServer 为 TDSProviderConnection 的实例,ProviderName 是服务端 的相应“类”下的 TDatasetProvider 实例。 提示1:(1 FRM)TClientDataSet 可以 绑定 TStringGrid ,或者 (2 VCL)通过增加 TDataSource 连接 TDBGrid 。 提示2:客户端 TClientDataSet 的变更,如何返回服务器端,以及客户端数据集的查询、排序、过滤等, 建议参考《Delphi2006-DbExpress高效数据库开发》这本书;《Delphi 10.1 Berlin DataSnap 开发手册》第一章也有介绍本项技术。
3)好像一个TDatasetProvider,只能提供一个Dataset,如果要建立 主Master/从Detail 数据集,需要采用下列方式: 利用 TFDQuery 建立两数据集,一个是 主Master ,另一个的 Masterdata 属性设置为主数据集。
4)(好,供参考!)服务端 可以只用一个:TFDConnection + TFDQuery + TDatasetProvider 向客户端提供数据, 但 TDatasetProvider 的属性 Options 选择 poAllowCommandText 为 True ,即允许 TFDQuery 不管理其SQL 的值, 直接从客户端 接收 SQL ,并向客户端返回 查询数据集。 客户端 的 TClientDataSet 通过 CommandText 属性设置 SQL 命令,可以带参数,并从Params 获取参数值,将SQL发给服务端,并接收返回数据。 这样,可以一个服务端 TDatasetProvider ,服务多个客户端。当然,会话 Session 采用 一次性的比较合适,或者 获取数据完成,断开 SQLConn连接。 参考《DataSnap ClientdataSet 三层中主从表的操作》搞定主从表的设置!!!
2、在 Datasnap 服务端 使用 TFDQuery,客户端 使用 TSQLConnection 或者 TDSRestConnection ,数据交换用 TStream 参考:http://docwiki.embarcadero.com/CodeExamples/Tokyo/en/DataSnap.FireDAC_DBX_Sample (DataSnap 联合 FireDAC) 1)采用 Datasnap Server ,可以使用TCP/IP、Http 通信。 TFDConnection 连接数据库,通过 TFDQuery (设置 + TFDSchemaAdapter) 提供数据集 , ==》TDataSource (主) 通过 TFDQuery (设置 + TFDSchemaAdapter,设置 MasterSource 、MasterFields 为 “主数据源/ID”) 提供数据集 , ==》TDataSource (从) 公开服务类(Class)的 发送数据集方法 ,以 TStream 类型的方式 ,借助 TFDSchemaAdapter 发送数据,接收更新、并写入数据库。 function TServerMethods.StreamGet: TStream; begin // 以及 接收方法: function TServerMethods.StreamPost(AStream: TStream): string;
2)客户端 可以采用两种 连接方式:1)TSQLConnection (DBX 方式);2)TDSRestConnection (Rest方式) 通过两者(右点)可以 生成 服务端代理类 (Generate Datasnap Client Classes),调用 代理类的方法,获取 服务端数据流。 TFDTableAdapter (+ 同一 TFDSchemaAdapter,设置 DatSTableName 为服务端 的 TFDQuery 名 ) ==》 TMemTable ==》 TDataSource (主 -- 客户) TFDTableAdapter (+ 同一 TFDSchemaAdapter)设置 DatSTableName 为服务端 的 TFDQuery 名) ==》 TMemTable ==》 TDataSource (从 -- 订单) 如何 获取数据 ,参考 示例!(省略。。。) 绑定GRID 。 LMemStream := TServerMethodsClient(ServerConnection).StreamGet 代理类通过连接组件,获取服务端 数据流 TStream; FDSchemaAdapter.LoadFromStream(LMemStream, TFDStorageFormat.sfBinary) 从流中加载 数据集。
3、(考虑!)应用 Rest Datasnap 服务端 ,Http通信, TFDJsonDataSets 与 TFDJsonDelta 格式交换数据 TFDJsonDataSets 功能 参考《Delphi 10.1 Berlin DataSnap 开发手册》
4、(推荐)使用 Rest Client 连接 Restful 服务,不限定于(Delphi 产生的),关注 :TRESTResponseDataSetAdapter 的应用。 《Delphi 10.1 Berlin FireDAC 数据库开发手册》 P109 第 3-1-2 章节 介绍了应用 ,使用 TFDMemTable 处理 Rest 获得的数据。 使用 TRESTResponse数据提供给 TFDMemTable ,包含了 元数据信息。 http://docwiki.embarcadero.com/RADStudio/Tokyo/en/REST_Client_Library
|
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
请发表评论