Como obtener propiedad de una clase que está en una bpl dinámica?

[Neftali [Germán.Estévez]]

Empezado por AFilth

pero me da el error:
Incompatible types: TagWNDClassA and Class Reference.

¿Dónde estás utilizando TagWNDClassA?
¿TagWNDClassA es una clase o una instancia?
Si es una clase, ¿Cómo está definida?

[AFilth]

Empezado por Neftali

¿Dónde estás utilizando TagWNDClassA?
¿TagWNDClassA es una clase o una instancia?
Si es una clase, ¿Cómo está definida?

Hola otra vez, he solucionado ese error...era una tontería. El problema es que en el uses estaba declarado primero Classes y luego Windows por lo que el compilador intentaba hacer el RegisterClass de Windows en lugar del de Classes.

Ya está solucionado cambiando el orden en los uses.

[AFilth]

Bueno, os sigo contando...

Hemos quedado de esta forma:

Tengo mi bpl dinámica con la ClaseB. En esta unidad en el inicialization hago un:

RegisterClass(ClaseB);

Vale, hasta ahí parece que bien pero luego desde donde quiero acceder a la propiedad de esa ClaseB (Es otra unidad en la cual cargue dinámicamente la bpl de la ClaseB) hago lo siguiente:

Código Delphi [-]
var
  AClass: TPersistentClass;
  FAux: int64;
begin
  AClass := GetClass('ClaseB');
  FAux := GetInt64Prop(ObjetoDeClaseA, 'PropiedadDeClaseB');

Esto me devuelve una excepción de que no ha encontrado esa propiedad. Supongo que es lógico ya que yo le estoy pasando un Objeto que aunque en realidad es de la ClaseB, Delphi lo interpreta como que es de la ClaseA.

Por ello creaía que me bastaría con hacer algo de tipo:

Código Delphi [-]
FAux := GetInt64Prop(ObjetoDeClaseA As AClass, 'PropiedadDeClaseB');

Una especie de cast para que el Delphi supiese que el objeto en realidad es de la ClaseB pero eso no funciona...

De momento vuelvo a estar sin ideas...

Un saludo.

[roman]

Empezado por AFilth

Supongo que es lógico ya que yo le estoy pasando un Objeto que aunque en realidad es de la ClaseB, Delphi lo interpreta como que es de la ClaseA.

Eso no tendría problema, pero:

El ejemplo que pones es incompleto y no vemos cómo estás construyendo el objeto que le pasas a GetInt64Prop. Fíjate en una cosa: TPersistent no es una clase virtual, esto es, su constructor Create no es virtual. Esto es importante, porque si construyes objetos a partir de referencias de clase- como lo es cuando usas el valor que devuelve GetClass -tal referencia debe apuntar a una clase virtual, de lo contrario, la construcción se resuelve desde el momento de la compilación usándose el constructor base de TPersistent y no el de la clase heredada.

Puedes resolver eso, metiendo un constructor virtual en tu clase A que incluso puedes dejar abstracto e implementarlo hasta la clase B, o bien dejarlo vacío (un procedimiento que no haga nada) y la clase B puede o no redefinirlo.

Pero cuando construyas la clase debes usar una referencia a tu clase A y no a TPersistentClass. Algo como:

Código Delphi [-]
type
  // Tu clase A
  TBaseObject = class(TPersistent)
    constructor Create; virtual; abstract;
  end;

  TBaseClass = class of TBaseObject;

Y usas TBaseClass para hacer un moldeo con el valor que te devuelve GetClass.

Código Delphi [-]
var
  AClass: TBaseClass;

begin
  AClass := TBaseClass(GetClass('TClaseQueDesciendeDeTBaseObject'));
  Base := AClass.Create;

  ...

end;

Como Aclass apunta ahora a una clase virtual, el compilador sabe ya que no puede resolver el constructor y debe dejarlo hasta el momento de la ejecución.

Otra cosa, es que no veo cómo estás definiendo la clase en cuestión: recuerda que las propiedades a las que quieres acceder deben estar en una sección published.

Además, en mi opinión, no hay necesidad de usar TPersistent. TPersistent y TComponent son las clases bases para el manejo de la persistencia en los archivos dfm. Si tú no requieres tal funcionalidad, no veo porqué usarlo.

Cualquier clase puede generar RTTI siempre y cuando se compile con la directiva {$M+}. Como TPersistent está compilado de esa forma, ella, y todas las classes descendientes, generan RTTI. Pero puedes lograr lo mismo si lo haces tú mismo:

Código Delphi [-]
type
  {$M+}
  type
    TBaseObject = class
      constructor Create; virtual; abstract;
    end;
  {$M-}

Claro que en esta situación no te va a servir GetClass. Pero GetClass y RegisterClass lo único que hacen es mantener una asociación:

nombre de clase => clase

que tú mismo puedes implementar fácilmente.


Y finalmente, de hecho no entiendo para qué quieres usar RTTI. Hasta donde recuerdo, tu puedes tener una unidad común, digamos Core que defina tu clase base, si quieres con sólo métodos abstractos para que haga lo mínimo indispensable. Entonces, incluyes esa unidad Core, tanto en la aplicación principal como en el paquete dinámico.

Dado que en Core estás definiendo la interfaz de tu clase, puedes acceder a los métodos y propiedades sin recurrir a las argucias de RTTI. Claro está, siempre y cuando te bases en una clase virtual, según te comenté arriba.

Eso sí, tienes que implementar tu propio registro

nombre de clase => clase

pero eso es relativamente sencillo. Puedes tener en Core un arreglo

Código Delphi [-]
var
  RegisteredClasses: array of TBaseClass;

y funciones globales:

Código Delphi [-]
RegisterBaseClass(Nombre: String; AClass: TBaseClass);
function GetBaseClass(Nombre: String): TBaseClass;

// Saludos

[AFilth]

Muchas gracias por tu extenso comentario Roman, me ha despejado muchas dudas que tenía.

Al final os cuento como solucioné e tema para que quede constancia por si algún día alguien busca algo parecido.

Uno de mis problemas era que la propiedad de la ClaseB la tenía definida en Public en vez de en Published por lo que no tenía acceso a ella desde la RTTI.

Por otro lado no sabía lo de la directiva de compilación {$M+} por lo que al final hice que la ClaseA heredase de TPersistent aunque ésto lo podría cambiar ahora volviendo a la herencia de TObject y compilando con la directiva que nos ha comentado Roman.

Al final no necesite para nada el GetClass, ya que lo único que tenía que hacer era escribir en una de las propiedades de la ClaseB por lo que desde el exterior me basto con hacer un:

Código Delphi [-]
SetObjectProp(MiObjeto, 'Propiedad', Valor);

Un saludo y una vez más gracias a todos por vuestra ayuda.

[roman]

Hola AFilth,

Me gustaría que me explicases una cosa. Si no usas GetClass para nada, ¿cómo estás obteniendo MiObjeto? ¿De dónde sale? Tiene que haberse instanciado en algún momento, ¿cómo?

// Saludos

[Neftali [Germán.Estévez]]

Yo también me apunto a eso.
¿Cómo has obtenido la referencia de la clase que hay en el package dinámico?