Delphi SOAP WebService 服务器端多个 SoapDataModule 实现相同的接口方法，接口继承

原创

于 2022-07-02 16:27:20 发布 · 601 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#前端 #大数据

本文介绍了一种WebService服务器端模块化管理方法，通过自定义接口继承简化客户端调用代码。利用Delphi的WebService框架，实现了不同业务逻辑的TSoapDataModule模块间的接口复用。

场景

WebService 服务器端，为了方便代码管理，将不同的业务逻辑，分到不同的 TSoapDataModule 里面去。这样好对代码做模块化管理。

多个 TSoapDataModule 可能需要实现相同的接口方法，每个 TSoapDataModule 模块对该方法的实现代码可能不同（因为业务不同）；最简单可能性是每个模块要检查的客户端访问权限不同。

那么，在客户端，因为是调用服务器端的不同接口的相同方法，如果给每个接口写一次方法调用，代码冗余。

解决办法

服务器端：服务器端的接口，默认（IDE 自动生成的代码）从 IAppServerSOAP 继承。

如果我要多个接口里面都有一个相同的方法（或函数），可以自己定义一个接口，从 IAppServerSOAP 继承。

务器端的所有接口，从一个父类接口继承。上述相同的接口方法，声明到这个父类接口里面。

如此一来，客户端只需要一个调用父类接口的方法，根据子类接口不同，实际调用到的服务器端的实现模块就不同。搞定！

以下代码测试通过。

代码 - 服务器端接口声明

IParientIntf = interface(IAppServerSOAP)
    ['{04E35D2B-4A63-45DE-98C0-AED830BB06B7}']
    function Hello(const S: string): string; stdcall;
  end;

  //ISoapDM_A = interface(IAppServerSOAP)
  ISoapDM_A = interface(IParientIntf)
    ['{4499D900-1856-4178-8D6E-617856DBE2BD}']
  end;

  //ISoapDM_B = interface(IAppServerSOAP)
  ISoapDM_B = interface(IParientIntf)
    ['{9618B6D7-0826-47D7-AAF