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

情况

我想使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 – 包装方法

反对

>仅仅通过查看代码,您无法分辨使用哪些参数.

临

>写的代码要少得多.
>包装器更薄(不需要创建任何对象).

@R_391_10675@用哪种方法？

TDoSomethingArgs = class
public
  property Arg1: Integer;
  property arg2: String;
  property Arg3: Boolean;
end;

procedure TRPCInterface.DoSomething(Args: TDoSomethingArgs);