创建 Delphi DataSnap 程序的问题集萃(2)

关注

VIP免费原创最新推荐文章于 2026-08-29 15:06:06 发布 1.7k 阅读 AI 写同款· GEO 优化 ›

创建 Delphi DataSnap 程序的问题集萃(4) （本文所讨论的开发环境，为 Delphi XE5）最近有点小忙，博客只能忙里偷闲地写了。本篇介绍如何在客户端和服务器端之间传递数据。我本人很不喜欢在页面上频繁地使用数据感知控件，并使用 DataSet 来作为参数传来传去——因为 DataSet 并不是一个强类型类，而且它与数据库的耦合性太紧了。相比较于 DataSet（如 TClientDataSe 阅读详情

（本文所讨论的开发环境，为 Delphi XE5）

    我们来看一看 DataSnap 服务器端各单元的创建顺序。

    以一个标准的 VCL 服务器端为例，创建方法如下：

    1.打开 XE5 的菜单 File - New - Other，选择 Datasnap Server - Datasnap Server，“下一步”中分别选择 “VCL Forms Application” - “默认” - “默认” - “TDSServerModule”，建好后，项目中一共 3 个单元，如下图：

    其中，ServerMethodsUnit1 提供了服务的实现方法。它由 ServerContainerUnit1 容器中的 DSServerClass1 代理，默认的生命周期是：Session。

    该服务器端运行时，首先创建了 Unit2 对应的 Form2，接着创建了 ServerContainerUnit1 容器。记住， ServerContainerUnit1 容器是在服务器端一开始运行时就创建，直到服务器端关闭、停止服务时才结束。

    ServerContainerUnit1 容器如下图所示，含 DSServer1、 DSServerClass1、DSTCPServerTransport1 三个控件：