Foros Club Delphi - Referencia al objeto desde la interfaz

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)

- - Referencia al objeto desde la interfaz (https://www.clubdelphi.com/foros/showthread.php?t=6648)

Referencia al objeto desde la interfaz

Hola!!!

Supongamos que tenemos un método del siguiente estilo:

Código:

procedure Add(o: IMyInterface);

Como puedo hacer para conseguir un puntero al objeto, no a la interfaz que me están pasando. Imaginemos que dentro de este procedure lo que quiero es añadir el parámetro a un TObjectList. Necesito pasarle una referencia a objeto, no a interfaz. He probado a hacer un cast a TObject, a TInterfacedObject, declarar la referencia a objeto y pasarsela a QueryInterface del parámetro, ... He conseguido hacer que compile, el problema es que cuando inteto acceder a propiedades de la classe original, no de la interfaz, da un acces violation. Os pongo una de las maneras que lo he hecho:

Código:

procedure TMiClasse.Add(o: IMyInterface);

var

  Temp: TInterfacedObject;

begin

  if Succeeded(o.QueryInterface(IMyInterface, Temp)) then

  begin

    ShowMessage(Temp.ClassName);

    FList.Add(Temp);

  end;

end;

Ese código compila, pero al intentar el showmessage lanza el access violation. Creo que lo que pasa es que no estoy consiguiendo que Temp apunte al objeto, si no a su "trozo" que implementa la interfaz.
En fin... estoy empezando a programar con interfaces en Delphi (en java la cosa no es tan complicada) y supongo que estoy cometiendo algun error conceptual, así que estoy abierto a todas vuestras explicaciones...

Hasta donde entiendo esto no es posible. No al menos de una manera ortodoxa. El meollo de las interfaces es precisamente que el código que se escriba no dependa de los objetos que las implementan.

La manera en que yo he hecho esto es usando una interfaz y un objeto que la implemente como base de todas las demás interfaces que utilice:

Código:

type

  IMySelf = interface

    function _Self: TObject;

  end;



  TMySelf = class(TInterfacedObject, IMySelf)

    function _Self: TObject;

  end;



implementation



function TMySelf._Self: TObject;

begin

  Result := Self;

end;



end.

De esta manera la interfaz base "publica" el objeto que la implementa ya que si MySelf es una interfaz de tipo IMySelf entonces MySelf._Self es el objeto que la implementa.

Algo curioso que supe cuando investigué esto es que de hecho puedes omitir la línea (la única línea) del código de la función TMySelf._Self y aún así funciona.

Esto es así porque el registro del CPU que Delphi utiliza para almacenar el parámetro "escondido" Self es el mismo que utiliza para devolver el resultado de una función.

Prueba esto a ver si te funciona. El problema será si intentas encontrar el objeto implementador de interfaces que no programaste tú.

Yo tengo la sospecha de que aún así puede hacerse si se conoce la estructura de la VMT de un objeto para localizar la dirección del objeto a partir de la direción de la interfaz que no es, a fin de cuentas, otra cosa que un puntero. Habrá que leerse con detalle el libro de Ray Lischner, Delphi in a nut-shell

// Saludos

Si, si que me sirve la idea. Lo que quiero hacer es una especie de TObjectList, pero pueda ordenarse dado un criterio. Seguiré trabajando en ello y si consigo algo presentable te lo comento.