Crear una Dll con mudulos y formularios
 

Hola Foro:

Necesito crear una dll para mi aplicación , he logrado hacer funcionar la Dll con formularios incluidos lo que quiero ahora es cololar un Data Module en mi aplicación de Dll les muestro un poco del codigo:

Código Delphi [-]
library TEFdll; 
uses
  SysUtils,
  Classes,
  forms,
  frmTEF;
{$R *.res}
procedure Crear_form;
begin
  Application.CreateForm(TfrmTEF1, frmTEF1);
  frmTEF1.ShowModal;
end;

procedure free_form;
begin
  frmTEF1.Free;
end;

exports  Crear_form, free_form;
end.

Cuando quiero llamar una conección ADO que tengo definida
en mi Dll me sale un la siguiente error:

Access violation at address 010041a7 in module 'mi dll'. Read of
address 00000058.

Creo que es por la conneción ADO.

Por favor pido su ayuda para corregir este error o algun link
para poder convertir un Data Module a Dll

Gracias
Marcelo:rolleyes:

Mmmmm.. No gustó!..
Te recomiendo este hilo: http://www.clubdelphi.com/foros/showthread.php?t=897

Saludos!

Problemas
 

Ese ejemplo es muy simple, necesito un ejemplo mas avanzado Dll con mudulos, lei en otro foro que se puede convertir un modulo a una Dll pero no dice como
Espero puedas ayudarme....

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 );