Mandar parametro a procedimiento exportado
 

hola, tengo un form "FrmFacturacion" en una bpl y exporto una procedimiento para llamarlo desde mi aplicacion :

Código Delphi [-]
procedure cFacTrn;
begin
     FrmFacturacion := TFrmFacturacion.Create(Application);
     FrmFacturacion.ShowModal;
     EXIT;
end;
exports cFacTrn;

y de esta manera lo llamo desde mi aplicacion:

Código Delphi [-]
procedure TFrmPrincipal.btnFacturacClick(Sender: TObject);
var cFacTrn : procedure;
begin
    PckgModuleFac := LoadPackage('ModFac.bpl');
    if PckgModuleFac <> 0 then
    try
      @cFacTrn := GetProcAddress(PckgModuleFac, 'cFacTrn');
      cFacTrn
    except
      on e:Exception
      do
      begin
        ShowMessage('Error al cargar ModFac.Bpl '+#13+pchar(e.Message)) ;
      end;
    end;
end;

todo esto me funciona perfectamente, el problema es que estoy intentando mandarle parametros al formulario que esta en la bpl. algo asi:

Código Delphi [-]
procedure cFacTrn(par:integer);
begin
      MessageDlg('Parametro'+inttostr(par),mtInformation, [mbOK], 0);
     FrmFacturacion := TFrmFacturacion.Create(Application);
     FrmFacturacion.ShowModal;
     EXIT;
end;
exports cFacTrn(par:integer);

no he podido lagrar mandarle un parametro a un procedimiento exportado de una bpl..... :mad:

espero puedan ayudarme....


Saludos!!!!

solucion:

Código Delphi [-]
procedure TFrmPrincipal.btnFacturacClick(Sender: TObject);
 var cFacTrn: procedure(S:Integer); stdcall;
begin
    try
      PckgModuleFac := LoadPackage('ModFac.bpl');
      if PckgModuleFac <> 0 then
      @cFacTrn := GetProcAddress(PckgModuleFac,'cFacTrn');
       cFacTrn(1);
    except
      on e:Exception
      do
      begin
        ShowMessage('Error al cargar ModCxc.Bpl '+#13+pchar(e.Message)) ;
      end;
    end;
end;

esta fue la solucion.... :)

gracias por tomar su tiempo en leer este post....