将delphi接口转换为其实现类而不修改接口

Question

可能的重复：
如何在 Delphi 中将接口转换为对象

使用Delphi 5；我有一个由于遗留原因无法更改的界面。我正在到处传递（指向）该接口。实现类有几个新属性 - 有没有办法强制从接口到实际实现的转换？

http://www.malcolmgroves.com/blog/?p=500 说这是在 Delphi 2010 中（新）实现的，这强烈表明这在以前是不可能的。确实如此，还是有我不熟悉的方法？ RTTI，也许？

（我检查过，如果 pScore 是 TOleScore 那么 Delphi 5 编译器确实不允许 - 这里 pScore 是我的 pScore: IScore 参数， TOleScore 是实现类。）

Answer 1

• Hallvard Vassbotn 对此的经典看法是： Hack #7：对象接口
• 最近，Delphi 编译器工程师 Barry Kelly 也提供了一个实现：接口到对象转换的丑陋替代方案

I认为这两种方法都应该有效。

---

顺便问一下，有人知道 Hallvard 是否还活跃吗？过去几年我没有见过他。

Answer 2

向我的老板致意，答案是：使用非常有用的 JEDI 库，特别是 GetImplementorOfInterface 方法。

Answer 3

我做了“可能重复”问题接受的答案所做的事情：

让对象实现IObject接口：

IObject = interface(IUnknown)
    ['{39B4F98D-5CAC-42C5-AF8D-0237C8EFBE4C}']
    function GetSelf: TObject;
end;

因此，它会是：

var
   thingy: IThingy;
   o: TOriginalThingy;

begin
   o := (thingy as IObject).GetSelf as TOriginalThingy;

---

更新：为了深入理解这一点，您可以向现有对象添加新的接口。

现有对象：

type
    TOriginalThingy = class(TInterfacedObject, IThingy)
    public
       //IThingy
       procedure DrinkCokeZero; safecall;
       procedure ExcreteCokeZero; cafecall;
    end;

添加 IObject 作为其公开的接口之一：

type
    TOriginalThingy = class(TInterfacedObject, IThingy, IObject)
    public
       //IThingy
       procedure DrinkCokeZero; safecall;
       procedure ExcreteCokeZero; cafecall;

       //IObject - provides a sneaky way to get the object implementing the interface
       function GetSelf: TObject;
    end;

    function TOriginalThingy.GetSelf: TObject;
    begin
       Result := Self;
    end;

典型用法：

    procedure DiddleMyThingy(Thingy: IThingy);
    var
       o: TThingy;
    begin
       o := (Thingy as IObject).GetSelf as TThingy;

       o.Diddle;
    end;