我应该使用类或方法来包装动态远程过程调用吗？

Question

情况

我想让 RPC 接口更易于使用。这是一个自定义接口，因此没有现成的包装器。

我必须为通常有很多参数的函数编写几个包装器。

可能的解决方案

解决方案 1 - 为每个函数使用一个类：

TDoSomethingFunction = class
public
  property Arg1: Integer;
  property Arg2: string;
  property Arg3: Boolean;
  procedure Run;
end;

调用者必须创建一个对象来调用该函数：

var
  DoSomething: TDoSomethingFunction;
begin
  DoSomething := TDoSomethingFunction.Create;
  try
    DoSomething.Arg1 := 0;
    ...
    DoSomething.Run;
  finally
  free;
end;

方法 2 - 为每个函数使用一个包装方法：

procedure TRPCInterface.DoSomething(AArg1: Integer; AArg2: string; AArg3: Boolean);

调用者可以简单地调用它：

TRPCInterface.DoSomething(0, ...);

优点和缺点

方法 1 - 类每个函数都

需要

• 更多代码。
• 必须创建一个占用内存的对象。

专业人士

• 阅读代码更容易，您不必查看声明来了解参数是什么。

方法 2 - 包装方法

Contra

• 您无法仅通过查看代码来判断使用了哪些参数。

Pro

• 需要编写的代码少得多。
• 包装器更薄（无需创建任何对象）。

我应该使用哪种方法？

Answer 1

有一个中间解决方案，即调用传递对象参数的包装器方法。

TDoSomethingArgs = class
public
  property Arg1: Integer;
  property Arg2: string;
  property Arg3: Boolean;
end;

procedure TRPCInterface.DoSomething(Args: TDoSomethingArgs);

此方法的优点之一是您仍然使用方法，但仍然更具可读性。
在参数中使用类（您也可以使用记录）的一个优点是您可以稍后更改参数（添加更多，更改行为），并且如果您选择得好，它不会破坏向后兼容性 - 总之您可以更改方法签名无需破坏代码。

Answer 2

你还没有指定Delphi版本，但如果你的版本支持泛型，我会选择：

type
  TArgList = class( TDictionary< String, Variant > );

type
  TBaseFunc = class
  private
    FArgs: TArgList;
  public
    function Run: Boolean; virtual; abstract;
  public
    property Args: TVarList read FArgs write FArgs;
  end;

type
  TSpecialFunc = class( TBaseFunc )
  public
    function Run: Boolean; override;
  end;

实现

function TSpecialFunc.Run: Boolean;
begin
  // here's where you can access args as variants
end;

你可以使用的

ASpecialFunc.Args.AddOrSetValue('ArgumentName', 2012);

：这样你将不得不编写更多代码，但恕我直言，它的可读性要强得多，并且很容易被其他开发人员采用将来。

注意：我还没有测试过这段代码，所以它很可能无法编译。

这是我的两分钱，我很好奇其他人的想法（：