9 respuestas en este tema

[cadetill]

Buenas,

A ver, que ya no sé por donde mirar y seguro que es una tontería

Quiero saber si un determinado Objecto implementa una determinada interfaz. Es decir, si yo tengo algo como

delphi

  TLinePoint = class(TCollectionItem)
  private
    FOwner: TObject;
    FMyProp: Integer;
    procedure SetMyProp(const Value: Integer);
  protected
  public
    constructor Create(Owner: TObject; Collection: TCollection); reintroduce; virtual;
    destructor Destroy; override;
  published
    property MyProp: Integer read FMyProp write SetMyProp;
  end;
 
  ILinePoint = interface
    ['{35926390-118A-4604-A343-73D200A36006}']
    procedure LinePointChanged;
  end;
 
.....
 
procedure TLinePoint.SetMyProp(const Value: Integer);
var
  Intf: ILinePoint;
begin
  FMyProp := Value;
 
  if FOwner.GetInterface(ILinePoint, Intf) then
  begin
    ShowMessage('si');
    Intf.LinePointChanged;
  end
  else
    ShowMessage('no');
end;

Es decir, a TLinePoint se le pasa un Owner de tipo TObject en el constructor. Necesito saber si este Owner implementa la interfaz ILinePoint en el Set de la propiedad MyProp, pero no tengo manera de encontrar la forma. ¿Alguna ayudita?

Gracias de antemano

[Marc]

Hola Xavi.

¿ El operador is no funciona para comprobar interfaces ?.

Es decir : (Owner is ILinePoint)

Saludos.

[cadetill]

Hola Marc

Esa fue mi primera opción, pero ni compila jejejejeje

Gracias de todas formas

Nos leemos

[Rolphy Reyes]

Saludos.

Unit: SysUtils

Type: function

Description
Indicates whether a given object or interface supports a specified interface.

Call Supports to determine whether the object or interface specified by Instance, or the class specified by AClass, supports the interface identified by the IID parameter. If Instance supports the interface, Supports returns the interface as the Intf parameter and returns True. If AClass supports the interface, Supports does not return an interface, but still returns True. If the interface specified by IID is not supported, Supports returns False.

On the Win32 platform, to determine whether the interface specified by IID is supported, Supports calls the QueryInterface method of the supplied interface (or the interface of the supplied object). However, unlike calling QueryInterface directly, Supports lets you pass a nil (Delphi) or NULL (C++) value as the instance.

On the .NET platform, Supports uses the typecasting facilities of the .NET framework.

delphi

function Supports(const Instance: IInterface;
		const IID: TGUID;
		out Intf): Boolean; overload;
 
	function Supports(const Instance: TObject;
		const IID: TGUID;
		out Intf): Boolean; overload;
 
	function Supports(const Instance: IInterface; const IID: TGUID): Boolean; overload;
 
	function Supports(const Instance: TObject; const IID: TGUID): Boolean; overload;
 
	function Supports(const AClass: TClass; const IID: TGUID): Boolean; overload;

[cadetill]

Gracias Rolphy

Esta función Support ya lo había probado, pero no sé por qué no me funcionó (algo haría mal). Ahora me he vuelto a mirar la ayuda y la VCL y he visto donde fallaba y todo me ha ido correcto

Muchas gracias por abrirme los ojos

Nos leemos

[Delphius]

Ahora me he vuelto a mirar la ayuda y la VCL y he visto donde fallaba y todo me ha ido correcto

Muchas gracias por abrirme los ojos

Nos leemos

Hola amigo, ¿Donde estaba el error? Yo suelo trabajar con interfaces. De hecho, al momento tengo unas 5 o 6 en mi actual proyecto. Y si bien no tuve que realizar esto, no estaría mal tener a mano algunas nociones por las dudas.

Saludos,

[cadetill]

Buenas Delphius

Si te fijas, TLinePoint es un TCollectionItem. Pues bien, el Owner sólo se lo pasaba a la clase TLinePoints (TCollection), pero no a TLinePoint, por lo que al hacer la comprobación con Supports siempre me devolvía false

Un fallo de principiante, lo sé

Nos leemos y nuevamente gracias a todos

[Delphius]

Buenas Delphius

Si te fijas, TLinePoint es un TCollectionItem. Pues bien, el Owner sólo se lo pasaba a la clase TLinePoints (TCollection), pero no a TLinePoint, por lo que al hacer la comprobación con Supports siempre me devolvía false

Un fallo de principiante, lo sé

Nos leemos y nuevamente gracias a todos

Uff yo anoche me di con un error de principiante peorcito. ¿Que se debe hacer cuando uno declara un método como virtual y va a sobreescribirlo en una clase descendiente? Le añade la cláusula override ¿no es cierto? Pues eso es lo que haría cualquier persona que maneja Delphi... excepto el bruto que está teclando ahora: yo.
Con razón me estaba tirando warnings/hints de que había métodos de una subclase que estaban ocultando al de su padre. Toca ahora revisar entre 4KLDC, 10 clases y 7 módulos los métodos virtuales y sobreeescritos. Eso si es burrada ¡Y de la golda! como diría Oaki.

Saludos,

[cadetill]

jejeje, también está bien es tuyo ^^ Si es que esas cosas nos pasan por no fijarnos más

[Delphius]

jejeje, también está bien es tuyo ^^ Si es que esas cosas nos pasan por no fijarnos más

En mi caso por estar medio olvidando los conceptos de Delphi. Ultimamente como estoy más "abstracto" y me dedico más al A/DOO por momentos estoy que se olvida como era hacer x cosa en Delphi.

Saludos,