Comunicacion entre BPL

[adonias]

Una pregunta Basica.

Estoy experimentando con los archivos BPL, cargandolos con LoadPackage.

Mi pregunta es si puede haber comunicacion entre el MainForm y el BplForm.

Ejemplo:

MainForm carga al BplForm, y luego el BplForm llama una funcion del MainForm.

MainForm carga al BplForm, y el MainForm modifica elementos del BplForm (Labels, Input, etc)

Gracias

[droguerman]

Creo que sólo tienes dos opciones o crear herencia de formularios de manera de que la clase del formulario sea común tanto a la aplicación como al bpl (no sé me ocurre claramente como) o que crees una función en tu bpl que tenga como parámetro un TForm y manejar los controles mediante FindComponent

[ContraVeneno]

Puedes crear un BPL intermedio, para que te sirva de comunicación entre tu formulario principal y tu BPL cargado con LoadPackages, es decir, cargado de forma dinámica.

El punto clave es que tu BPL intermedio, deberá ser cargado de manera estática en tu formulario principal y en tu BPL lo debes de cargar utilizando el archivo DCP que se genera, igual de forma estática.

Con esto puedes tener acceso a este BPL desde tu formulario principal y hacerle cambios a las variables o a los objetos que contenga, estos cambios se verán reflejados desde tu BPL dinámico. De igual forma, si haces cambios al BPL intermedio desde tu BPL dinámico, estos cambios los podrás ver desde tu formulario principal.

Yo por ejemplo, estoy utilizando un DataModule en mi BPL intermedio...

MiPrograma.exe <----> DataModule.bpl <------> UnModulo.bpl

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

Si quieres ejemplos de lo que te han dicho en mi web hay varios ejemplos y código sobre el tema:

Acceder a las propiedades de un componente vía RTTI
Modificar propiedades de controles en ejecución utilizando RTTI

DLL’s, BPL’s, Carga dinámica/Estática y “Packages en Runtime”

Sistema de PlugIns en Delphi – Parte 1
Sistema de PlugIns en Delphi – Parte 2

Sistema de Plug-ins utilizando packages dinámicos

[adonias]

Gracias Neftali.

Con esto pude solucionar el ejemplo 2

MainForm carga al BplForm, y el MainForm modifica elementos del BplForm (Labels, Input, etc)

Código Delphi [-]

procedure TFrm.FormCreate(Sender: TObject);
var
  PackageModule: HModule;
  AClass: TPersistentClass;
  componentLabel: TComponent ;
begin
  PackageModule := LoadPackage('Package1.bpl');
  if PackageModule <> 0 then
  begin
    AClass := GetClass('TForm2');

    if AClass <> nil then
      with TComponentClass(AClass).Create(Application)
        as TCustomForm do
      begin
        Show;

        // Buscar el Label
        componentLabel := FindComponent('label1');
        // lo ha encontrado?
        if Assigned(componentLabel) then begin
          TLabel(componentLabel).Caption := 'hola';
          MessageDlg('¿Ves el cambio?  Pulsa para continuar y cerrar...', mtConfirmation, [mbOK], 0);
          TLabel(componentLabel).Caption := 'Adiós';
          MessageDlg('Lo he vuelto a cambia......', mtConfirmation, [mbOK], 0);
          //Free;
        end;
      end;
  end;


end;

Ahora, me interesa lo que dice ContraVeneno.

¿ContraVeneno tienes algun ejemplo?

¿Tu dices que en vez que cargue el archivo Package1.dcp en vez del Package1.bpl?

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

Empezado por adonias

Ahora, me interesa lo que dice ContraVeneno.
¿ContraVeneno tienes algun ejemplo?
¿Tu dices que en vez que cargue el archivo Package1.dcp en vez del Package1.bpl?

Pues en uno de los ejemplos que te he pasado, si no me equivoco tienes justamente ese ejemplo (aunque ampliado).



Tu PlugIn Base corresponde al package PlugBasic.bpl, que hace de "package intermedio"; Se carga de forma estática y el resto de packages que se cargan con LoadPackage (dinámicamente) derivan de el.

De esta forma cuando cargas el Plugin3 (que deriva de plugBasic) puedes acceder a él con los métodos genericos de PLugBase.