Получить по ссылке на интерфейс указатель на класс в котором он реализован

[LISTAT]

Доброго времени суток.
Есть у меня задача, которая связана с использованием интерфейсов. Реализовывают интерфейсы разные классы. Вопрос в том, как имея ссылку на интерфейс получить указатель на класс в котром он реализован и вызвать метод Free.
Пока делаю это, описывая интерфейсную функцию

function GetPointObject:TObject;stdcall;

Реализация этой функции следующая

function <CLASS>.GetPointObject:TObject;
begin
    result:=Self;
end;

Да это работает, но хотелось бы просто получив ссылку на интерфейс выйти на класс и вызвать его деструктор.
Еще нагуглил такой код, который предположительно возвращает указатель на класс по ссылке на интерфейс, проверял - работает, но как-то не внушает доверия.

function GetImplementingObject(const I: IInterface): TObject;
const  
  AddByte = $04244483; 
  AddLong = $04244481; 
 
type  
  PAdjustSelfThunk = ^TAdjustSelfThunk;
  TAdjustSelfThunk = packed record    
    case AddInstruction: longint of      
      AddByte : (AdjustmentByte: shortint);      
      AddLong : (AdjustmentLong: longint);  
    end;  
  PInterfaceMT = ^TInterfaceMT;  
  TInterfaceMT = packed record    
    QueryInterfaceThunk: PAdjustSelfThunk;  
  end;  
  TInterfaceRef = ^PInterfaceMT;
 
var  
  QueryInterfaceThunk: PAdjustSelfThunk;
begin  
  Result := Pointer(I);  
  if Assigned(Result) then
  try      
    QueryInterfaceThunk := TInterfaceRef(I)^.QueryInterfaceThunk;      
    case QueryInterfaceThunk.AddInstruction of        
      AddByte: Inc(PChar(Result), QueryInterfaceThunk.AdjustmentByte);        
      AddLong: Inc(PChar(Result), QueryInterfaceThunk.AdjustmentLong);        
    else    
      Result := nil;      
    end;    
  except      
    Result := nil;    
  end;
end;

Может кто реализовывал подобное?
Буду благодарен за любую помощь.

[Человек_Борща]

Да это работает, но хотелось бы просто получив ссылку на интерфейс выйти на класс и вызвать его деструктор.

Да буде вам известно что при уменьшении счетчика ссылок, класс из разряда "в нашем полку убыло" сам уничтожается.

[LISTAT]

Сообщение от Человек_Борща

Да буде вам известно что при уменьшении счетчика ссылок, класс из разряда "в нашем полку убыло" сам уничтожается.

А если в классе реализуются методы
_AddRef
_Release
которые не проводят подсчет ссылок или он попросту унаследован от TComponent, то этот метод присвоения указателю интерфейса nil не вызовет деструктор класса.

[Человек_Борща]

А вы объект наследуйте от TInterfacedObject и вашего IMySomeInterface

[LISTAT]

Сообщение от Человек_Борща

А вы объект наследуйте от TInterfacedObject и вашего IMySomeInterface

Объект наследуется от TObject, предопределяются методы подсчета ссылок (долго рассказывать зачем, есть своя необходимость).

[Человек_Борща]

Почитайте о правильном использовании интерфейсов и ссылок на них, а также связи интерфейса и класса, в результате которой класс, сам, уничтожается при уничтожении ссылки на интерфейс. Долго рассказывать зачем.

[LISTAT]

Сообщение от Человек_Борща

Почитайте о правильном использовании интерфейсов и ссылок на них, а также связи интерфейса и класса, в результате которой класс, сам, уничтожается при уничтожении ссылки на интерфейс. Долго рассказывать зачем.

Читал и не раз. Прекрасно понимаю преимущества данного механизма.
На данный момент передо мной стоит задача в разработке плагинной системы. Суть проста - в dll имеем класс, который может реализовывать любой интерфейс. В приложении получаем ссылку на этот интерфейс, вызываем необходимые методы и после этого имеется необходимость уничтожить класс, который реализует ранее запрошенный интерфейс.
Если наследоваться от TInterfaceObject, то как показывает практика иногда ссылкам на интерфейс необдуманно присваивают nil (бывают разработчики плагинов не знающие, что так делать нельзя, пока интерфейс еще нужен), что вызывает деструктор реализуемого класса и в последующем AV. Вот собственно и поэтому предопределены методы подсчета ссылок.

[Человек_Борща]

Вы не правильно его реализовываете. Вот к сведению... как-раз по вашей части.
http://www.gunsmoker.ru/2011/12/delphi.html

[LISTAT]

Сообщение от Человек_Борща

Вы не правильно его реализовываете. Вот к сведению... как-раз по вашей части.
http://www.gunsmoker.ru/2011/12/delphi.html

Спасибо. На досуге почитаю.

[Человек_Борща]

Если наследоваться от TInterfaceObject, то как показывает практика иногда ссылкам на интерфейс необдуманно присваивают nil (бывают разработчики плагинов не знающие, что так делать нельзя, пока интерфейс еще нужен), что вызывает деструктор реализуемого класса и в последующем AV. Вот собственно и поэтому предопределены методы подсчета ссылок.

Ваша задача не беспокоится об ошибках других(это не ваша задача и не ваши проблемы вообще), а о том чтобы эти ошибки не рушили ядро программы, а информировали разработчика плагина о том что такой-то X выкинул финт при таком-то событии Y.