Приведение интерфейса delphi к его классу реализации без изменения интерфейса

• Классический взгляд на это принадлежит Халварду Вассботну: Хитрость №7: интерфейс к объекту
• Совсем недавно Барри Келли, инженер компилятора Delphi, также предоставил реализацию: Уродливая альтернатива интерфейсу приведения объектов

Я думаю, что оба подхода должны работать.

Кстати, кто-нибудь знает, Холлвард все еще активен? Я не встречал его в последние несколько лет.

Привет моему боссу, ответ таков: используйте невероятно полезную библиотеку JEDI, в частности GetImplementorOfInterface метод.

я делаю то, что делает принятый ответ на вопрос "возможный дубликат":

Пусть объект реализует интерфейс 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;