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

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 数据集,需要采用下列方式:

2、在 Datasnap 服务端 使用 TFDQuery,客户端 使用   TDSProviderConnection

参考: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)客户端

原文地址:https://www.cnblogs.com/hopesun/p/8711226.html

时间: 2024-09-29 23:18:04

Delphi 使用 Datasnap 的几种三层应用技术总结的相关文章

Delphi体系内部的4种消息传递办法(Send,Post,Perform,Dispatch)

一.什么是消息? 消息是windows对应用程序发送的有关‘发生了某种事件’的通知.例如点击鼠标,调整窗口大小或键盘上按下一个键,都会引起windows发送一条消息到应用程序中去,去通知应用程序发生了什么. Windows以record的形式发送消息给应用程序.记录中包括事件的类型以及附加的特定信息.Windows发送给应用程序的记录类型是TMsg,定义在windows.pas单元中,定义如下 [delphi] view plain copy { Message structure } PMsg

Delphi中定义了四种布尔类型:Boolean,ByteBool,WordBool和LongBool。后面三种布尔类型是为了与其他语言兼容而引入的

bool是LongBool类型. Delphi中定义了四种布尔类型:Boolean,ByteBool,WordBool和LongBool.后面三种布尔类型是为了与其他语言兼容而引入的,一般情况下建议使用Boolean类型. 这四种类型的布尔值占用内存的数量如下: Boolean 1 Byte ByteBool 1 Byte WordBool 2 Bytes(1 Word) LongBool 4 Bytes(2 Words) 对于ByteBool,WordBool和LongBool三种类型True

[转]Delphi调用cmd的两种方法

delphi调用cmd的两种方法vars:string;begins:='cmd.exe /c '+edit1.Text+' >c:\1.txt';winexec(pchar(s),sw_hide);sleep(2000);memo1.Lines.LoadFromFile('c:\1.txt'); 2shellexecute(handle,nil,'cmd.exe',pchar(form2.edit1.text),nil,sw_hide);WinExec主要运行EXE文件.如:WinExec(’

用Delphi实现文件下载的几种方法

笔者最近开发的系统中需要写一个下载文件的功能.以前用BCB调用API写的很烦琐,忽然想起有一个API就可以搞定了,于是一大早就来搜索.这个API就是UrlDownloadToFile.不仅如此,Delphi的一些控件也可以轻松实现下载,如NMHTTP,指定NMHTTP1.InputFileMode := ture; 指定Body为本地文件名,指定Get就可以下载了.下面是详细代码,均出自CSDN.我把它们都整理到这儿,让大家方便查阅. uses UrlMon; function Download

Delphi 中的DLL 封装和调用对象技术(刘艺,有截图)

Delphi 中的DLL 封装和调用对象技术本文刊登2003 年10 月份出版的Dr.Dobb's 软件研发第3 期刘 艺摘 要DLL 是一种应用最为广泛的动态链接技术但是由于在DLL 中封装和调用对象受到对象动态绑定机制的限制使得DLL 在封装对象方面有一定的技术难度导致有些Delphi 程序员误以为DLL 只支持封装函数不支持封装对象本文着重介绍了DLL 中封装和调用对象的原理和思路并结合实例给出了多种不同的实现方法关键字动态链接库DLL 对象接口虚方法动态绑定类引用面向对象1 物理封装与动

Delphi 和 C++Builder 2014年及以后技术路线图

From http://www.itnose.net/detail/6006569.html Delphi 和 C++Builder 2014年及以后技术路线图 2014-03-08 18:47 RAD Studio, Delphi 和 C++Builder 2014年及以后技术路线图 By: Embarcadero News 内容源自Embarcadero新闻组,本人水平有限,欢迎各位高人修正相关错误! 也欢迎各位加入到Delphi学习资料汉化中来,有兴趣者可QQ:[email protect

四种会话跟踪技术,JSP的四种范围

这两个问题在网上搜答案是一样的,但是我的宝典里标明这是两个问题,有不同的答案,所以在这里注释一下. 四种会话跟踪技术 cookie,url重写,session,隐藏域 Cookie:服务器在一个应答首部传递给浏览器的名称/值对.浏览器保存的时间由cookie的过期时间属性来指定.当浏览器向某个服务器发送一个请求时,它会检查其保存的cookie,并在请求首部中包含从同一台服务器上接收到的所有cookie. 首次都是通过URL传递的,即在URL后跟一个ID标识.然后会判断客户端是否接受cookie,

[阿里Hao]Android无线开发的几种经常使用技术

本文由阿里巴巴移动安全client.YunOS资深project师Hao(嵌入式企鹅圈原创团队成员)撰写,是Hao在嵌入式企鹅圈发表的第一篇原创文章.对Android无线开发的几种经常使用技术进行综述. 嵌入式企鹅圈现拥有七个专栏(Linux内核驱动情景分析.资源紧缺型SOC嵌入式架构设计.嵌入式交叉工具链及其应用.嵌入式设计和编程.微信硬件平台和物联网解决方式.Android开发.开发资源共享). 很多其它Android.Linux.嵌入式和物联网原创技术分享敬请关注微信公众号:嵌入式企鹅圈.

一日一练-JS 了解几种跨域技术

子曰:了解几种跨域机制 简单介绍 首先简单了解一下同源策略相关知识点: 1.同源策略 限制了从一个源加载的文档或脚本如何与来自另一个源的资源进行交互.这是一个用于隔离潜在恶意文件的重要机制. 2.源的定义:如果两个页面的协议.端口和域名都相同,则两个页面具有相同的 源 3.同源策略规定,是XHR 实现Ajax 通信的一个主要限制.默认情况下,XHR 对象只能访问与包含它的页面位于同一个域中的资源.这种安全策略可以预防某些恶意行为.但是,实现合理的跨域请求对开发某些浏览器应用程序也是至关重要的.