Componentes en librerias DLL

[adonias]

Hola.

Una consulta basica.

Cuando creo un Form, luego puedo llamar sus componentes

Ejemplo:

Código Delphi [-]
 
...  

uses Componentes;
 
...    

Componentes.UniConnection1.Server  := ComboBox1.Text;   
Componentes.UniConnection1.UserName:= Usuario.Text;   
Componentes.UniConnection1.Password:= Pass.Text;   
Componentes.UniConnection1.ProviderName:='Oracle';   
Componentes.UniConnection1.Connect; 

...

Ahora. Cuando creo una libreria DLL, llamo funciones asi:

Código Delphi [-]
  
...  

Procedure ShowAbout(Atitle:string);stdcall;external 'Function.dll';  

...  

ShowAbout('Acerca de Funciones en DLL externas');  

...

¿Podria llamar a UniConnection1 desde la dll?


Algo asi como

Código Delphi [-]
  
  Dll.UniConnection1.Server  := ComboBox1.Text;
  Dll.UniConnection1.UserName:= Usuario.Text;
  Dll.UniConnection1.Password:= Pass.Text;
  Dll.UniConnection1.ProviderName:='Oracle';
  Dll.UniConnection1.Connect;

Gracias!

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