使用 Delphi 实现透明远程处理的最简单解决方案是什么？

Question

我有一个两层的 Delphi for Win32 应用程序，其中有很多业务逻辑在一个上帝对象中实现，我想外包到一个单独的服务中。这个单独的服务应该由多个客户端通过 TCP/IP telnet 风格的协议访问。

我如何才能使过渡变得最简单？

准确地说，我想保持这种简单性：我想每个函数只定义一次。例如，如果我想向我的应用程序添加 pin 码登录功能，我只需要

 function Login(Username: string; PinCode: integer): boolean;

在服务器上的某个对象中定义该函数，然后我就可以从客户端使用它，而无需任何额外的工作。

在最坏的情况下，我必须实现三个功能而不是一个。首先，服务器上的函数体本身，其次，解组器从网络接收文本行，将其解包并检查有效性：

 procedure HandleCommand(Cmd: string; Params: array of string);
 begin
   ...
   if SameText(Cmd, 'Login') then begin
     CheckParamCount(Params, 2);
     ServerObject.Login(
       Params[0],
       StrToInt(Params[1])
     );
   end;
 end;

第三，编组器，当客户端调用时，打包参数并将它们发送到服务器：

function TServerConnection.Login(Username: string; PinCode: integer): boolean;
begin
  Result := StrToBool(ServerCall('Login '+Escape(Username)+' '+IntToStr(PinCode)));
end;

显然，我不想要这个。

到目前为止，我已经成功摆脱了解组器。我使用 Delphi RTTI 编写了一个通用解组器，它按名称查找已发布的方法，检查参数并调用它。

所以现在我可以向服务器对象添加一个已发布的方法，并且我可以从 telnet 调用它：

 function Login(Username: string; PinCode: integer): boolean;

 > login john_locke
 Missing parameter 2 (PinCode: integer)!

但是我该如何编写编组器呢？我无法动态获取服务器函数列表并将函数添加到客户端对象。我可能可以保留某种动态伪函数集合，但这会使我的客户端调用变得丑陋：

ServerConnection.Call('Login', [Username, Password]);

另外，这会破坏类型安全，因为每个参数都作为变体传递。如果可能的话，我想保持编译时类型安全。

也许客户端代码自动生成？我可能可以在我的服务器中编写“GetFunctionList()”和“GetFunctionPrototype(Name: string)”：

> GetFunctionList
Login
Logout
IsLoggedIn

> GetFunctionPrototype Login
function Login(Username: string; PinCode: integer): boolean;

这样每次我需要更新客户端时，我只需从服务器重新查询所有函数原型并自动生成编组器代码对于他们来说。但这会将编译与执行混合在一起：我必须首先编译服务器，然后启动它并查询其功能，然后构建客户端编组器并仅在之后重新编译客户端。复杂的！

另一种选择是编写一个通用的编组器函数，然后从所有客户端原型函数中调用它：

procedure TServerConnection.GenericMarshaller(); assembler;
asm
  //finds the RTTI for the caller function, unwinds stack, pops out caller params,
  //packs them according to RTTI and sends to the server.
  //receives the result, pushes it to stack according to RTTI, quits
  //oh god
end;

function TServerConnection.Login(Username: string; PinCode: integer): boolean; assembler;
asm
  call GenericMarshaller
end;

这可以节省我每次手动打包的时间（减少出错的机会），但仍然需要我手动将服务器函数原型复制到客户端对象中。另外，编写这个通用编组器可能会是一个活生生的地狱。

然后可以选择使用 RPC，但我不喜欢它，因为我需要重新定义 IDL 中的所有函数。 Delphi 的 IDL 编辑器很糟糕。对于 OLE 接口，Delphi 强制生成“安全调用”函数，这也很糟糕。除了检查对 RPC 类的每一个函数调用之外，没有其他方法可以实现自动检测断开和自动恢复连接功能：

function TServerWrapper.Login(Username: string; PinCode: integer): boolean;
begin
  try
    RealObject.Login(Username, Pincode);
  except
    on E: EOleException do
      if IndicatesDisconnect(E) then
        Disconnect;
      Reconnect;
      RealObject.Login(Username, Pincode);
  end;
end;

我们回到了多个函数而不是一个。

那么，你们有什么建议呢？我还缺少哪些其他选择？ Delphi 中是否有远程处理的常见模式或现成的解决方案？

Answer 1

就我个人而言，我认为您不应该基于透明远程处理来构建分布式系统。对于健壮且高性能的客户端-服务器交互来说，过程级 RPC 的粒度级别是错误的。让它变得可以容忍将迫使您编写定义不明确的程序，这些程序会执行大量操作并获取大量参数，只是为了避免繁琐的（=>大量小调用）API 的网络往返对性能和可靠性的影响。

更多地从消息的角度思考。考虑在客户端上构建一个消息队列以传递到服务器，也许使用与每个消息关联的回调来处理返回值（如果有）（匿名方法非常适合回调！）。然后，一次性将所有消息分派到服务器，并接收和解析结果，根据需要为每条处理的消息调用回调等。

如果您的服务器在将复合请求（来自客户端的消息队列）处理到事务中时有某种方式封装所有状态更改，那么它的效果会更好：您将获得一种处理第 n 条消息上发生的错误的好方法 - 简单丢弃在服务器上完成的所有工作，并像客户端请求从未进入一样继续进行。这通常也简化了客户端对服务器状态的理解。

我过去曾围绕这些原则构建过系统，并且它们有效。使网络透明，假装系统的物理布局不存在，从长远来看只会带来痛苦。

Answer 2

您绝对应该至少在 Delphi 2010 中使用 DataSnap，最好是在 Delphi XE 中。您所描述的基本上就是 DataSnap。它是一个非常强大的 RPC 系统，允许您创建可以为客户端提供任何 Delphi 类型或类的服务器。一旦服务器就位，客户端就可以创建代理代码来调用服务器，就像它是应用程序的本机部分一样。没有 IDL，没有 COM，只有干净的 Delphi 代码。服务器甚至可以生成 REST/JSON 组合，以便于非 Delphi 客户端使用。

DataSnap 正是您所寻找的——干净、整洁、强大且简单。

Answer 3

您应该查看 RemObjects SDK 等框架之一。您使用他们的工具来定义接口，它会为您完成所有工作。然后，您只需实现这些函数，并在客户端中调用它们即可。我通过采用业务逻辑组件并将其作为界面，将单个应用程序转换为客户端/服务器应用程序。无需推出自己的有线协议。

Answer 4

您可以编写一个程序，使用 RTTI 为您构建必要的单元，而不是手动编写所有内容。我过去曾使用包含数千个表的 ORM 系统完成此操作...编写代码生成器更快、更容易，该生成器从数据库模式中吐出使用系统所需的类和单元。

这种方法的另一个优点是更容易测试，因为它可以通过可预测的行为进行扩展。