Delphi SOAP WebService 服务器端多个 SoapDataModule 的做法

以下描述的实验结果，在 Delphi 10.3.3 社区版上测试通过。

前情提要：Delphi 写 WebService 架构的三层程序如何维护 Session

 

简述：

用 Delphi 实现 WebService 服务器端，客户端也使用 Delphi 来开发。

服务器端，可以用 TSoapDataModule 在设计期，可视化地拖放数据库控件，连接数据库，从数据库获取数据，并通过 TDataSetProvider 输出给客户端。在客户端，则可以在服务器运行的情况下，使用 TSoapConnection 去连接我们开发的 WebService 服务器，使用 TClientDataSet 去直接从服务器端的 TDataSetProvider 获取数据，或者提交数据。

在上述架构下，基本上不写程序，设计期拖拉控件，就能建立 WebService 的服务器端和客户端，并且客户端可以获得数据库的数据，编辑后提交到服务器端，最终通过服务器端提交到数据库服务器。

在上述架构下，如果有一些业务逻辑需要控制，可以在服务器端的 TSoapDataModule 里面的 TDataSetProvider 的事件里面，自己写代码，控制客户端可以获得的数据和可以提交的数据。

问题：

如果程序复杂了，代码非常多，全部写在服务器端的一个 TSoapDataModule 里面，代码的组织和管理就成了问题。这时候需要模块化，比如，用多个 TSoapDataModule 来模块化服务器端的业务逻辑代码。

问题是，当服务器端有多个 TSoapDataModule 的时候，客户端采用什么方式，可以定位要访问的 SoapDataModule ？

 

解决方法：

以下是我写的测试程序的描述：

首先，服务器端有一个 SoapDataModule，定义如下：

  ItestSoap = interface(IAppServerSOAP)
    ['{A992AB93-6455-4B0E-A35F-5C7FFBFD4EA3}']
    procedure SaveDataSet(ADeltas: Variant); stdcall;
  end;

  TtestSoap = class(TSoapDataModule, ItestSoap, IAppServerSOAP, IAppServer)

这个是服务器里面的第一个。在只有一个的情况下，客户端的 SoapConnection1 在设计期默认的 SoapServerIID 为：
IAppServerSOAP - {C99F4735-D6D2-495C-8CA2-E53E5A439E61}

URL 为：SoapConnection1.URL := 'http://localhost:8080/soap';

到这里，一切正常，设计期客户端拖过来的 TClientDataSet 是可以看到服务器端的 DataSetProvider 的，设置好以后，设计期就可以在客户端打开 ClientDataSet。这也是 Delphi 开发 Soap WebService 的基本方式。

接下来，我们在服务器端再增加一个 SoapDataModule:

  IsoapDataModule2 = interface(IAppServerSOAP)
    ['{52B5735F-378C-427E-8590-19C4704FAC94}']
    function Hello: string; stdcall;
  end;