Componentes en librerias DLL

[adonias]

Tu lo haces ver tan facil neftalí!!!


Funciono perfecto...

Muchisimas gracias Master!

[rgstuamigo]

Bueno ..nada más agregar otra alternativa..(aunque no la he probado)... es decir que para poder obtener el label se podría hacer un casting del formulario directamente a clase del formulario en cuestion;ésto en la siguiente linea:

Código Delphi [-]
...
 with TComponentClass(AClass).Create(Application)
        as TCustomForm do //<-- aquí en ves de hacer casting hacia TCustomForm deberiamos hacerlo directamente hacia la 
               //Clase descendiente que nos interesa, es decir hacia nuestro formulario  
      begin
        ShowModal;
        labelForm2.Caption := 'hola';   <---- No llego al form2
        Free;
      end;
...

Saludos...

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

Empezado por rgstuamigo

... es decir que para poder obtener el label se podría hacer un casting del formulario directamente a clase del formulario en cuestion

El problema es que si pusieras ahí la clase del formulario en cuestión (TForm2, por ejemplo, en lugar de TCustomForm) eso te obligaría (el compilador en realidad) a añadir la unit donde se encuentra definido TForm2, al USES.

[rgstuamigo]

A caray.. entonces no se permite poner ningun Uses en la unidad en cuestion?
Bueno... no soy bueno para trabajar con Paquetes y el manejo RTTI en Delphi pero mi pregunta es entonces:
Neftalí, se puede hacer un casting en delphi hacia una clase específica teniendo el nombre de clase específica en una variable?
Por que si se lograse hace eso, se podría utilizarlo en éste caso ¿verdad? o no es posible hacer eso?
Saludos...

[roman]

Empezado por rgstuamigo

Neftalí, se puede hacer un casting en delphi hacia una clase específica teniendo el nombre de clase específica en una variable?

Lo que puedes es obtener la clase a partir de su nombre con GetClass, tal como lo hace adonias. Pero el moldeo (casting) ¿qué sentido tendría? Si moldeas es porque vas a usar un método o propiedad específica de dicha clase, pero entonces tendrías que tener la definición de la clase, o sea, en un uses, con lo cual ya no estarías cargando dinámicamente el paquete.

// Saludos

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

Empezado por rgstuamigo

A caray.. entonces no se permite poner ningun Uses en la unidad en cuestion?

Justo en este caso es en el que no se puede hacer.
La gracia de cargar los paquetes de forma dinámica con LoadPackages, es que el ejecutable en el momento de compilarse y de ejecutarse no debe tener ninguna referencia a lo que hay en ese package (imagina plugIns que puedes estar o no).

Si en este caso añadimos al USES una unit del TForm2, cuando Delphi compile el proyecto pedirá esa unit y la incluirá en el EXE o si estubiera con packages se asegurará de "linkar ese package de foma estática" para que ese package exista al ejecutar (y eso es justo lo que no queremos -que lo linke de forma estática-).

Empezado por rgstuamigo

Bueno... no soy bueno para trabajar con Paquetes y el manejo RTTI en Delphi pero mi pregunta es entonces:
Neftalí, se puede hacer un casting en delphi hacia una clase específica teniendo el nombre de clase específica en una variable?
Por que si se lograse hace eso, se podría utilizarlo en éste caso ¿verdad? o no es posible hacer eso?

Justo para solventar eso es para lo que utilizamos la RTTI.
Teniendo el nombre de una clase no puedes "castear por ella", pero con RTTI puedes acceder a la Clase, acceder a sus métodos, ejecutarlos, acceder a las propiedades, modificarlas,...

En principio teniendo el string 'TForm2' podemos hacer casi todo, pero no llegaremos a:

Código Delphi [-]
Form2 := TForm2.Create();
Form2.Label.Caption := 'hola';

Podemos llegar a hacer lo mismo por RTTI, pero no al menos de esta forma.

AÑADO: Se me ha adelantado Román y lo ha explicado perfecto y conciso... ;-)

[roman]

Aunque usar RTTI no es, en mi opinión, lo más adecuado. Siempre es preferible tener una interfaz entre la aplicación y los paquetes para que ambos se comuniquen.

// Saludos

[rgstuamigo]

Ajaá.. ya voy entendiendo mejor la cuestion esa de "cargar dinámicamente paquetes" aunque en RTTI estoy verde aún.

Empezado por roman

Lo que puedes es obtener la clase a partir de su nombre con GetClass, tal como lo hace adonias. Pero el moldeo (casting) ¿qué sentido tendría?

Ok.. ya no tiene sentido dicho moldeo en el caso de cargar dinamicamente, pero si no estoy trabajando con carga dinámica, es posible hacer dicho moldeo(casting) teniendo la clase con GetClass? de ser así me podrias dar un ejemplo si no es mucha molestia?
Saludos..

[roman]

¡Polimorfismo!

Con GetClass obtienes una referencia de clase. En el caso que nos ocupa, como al menos se sabe que la clase referenciada es un descendiente de TForm, puedes hacer el moldeo con TForm y así llamar al constructor.

El polimorfismo es entonces, lo que permite que la instancia construida sea de la clase derivada y no de TForm.

Así pues, no puedes hacer el moldeo, pero sí construir los objetos de la clase adecuada.

// Saludos