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

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

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