delphi - 如何获取 TDSProviderConnection.SQLConnection 的远程 SQLConnection？

Question

使用 DataSnap 2009，我似乎可以在客户端数据模块中使用远程数据库连接，使用 TDSProviderConection 和关联的 TSQLConnection。客户端很容易设置，我在表单上放置一个 TSQLConnection 并将其链接到 TDSProviderConnection 组件。

但是服务器端的远程数据模块中向客户端提供“真实”SQLConnection 的步骤是什么？我有一个继承自 TDSServerModule 的服务器模块、一个 TDSTCPServerTransport、一个 TDSServer 和一个 TDSServerClass 组件。如何将它们链接到服务器端 TSQLConnection？

Answer 1

事实上，从 DataSnap 2009 客户端访问服务器端数据库连接的最简单方法是仅使用 TSQLConnection 组件。将其“Driver”属性设置为“DataSnap”，并在“ServerConnection”子属性中指定返回“TDBXConnection”引用的服务器方法。您可以手动将这样的服务器方法添加到远程数据模块。使用内置的“DSAdmin.GetConnection”服务器方法更容易，只需指定 DBExpress 连接的名称，因为它出现在服务器端的数据资源管理器中或在 DBXConnection.ini 文件中指定。问题是在连接名称周围使用双引号。例如，如果您在数据资源管理器中有一个名为“IBEMPLOYEE”的 InterBase 连接，只需在“ServerConnection”中输入以下字符串:

DSAdmin.GetConnection("IBEMPLOYEE")

并将“已连接”属性设置为“true”。

在这种情况下，您不需要在 DataSnap 服务器上进行任何特殊操作。事实上，您甚至不需要服务器模块，因为您使用的是内置模块。

嗨

帕维尔