Clases e Interfaces

[Virata]

Hola a todos.

Antes de lanzar esta pregunta he buscado en los foros sin encontrar nada al respecto. Espero que alguien me sepa contestar. Ahí va:

Estoy creando varios controles cada cual de una clase diferente.

Estos controles deben almacenarse en un array y para arreglar el tema de las diferencias de clase, he creado un interfaz con un metodo y la he implementado en todos ellos.

De esta manera declaro el array del tipo de la interfaz y así puedo acceder al procedimiento comun a todos descrito en la interfaz , pero que cada clase implementa a su modo.

array[1].HazAlgo;

Según el objeto que contenga en cada caso hará una cosa u otra.

Mi problema es que estos objetos los tengo que enviar a otro procedimiento que recibe como parámetro un objeto TObject (admite cualquier objeto) y necesito conocer si dicho objeto implementa una determinada interfaz para que haga o no algo.

He probado con getInterface pero no acabo de ver como funciona.

En fin, gracias de antemano.

Salu22222

[Jan]

Hola Virata:

Prueba de esta forma:

Código Delphi [-]
procedure Miprocedimiento(Objeto:TObject);
begin
   if Supports(Objeto,IMiInterface) then
      (Objeto as IMiInterface).HazAlgo;
end;

No lo he probado, pero creo que es así. Por cierto que la función Supports (o mejor dicho las funciones porque hay distintas variantes) están definidas en la unidad SysUtils.

Espero que te sirva.

Saludos.

P.D.: No me había dado cuenta de que era tu primer mensaje. Bienvenido al Club.

[jachguate]

También podes valerte directamente del método QueryInterface de la interfaz IUnknown, que supongo, será lo que la funcion Supports hace.

Hasta luego.

[roman]

Empezado por jachguate

También podes valerte directamente del método QueryInterface de la interfaz IUnknown

Pero la rutina recibe on TObject, no un IUnknown (o IInterface) por lo que para usar QueryInterface primero tendría que obtener una interfaz a IUnknown y ver si esa implementa IMiInterface. Esto es más o menos lo que hace la función Supports.

// Saludos

[jachguate]

claro... seria algo como:

Código Delphi [-]
Procedure TMiForm1.Button1Click(Sender : TObject);

Begin
  try
    (sender as TInterfacedObject).QueryInterface...
  except
    on EInvalidTypeCast do
      ShowMessage('Objeto no implementa ninguna interfaz!');
  end;
end;

[roman]

Sí bueno, pero resultó más directo lo de Supports ¿no?

Por otro lado puedes tener objetos que no desciendan de TInterfacedObject pero que sí implemente la interfaz.

// Saludos