Ver Mensaje Individual
  #4  
Antiguo 10-06-2006
Avatar de droguerman
droguerman droguerman is offline
Miembro
 
Registrado: abr 2005
Ubicación: tierra
Posts: 999
Reputación: 20
droguerman Va por buen camino
podiras hacer una funcion en tu dll que te retorne el datamodule pero casteado como longint, recordando que todos los tipos derivador de Tobject (incluidos forms y datamodules) son punteros:

Código Delphi [-]
library Data; 
uses
  SysUtils,
  Classes,
  forms;
{$R *.res}
function obtenerDataModule: longint;
var
 oDataModule : TDataModule;
begin
  oDataModule := TDataModule.create(Application.mainForm);
result := longint(oDataModule);
end;

exports obtenerDataModule;

end.


y en tu aplicación que recoge los valores lo vuelves a castear:

Código Delphi [-]
miModulo = TDataModule( obtenerDataModule );
__________________
self.free;
Responder Con Cita