Aplicacion con Plugin

[mjjj]

Despues de mucho batallar logre cargar de forma dinamica mis packages.

Pero tengo algunos problemas.

La forma de cargar estos paquetes funciona asi:

Código Delphi [-]
var
  Frame :TForm;
  PackageModule: HModule;
  AClass: TPersistentClass;
begin
Frame := FindComponent ('Form5') as TForm;
if Assigned (Frame) then frame.BringToFront
else
BEGIN

PackageModule := LoadPackage('C:\PROGRAMAS\DOMMO_3\Mas.bpl');
  if PackageModule <> 0 then
  begin
    AClass := GetClass('TForm5');
    if AClass <> nil then
      with TComponentClass(AClass).Create(Application)
        as TForm do
      begin
        parent := panel1;
        Show;
   //     Free;
      end;
 //   UnloadPackage(PackageModule);
  end;
end;

Las lineas Free y UnloadPackage tuve que comentarlas, ya que cambié el showmodal, por un show. La idea de esto es que funcione como si fuera un archivo de Excel (por ejemplo), en donde pudiese cerrar, maximizar o ajustar el tamaño del form dentro del parent, en este caso un TPanel.

Esto funciona bien, pero el problema es que si ejecuto mas de una vez la rutina me sigue cargando nuevos Forms... y no es lo que quiero. Por esto agregue unas lineas al comienzo...

Código Delphi [-]
Frame := FindComponent ('Form5') as TForm;
if Assigned (Frame) then frame.BringToFront
else

esto con el afan de que si encuentra algun componente de tipo TForm (por ejemplo), en vez de crear nuevamente lo traiga al frente.

El punto es que no funcionó, me percate, que cada vez que creo el Form le agrega al nombre original "_1", "_2", "_3", y asi sucecivamente... como puedo solucioanr esto.

Por otro lado, tengo en el progrma principal 2 Tform, uno que es el con el comienza la aplicación, y el segundo un TdataModule.

Ocurre que tengo 2 paquetes, y en cada uno de ellos lo tengo linkeado con la sentencia "uses", al unit del datamodulo.

El punto es que como NO cierro estos paquetes, si tengo uno abierto y quisiera abrir el otro, me arroja un error que no se puede cargar el paquete, porque contiene un unit que está en otro paquete.

Porque ocurre esto... como puedo solucionarlo.

Espero me puedan ayudar.

Saludos

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

Hola mjjj.
Veo que la cosas van avanzando...
Te felicito, es un tema compejo, pero muy interesante, no te desanimes.

Sería bueno que subieras un proyecto (Grupo de proyectos BPG) con lo que vas haciendo, para poder ir probando (no sólo yo, sino el resto de gente). Y sobre ese proyecto se pueden ir aciendo las modificaciones y los cambios.

Empezado por mjjj

Pero tengo algunos problemas.

Revisemos...

Empezado por mjjj

La forma de cargar estos paquetes funciona asi:
...

Las lineas Free y UnloadPackage tuve que comentarlas, ya que cambié el showmodal, por un show. La idea de esto es que funcione como si fuera un archivo de Excel (por ejemplo), en donde pudiese cerrar, maximizar o ajustar el tamaño del form dentro del parent, en este caso un TPanel.

Es lógico. Si haces un ShowModal, la ejecución del programa se detiene en ese punto hasta que cierras el formulario. Si locambias por un Show, piensa que después del Show el programa sigue, así que visualizas el formulario, y justo después, lo liberas (Free) y descargas el package. Funciona, pero el resultado será que no te dará tiempo ni a verlo.

Prueba este código en el With y verás:

Código Delphi [-]
      with TComponentClass(AClass).Create(Application)       as TForm do      begin
        parent := panel1;
        Show;
        MessageDlg('Visualizado...   Continuo destruyendo', mtInformation, [mbOK], 0);
        Free;
      end;

Ahora la ejecución se detiene cuando está en pantalla en diálogo (es modal), cuando cierres el diálogo sigue y el form se destruye.

Ok, ahora supongamos que comentas las líneas del Free y del UnloadPackage, con lo que los forms que creas no se destruyen.

Empezado por mjjj

Esto funciona bien, pero el problema es que si ejecuto mas de una vez la rutina me sigue cargando nuevos Forms... y no es lo que quiero. Por esto agregue unas lineas al comienzo...

esto con el afan de que si encuentra algun componente de tipo TForm (por ejemplo), en vez de crear nuevamente lo traiga al frente.

El punto es que no funcionó, me percate, que cada vez que creo el Form le agrega al nombre original "_1", "_2", "_3", y asi sucecivamente... como puedo solucioanr esto.

Seguramente basta con que le asignes ese nombre. Estás buscando por nombre (FindComponent), pero no le asignas nombre al form, por eso al crearlo se le asigna uno automático.
También es imprescindible que el Owner del formulario creado sea el form actual, de otra forma el FindComponent no te lo encontrará.

Prueba con este código:

Código Delphi [-]
  Frame := FindComponent('Form5') as TForm;
  if Assigned (Frame) then begin
    frame.BringToFront;
    Frame.SetFocus;
  end
  else BEGIN
    PackageModule := LoadPackage('.\Mas.bpl');
    if PackageModule <> 0 then begin
    AClass := GetClass('TForm5');
    if AClass <> nil then begin
      /////  Crearlo con el OWNER A SELF
      with TComponentClass(AClass).Create(Self)       as TForm do      begin
        parent := panel1;
        Name := 'Form5';    //////NOMBRE
        Show;
      end;
    end;

Empezado por mjjj

Por otro lado, tengo en el progrma principal 2 Tform, uno que es el con el comienza la aplicación, y el segundo un TdataModule.

Ocurre que tengo 2 paquetes, y en cada uno de ellos lo tengo linkeado con la sentencia "uses", al unit del datamodulo.

El punto es que como NO cierro estos paquetes, si tengo uno abierto y quisiera abrir el otro, me arroja un error que no se puede cargar el paquete, porque contiene un unit que está en otro paquete.

Creo que esto es un problema en el diseño de los packages. Tal vez deberías subir el proyecto (o uno más pequeño de ejemplo con el mismo problema) para poder examinarlo detalladamente.

Un saludo.

[mjjj]

Adjunto el proyecto simplificado para que puedan echarle una mirada.

Los problemas son los siguientes.

1.- Resolví el asunto que cargaba muchisimas veces un package, pero el problema es que al cerrar el formulario cargado por el paquete, y lo vuelvo a cargar, me arroja que no puedo enfocarme en una ventana invisible.

2.- Si cargo un paquete, y a continuación el segundo, me arroja que no se puede cargar el paquete porque contiene el unit conect, al cual el paquete cargado también hace referencia.

Espero me puedan ayudar.

Gracias.

[mjjj]

Ahora si va el archivo.

Saludos.

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

Hola mjjj.

Te paso el ejemplo con algunas modificaciones. Tengo que marchar, así que no me puedo parar casi nada, luego si me da tiempo lo comento de forma más extensa.

* He cambiado para que las consultas apunten al BDE (y poder probarlo)
* En los formularios de los packages te falta el:

Código Delphi [-]
Action := caFree;  // en el OnClose

Para que el formulario se destruya. Si no lo que hace delphi por defcto es enconderlo (Hide), de ahí el error que te daba al abrilo la segunda vez.

Luego más. Chao.

[mjjj]

Que formato tiene el archivo adjunto... no se con que abrirlo.

Me ayudas porfavor.

Saludos.

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

Empezado por mjjj

Que formato tiene el archivo adjunto... no se con que abrirlo.

Perdón. Es un problema que tengo dede hace tiempo cuando subo ficheros ZIP al foro.
Te vuelvo a subir otro ZIP y un RAR al que tienes que quitarle la extensión ZIP a ver si alguno puedes descompimirlo.

[mjjj]

He vuelto a retomar esto, y me han surgio un problema.

El proyecto tiene un ejecutable con varios paquetes que se cargan de forma dinamica. Para que esto funcione tuve que seleccionar la opción de build with packages.

Ahora bien, una vez compilado y ejecutado en el PC donde se desarrollo funciona perfecto, pero al llevarlo a otro PC, me arroja un error que no encuentra el archivo rtl100.bpl.

Por otro lado, si retiro la opción de build with packages, se ejecuta el programa sin problema, pero al tratar de cargar los paquetes creados por mi, no ocurre nada... ni error ni paquete abierto.

Que podrá ser esto?

Espero me puedan ayudar.