[FOV2001]

Amigos del foro saludos desde Buenos Aires.

Imagino que esta pregunta es un tanto basica, pero luego de rebuscar, ya no tengo donde recurrir y espero puedan ayudarme.

El contexto es asi:

Una DLL que crea un formulario, y varios Datamodule para comunicarse con diferentes perifiericos.

Ademas, debo guardar datos en una base de datos.

El datamodule que creo, tiene adentro un ADOConnection.

Cuando inicializo ese Datamodule en particular, se friza todo y se RECUELGA.

Les paso el codigo y de ahi en más quedo en sus manos para una solucion.

function CreateDATABASE(): Longint;
begin
try
Application.CreateForm(TMod_Base_Facturas, Mod_Base_Facturas);
Result := 0;
except
Result := -1;
end;
end;

Function DestroyDATABASE() : Longint; // Para Delphi y VB
begin
try
if Assigned(Mod_Base_Facturas) then
begin
FreeAndNil(Mod_Base_Facturas);
Application.ProcessMessages();
end;
Result := 0;
except
Result := -1;
end;
end;

initialization
CreateDataBase;

finalization
DestroyDatabase;

end.

De más está decir que toda ayuda será SUPER AGRADECIDA.

Fernando