Ver Mensaje Individual
  #1  
Antiguo 22-08-2011
Avatar de look
look look is offline
Miembro
 
Registrado: sep 2007
Ubicación: The Shire
Posts: 656
Reputación: 19
look Va camino a la fama
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.....

espero puedan ayudarme....


Saludos!!!!
__________________
all your base are belong to us
Responder Con Cita