Componentes en librerias DLL

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

Creo que lo correcto es que le pases a la DLL los valores y en todo caso que desde la DLL se asignen los valore a los componentes.

De todas maneras no accedes a la DLL como variable, sino que dentro tendrás un Form (me imagino) con componentes dentro, así que en cualquier caso seguirás accediendo al form.

[adonias]

Estube buscando en el foro, y lei que hay componentes BPL.

Una vez que los cargo con LoadPackage, puedo llamar alguno de los componentes?

[adonias]

Ok.

Hasta aqui voy bien.

Cargo el paquete en el form1

Código Delphi [-]
procedure TFrm.FormCreate(Sender: TObject);
var
  PackageModule: HModule;
  AClass: TPersistentClass;
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
        ShowModal;
        labelForm2.Caption := 'hola';   <---- No llego al form2
        Free;
      end;

    UnloadPackage(PackageModule);
  end;

end;

El problema es cuando intento llegar al label del form2

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

Lo primero que veo es que si utilizas ShowModal, no accederás a la línea que comentas hasta que no cierres el formulario,por lo tanto en este caso debería utilizar Show.

Por otro lado, como estás accediendo al formulario de forma genérica, para acceder al label puedes utilizar FindComponent, por ejemplo.

Cambia el código por este:

Código Delphi [-]
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;

Además en el package debes registrar la clase del formulario para poder encontrarla posteriormente con GetClass.

Al final de la Unit del Form2 coloca este código:

Código Delphi [-]
initialization
  RegisterClass(TForm2);

finalization
  UnregisterClass(TForm2);

Por último asegurate de que estás compilando el proyecto con la opción "Build with runtime Packages".

Descarga este ejemplo y revisa el código, creo que te puede ser de utiidad (Sistema de plug-ins utilizando packages dinámicos).

Un saludo.

[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.