Aplicacion con Plugin

[mjjj]

Gracias Neftali por tu respuesta, me fue de mucha ayuda.
Tengo otras dudas.

Mi aplicación consta del ejecutable (3 forms y 1 DataModule), 3 paquetes de carga dinámica (desarrollados por mi), y librerias de terceros.

Me interesa que las librerias de terceros se cergen de forma estatica, pero que ademas esten en una carpeta dentro de la carpeta donde esta instalado la aplicación. Esto se define en las opciones de proyecto... ¿en search path?

El Datamodule contiene los componentes necesarios para conectarme con la BD. En los paquetes se carga dinamica, le agrego el datamodule como "uses datamodule". el problema ocurre al tratatr de cargar un paquete cuando tengo otro abierto, me arroja que en otro paquete ya se esta usuando el datamodule.

Como puedo solucionar esto?

Gracias

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

Empezado por mjjj

Mi aplicación consta del ejecutable (3 forms y 1 DataModule), 3 paquetes de carga dinámica (desarrollados por mi), y librerias de terceros.
Me interesa que las librerias de terceros se cargen de forma estatica, pero que ademas esten en una carpeta dentro de la carpeta donde esta instalado la aplicación. Esto se define en las opciones de proyecto... ¿en search path?

Para que las librerías (en este caso las de terceros) se carguen de forma estática no debes hacer nada especial; Lo mismo que haces cuando utilizas Units o componentes de Delphi. Añadir las units que necesitas al USES y eso hace que esas librerías se comprueben y se "linken" en compilación. Por lo tanto esas librerías se cargarán de forma estática.
justamente al añadirlas a los USES estás consiguiendo eso.

Empezado por mjjj

El Datamodule contiene los componentes necesarios para conectarme con la BD. En los paquetes se carga dinamica, le agrego el datamodule como "uses datamodule". el problema ocurre al tratatr de cargar un paquete cuando tengo otro abierto, me arroja que en otro paquete ya se esta usuando el datamodule.
Como puedo solucionar esto?

Este es el caso justo al contrario de lo que te he explicado antes.
Para los paquetes que quieres cargar de "forma dinámica" NUNCA debes añadir las Units que contienes al USES; Al añadir una unit al USES, estás haciendo que ese paquete se cargue de forma estática.

Ves la diferencia:

CARGA ESTÁTICA: Añades la units a los USES; Eso hace que el compilador las necesite en el momento de compilar y las compruebe; Esos USES hacen que esas BPL's se carguen de forma estática. Es lo que hacemos normalmente con todas las units de Delphi (Classes, forms, stdCtrls, Grids, DB,...) y con cualquier otro componente de terceros que uses.

CARGA DINÁMICA: Para un package que quieres cargar de forma dinámica, ninguna de las units que contiene debe estar referenciada en un USES. En cuanto haya un USES que haga referencia a una de sus units, se cargará estáticamente.

Por defecto los packages que se cargan de forma estática, se buscan en primer lugar, en el directorio de la aplicación y luego en los directorios del path. Si copias los BPL's que se cargan de forma estática en el mismo directorio de tu aplicación, no debes hacer nada especial; Es el primer sitio donde se buscan.

No deberías añadir en el USES el Datamodulo; Creo que lo lógico sería pasarlo en ejecución; A través de una función o propiedad, por ejemplo. Si lo añades al USES de cada paquete, saeguramente delphi lo estará añadiendo en cada uno de los packages, de ahí el error en ejecución.


Un saludo.

[mjjj]

Gracias Neftali, ya tengo casi resuelto este tema. Ahora se me presento otro asunto.

Al cargar un paquete de forma dinimica utilizo el sieguiente codigo

Código Delphi [-]
BEGIN
PackageModule := LoadPackage('c:\PROGRAMAS\DOMMO_3\aer.bpl');
  if PackageModule <> 0 then
  begin
    AClass := GetClass('TForm3');
    if AClass <> nil then
      with TComponentClass(AClass).Create(self) as Tcustomform do
      begin
        parent := panel1;
        Show;
      end;
  end;
end;

El cual no arroja errores, pero por ejemplo los TEdit que están en el paquete cargado, pareceiera que estuvieran con la propiedad enabled en falso, siendo que esto no es asi. Los componentes Tbutton funciionan bien.

Ahora bien si le comento la linea del parent, me funciona perfecto.

También me he fijado si el TPanel esta enabled en true, y es así.

Porque podrá ser esto?

Gracias

[mjjj]

Adjunto un ejemplo con lo que ocurre.
Me di cuenta que en vez de crear un Tform, creo un TFrame, y si que funciona bien, pero no quiero un Tframe ya que no tiene la barra del form y así poder moverlo.

Problema:
El TEdit, Tmemo del Form que es creado de ejecución, al precer como que ha perdido propiedades... no lo puedo seleccionar, ni escribir, etc.

Con el resto de componentes funciona bien... Tlistbox, Tcombobox, etc.

Que podrá ser esto??

Gracias

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

Empezado por mjjj

Adjunto un ejemplo con lo que ocurre.

Como ya te he dicho, mejor que subas el código. El ejecutable sólo no sirve. No incluye packages y además yo no tengo instalado D2010 y no poseo los packages de librerías.
Como ya te he dicho es más sencillo subir los fuentes y que cada uno pueda compilarlo en sus sistema.

[mjjj]

Gracias Neftali, tienes toda la razón adjunto código de ejemplo problema.

Aqui se me presentan 2 situaciones. En primer lugar los Tedit y Tmemo (que he detectado por el momento), ocurre que no lo puedo seleccionar, probando descubrí que si en el evento onclick del mismo componente escribí setfocus, funciona pero no es como debiese ser. Por otro lado esto ocurre cuando creo un TForm en tiempo de ejecución y que además el parent sea un TPanel. Si comento la linea del parent funciona bine. Por otro lado en vez de crear un Tform, creo un Tframe aquí si que funciona todo bien, pero no es lo que necesito.

Segundo problema, al crear un Tform que está en una libreria llamada "prueba", en este form existe un Tquery, al cual necesito pasarle la propiedad database y transaction antes de poder abrirlo, pero no puedo hacerlo con un uses ya que está en una librería de carga dinamica.

Espero se entida lo que necesito resolver.

Saludos

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

Hola mjjj.
En el proyecto que has pasado falta el package de prueba y lo más importante el formulario de la discordia (Form4).

He creado uno con un par de componentes y te lo subo. Ahí verás cómo se pueden ejecutar métodos vía RTTI, que creo que es lo que puede solucionar tu problema.
Hay un método sin parámetros y otro con parámetros, que supongo que es lo que tú necesitas para pasarle la Transacción, DataBase,...

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

Empezado por mjjj

El cual no arroja errores, pero por ejemplo los TEdit que están en el paquete cargado, pareceiera que estuvieran con la propiedad enabled en falso, siendo que esto no es asi. Los componentes Tbutton funciionan bien.

Ahora bien si le comento la linea del parent, me funciona perfecto.

También me he fijado si el TPanel esta enabled en true, y es así.

Porque podrá ser esto?

Es difícil saber qué está pasando sin ver el código.
Unos cuantos mensajes más arriba envié el código del proyecto (Test Packages dinamicosv2.zip), porqué no haces las modificaciones sobre ese y lo subes (el fuente) para que podamos probarlo.