Delphi:从接口引用

时间:2015-04-30 09:59:52

标签: delphi interface delphi-7

我有一组派生自基类的类。 基类表示要调用的通用服务(实际上是一种REST客户端), 每个派生类都是每个特定服务的包装器(具有特定参数)。 请注意,我的基类实现了Interface

以下是一些简化的代码:

IMyService = interface
  ['{049FBEBD-97A8-4F92-9CC3-51845B4924B7}']
  function GetResponseContent: String;
  // (let's say AParams is a comma-delimited list of name=value pairs) 
  procedure DoRequest(const AParams: String); overload;  // (1)
  property ResponseContent: String read GetResponseContent; 
end;

TMyBaseService = class(TInterfacedObject, IMyService)
protected
  FResponseContent: String;
  function GetResponseContent: String;
public
  procedure DoRequest(const AParams: String); overload;  // (1)
  property ResponseContent: String; 
end;

TFooService = class(TMyBaseService)
public
  // This specific version will build a list and call DoRequest version (1)
  procedure DoRequest(AFooParam1: Integer; AFooParam2: Boolean); overload; // (2)
end;

TBarService = class(TMyBaseService)
public
  // This specific version will build a list and call DoRequest version (1)
  procedure DoRequest(ABarParam1: String); overload;  // (3)
end;

现在,我总是可以以通用的,后期自定义方式创建和调用服务,传递(1)中的“开放”参数列表并交叉我的手指:< / p>

var
  Foo, Bar: IMyService;
begin
  Foo := TFooService.Create;
  Bar := TBarService.Create;
  Foo.DoRequest('name1=value1,name2=value2'); 
end;

但是,调用标记为(2)和(3)的特定DoRequest的最佳方式是什么?

我无法将接口引用转换为对象TFooService(Foo).DoRequest(2, False)
我无法声明Foo: TFooService,因为我需要使用ARC的接口参考(自动引用计数)。

1 个答案:

答案 0 :(得分:1)

使接口代表其他功能。例如:

type
  IFooService = interface
    [GUID here]
    procedure DoRequest(AFooParam1: Integer; AFooParam2: Boolean); overload;
  end;

TFooService实现它

type
  TFooService = class(TMyBaseService, IFooService)
  ....

然后使用as来访问它:

var
  Foo: IMyService;
....
(Foo as IFooService).DoRequest(AFooParam1, AFooParam2);