• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

Delphi使用Datasnap的几种三层应用技术总结

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

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
                         Result := TMemoryStream.Create;
                         try
                            qCustomers.Close;    //主数据集
                            qCustomers.Open;
                            qOrders.Close;         //从数据集
                            qOrders.Open;
                            FDSchemaAdapter.SaveToStream(Result, TFDStorageFormat.sfBinary);
                            Result.Position := 0;
                         finally

                            //
                       end;
                   end;

                  以及 接收方法:

                  function TServerMethods.StreamPost(AStream: TStream): string;
                   var
                       LMemStream: TMemoryStream;
                       LErrors: Integer;
                   begin
                         Result := '';
                        // 获取 数据流 从客户端    Retreive entire stream from client
                        LMemStream := CopyStream(AStream);          //复制 数据流
                        LMemStream.Position := 0;
                      try
                          FDSchemaAdapter.LoadFromStream(LMemStream, TFDStorageFormat.sfBinary);
                          LErrors := FDSchemaAdapter.ApplyUpdates
                       finally
                          LMemStream.Free;
                          if LErrors > 0 then
                             Result := Format(sErrorsOnApplyUpdates , [GenerateErrorMessage]);
                       end;
                    end;

 

       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

          

 


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
Delphi第三方控件安装卸载指南发布时间:2022-07-22
下一篇:
MATLAB绘制函数图 - chloe_zhou发布时间:2022-07-18
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap