Comunicacion entre BPL

[ContraVeneno]

Es exactamente lo que comenta maese Neftalí... yo no podría explicarlo mejor.

[adonias]

Muchas gracias a los 2.

Lo he logrado utilizar el PlugBase

Ahora, el problema que tengo es capturar el evento onClose, y onHide

Este es el codigo

Código Delphi [-]

unit Principal;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, ShellApi,
Graphics, Controls, Forms, Dialogs, StdCtrls;

Type
TEvnPro = class(TForm)
    procedure FormHide(Sender : TObject; var Action : TCloseAction);
end;

var
  EvnPro : TEvnPro;
  AClass: TPersistentClass;
  handle: HModule;
  Titulo, Version: TComponent ;
  FBase : Tform;
  Ver : Boolean;


implementation
{$R *.DFM}

Function VersionProg(*****):Boolean;stdcall;external 'lib/Version.dll';

Procedure TEvnPro.FormHide(Sender : TObject; var Action : TCloseAction);
begin
    showMessage('Te Pille');
end;

initialization

    {* verifico la version del programa *}
     Ver := VersionProg(***);

    if Ver then begin

      {* verifico que el modulo existe, junto con el archivo *}
      if FileExists('bin/PlugBase.bpl') then
      begin
          {* Cargo el modulo a memoria *}
          handle := LoadPackage('bin/PlugBase.bpl');

          {* si es un modulo válido *}
          if handle <> 0 then
            begin

            AClass := GetClass('TBase');
            if AClass <> nil then
            begin

              FBase := nil;
              FBase := TComponentClass(AClass).Create(Application) as TForm;
              FBase.Tag := handle;

              FBase.ShowModal;

              FBase.OnHide := TEvnPro.FormHide;    <-- No puedo Capturar el Evento (E2009 Incompatible types: 'Parameter lists differ')

            end;
          end;
      end;

    end
    else begin

      showmessage( 'Versión Incorrecta!' );

    end;


end.

Muchas gracias nuevamente por la ayuda

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

Se puede hacer lo que quieres, pero tal y como lo tienes hecho hay algunos problemas:

(1) Los parámetros del evento OnHide, no coinciden con los de la rutina que estás colocando; Creo que te has hecho un lío con el OnClose.

Código Delphi [-]
    procedure myFormHide(Sender : TObject);

(2) Esta línea también tiene "cosas raras":

Código Delphi [-]
FBase.OnHide := TEvnPro.myFormHide;

Piensa que estás asignando el evento FormHide, no de ningun objeto, sino que pones directamente la referencia a una clase (TEnvPro....), además de lo comentado de que nocoinciden los parámetros.

(3) Si colocas el evento en el Initialization tendrás que acer referencia al evento como:

Código Delphi [-]
FBase.OnHide := EvnPro.myFormHide;

Te paso un ejemplo con algunos cambios.

[adonias]

Muchas gracias Neftali...

La verdad es que estoy medio confundido.

He estado programando bastanbte tiempo en Extjs y PHP, y uno se acostumbra a clases y a programar de una manera mas flexible.

Siempre cuando empiezo un proyecto me gusta trabajar por modulos, ya que es mas facil detectar los problemas.

Ahora, este es el esquema de lo que estoy haciendo.



No se si sera el correcto desde tu punto de vista.

1.- El programa parte con la carga del unit Main.pas

2.- Luego que verifico que la version este ok, cargo el BPL Base, como tu lo recomendaste.

3.- El BPL Base tiene unas variables para verificar si estoy logueado o no. Si NO estoy logueado, llamo al Bpl login.

Una vez que el BPL login me responde true o false.

Retorno, la respuesta al Main, y comienzo a cargar los otros BPL a travez del BPL Base.

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

Hola Adonias.
Es tema que planteas es difícil.
Los packages no son la "panacea" y no creo que la solución sea utilizar packages para todo. Como ya has visto, trabajar con packages no es sencillo y además conlleva una complicaión adicional a la hora de programar.

Lo primero que hay que diferenciar a la hora de trabajar con packages es si estamos hablando de carga estática o dinámica.

(1) Carga estática.
Trabajar con carga estática, creo que es más una decisión de diseño. En este caso la complicación no es tanta y podemos programar de una forma "más normal". Seguramente la división por packages en este caso, está más enfocada a aplicaciones grandes o muy grandes, que requieren una organización conceptual en bloques o por temas de dicisión conceptual.

(2) Carga dinámica.
En este caso ya es un cambio radical y no debemos tomarlo a la ligera. La carga dinámica de packages tienes ventajas y algunas de las características que consigues utilizándola, no podrías obtenerlas de otra manera; Características como el trabajo con de Plugins o Addins, modilaridad total, independencia,... El problema es que el "precio a pagar" también es alto, pues debes trabajar utilizando RTTI; Esto no es lo más sencillo ni lo más óptimo (como ya se ha comentado aquí).

Lo que quiero decir con esto, es que es una decisión importante y no se debe tomar a la ligera. Se debe tener en cuenta que los packages "no son la mejor opción siempre", hay que pensar si para lo que vamos a realizar nos viene bien utilizar esta opción, o si para las necesidades que tiene nuestro proyecto nos va bien utilizar packages.

[roman]

Empezado por Neftali

El problema es que el "precio a pagar" también es alto, pues debes trabajar utilizando RTTI; Esto no es lo más sencillo ni lo más óptimo (como ya se ha comentado aquí).

Pero es que esto no es así, como ya lo han visto antes. Es más, yo diría que, por lo general, debería evitarse el uso de RTTI.

// Saludos

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

Empezado por roman

Pero es que esto no es así, como ya lo han visto antes. Es más, yo diría que, por lo general, debería evitarse el uso de RTTI.

Pues eso es lo que intentaba decir yo, pero veo que no se me ha entendido.

Quería decir que si trabajas con packages dinámicos, deberás utilizar RTTI. Y que como esto (trabajar con RTTI) no es óptimo, sólo se debe trabajar con packages dinámicos cuando realmente lo necesites.