No hay respuestas en este tema

[look]

tengo el siguiente procedimiento para llamar un formulario dentro de un bpl.

delphi

procedure TFrmPrincipal.SpeedButton3Click(Sender: TObject);
var Factura:procedure;
begin
    try
       PckgModuleFac := LoadPackage('ModFac.bpl');
       if PckgModuleFac <> 0 then
       @Factura := GetProcAddress(PckgModuleFac, 'Factura');
       Factura;
    except
      ShowMessage('Error al cargar ModFac.Bpl ');
    end;
end;

y en el formulario de factura exporto el procedimiento de la siguiente manera.

delphi

procedure Factura;
begin
  if NOT Assigned(FrmFactura) then
  Begin
     FrmFactura := TFrmFactura.Create(Application);
     FrmFactura.Show;
     EXIT;
  END
  ELSE;
     FrmFactura.Show;
     FrmFactura.WindowState := wsMaximized;
end;
exports Factura;

he tradado de hacer esto pero me da error:

delphi

  procedure TFrmPrincipal.SpeedButton3Click(Sender: TObject);
  var Factura(tipo:string):procedure;
  begin
      try
         PckgModuleFac := LoadPackage('ModFac.bpl');
         if PckgModuleFac <> 0 then
         @Factura(tipo:string) := GetProcAddress(PckgModuleFac, 'Factura');
         Factura('test');
      except
        ShowMessage('Error al cargar ModFac.Bpl ');
      end;
  end;
 

 
  y en el formulario de factura exporto el procedimiento de la siguiente manera.
 
 

delphi

  procedure Factura(tipo:string);
  begin
    if NOT Assigned(FrmFactura) then
    Begin
       FrmFactura := TFrmFactura.Create(Application);
       FrmFactura.Show;
       EXIT;
    END
    ELSE;
       FrmFactura.Show;
       FrmFactura.WindowState := wsMaximized;
  end;
  exports Factura(tipo:string);
 

lo que quiero hacer es mandarle un parametro string al procedimiento.

Saludos!!!