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

[AFilth]

Muchas gracias por la ayuda, he estado trasteando con ello y viendo ejemplos y más ejemplos pero creo que no lo puedo hacer ya que mi clase hereda de TObject y no de TComponent y al hacer el:

RegisterClass(TClaseEnBPL);

me da error ya que creo que sólo se pueden registrar clases que hereden de TComponent.

Por otro lado al hacer el:

clase := GetClass('TClasePErsonalizada');

siempre me da que clase es nil ya que supongo no llega a registrarse.

Sigo buscando soluciones...gracias.

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

Empezado por AFilth

...creo que no lo puedo hacer ya que mi clase hereda de TObject y no de TComponent y al hacer el...

El realidad debe derivar de TPersistent, pero no es ningun problema. Puedes cambiar la herencia de tu clase para que en lugar de derivar de TObject, derive de TPersistent (TPersistent deriva a su vez de TObject).
No pierdes nada, al contrario, tal vez estés agregando a tu clase algunas características que no necesita, pero ya está.

Empezado por AFilth

...
clase := GetClass('TClasePErsonalizada');
siempre me da que clase es nil ya que supongo no llega a registrarse.

Eso es debido a lo comentado más arriba.

[AFilth]

Sí, suponía que era por eso, pero la verdad que no me atrevía a cambiar la herencia ya que es una clase muy muy gorda dentro del programa que se usa en muchísimos sitios y me daba cosa, ya que creía que podría tener luego problemas con ella...pero bueno, viendo tu comentario me animaré a hacer la prueba y ya os contaré como ha ido todo.

Muchas gracias y un saludo.

[AFilth]

Bueno, ahora tengo el siguiente problema:

Tengo la clase A que hereda de TPersistent, y luego la Clase B que hereda de la clase A.

En la unit de la Clase B, en el Inicilization intento hacer un:

RegisterClass(ClaseB);

pero me da el error:

Incompatible types: TagWNDClassA and Class Reference.

Es porque tengo que heredar de otra clase?

Salu2.

[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.