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

[AFilth]

Buenas tardes, a ver si alguien es capaza de resolver este problema...

Tengo una bpl dinámica en la que tengo una clase A.

En mi dpr principal tengo la Clase APADRE de la que hereda la clase A.

Desde mi dpr principal cargo esa Bpl dinámica, como podría acceder a la clase A ó a una de sus propiedades?

No tengo ni idea de como hacerlo pero quería saber si hay algo de tipo:

(ObjetoDeLaClaseAPADRE as A).PropiedadDeLaClaseA

teniendo en cuenta que yo desde mi dpr no veo nada de la bpl dinámica.

Un saludo.

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

En la BPL debes registrar la clase a la que quieres acceder utilizando RegisterClass.

Código Delphi [-]
  RegisterClass(TClaseEnBPL);

Luego para poder acceder a ella desde otro lugar de la aplicación puedes utilizar RTTI. Con el método GetClass puede acceder a la clase a partir de su nombre.

Revisa la ayuda hay algun ejemplo.
También puedes buscar por internet un artículo de "Vino Rodrigues" sobre packages dinámicos. Recuerdo que está muy bien explicado.

[[poliburro]]

Este ejemplo carga una clase contenida en un paquete

Código Delphi [-]
 
var
 MHmodfrm : HModule;          
 MTpcfrm : TPersistentClass;  
 Miforma : TFrmBas;        
begin
  MHmodfrm := LoadPackage('rutapaquete');
  clase := GetClass('TClasePErsonalizada');
  Miforma   := TComponentClass(MTpcfrm).Create(Application) As TFrmBas;  
  Miforma.Propiedad := 'Algo'; 
  Miforma.Free;
  UnloadModuleFromInstances(MHmodfrm);
  UnloadPackage(MHmodfrm);
end;

Sencillito pues :P.

si necesitas más detalles, el libro de marco cantú Delphi 7, trae unos excelentes ejemplos.

Suerte

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