在不修改接口的情况下将delphi接口转换为其实现类[重复]

Question

可能重复：
How to cast a Interface to a Object in Delphi

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

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

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

Answer 1

• Hallvard Vassbotn 对此的经典演绎：Hack #7: Interface to Object
• 最近，Delphi 编译器工程师 Barry Kelly 也提供了一个实现：An ugly alternative to interface to object casting

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

---

顺便说一句，有谁知道 Hallvard 是否仍然活跃？在过去的几年里我没有遇到过他。

Answer 2

感谢我的老板，答案是：使用非常有用的 JEDI 库，特别是 GetImplementorOfInterface method。

Answer 3

我做“possible duplicate”问题的接受答案所做的事情：

让对象实现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;