Error: Al salir de un programa que llama a un proc de una dll que conecta con BDD

[ozsWizzard]

Hola, muy buenas a todos.

Pongo la duda en el hilo de varios porque es un conjunto de cosas y, aunque tengo muy acotado el error, no sé si es exactamente por eso. Bueno, explico:

Con Rad Studio XE2 Delphi Update 1.

He creado un proyecto dll que tiene un procedimiento que conecta con BDD(base de datos), utilizo dbexpress con SqlServer 2005, mediante un TSQLConnection.

Desde otro programa llamo a dicho procedimiento y, en principio, funciona correctamente. El problema viene cuando salgo de este programa, que me da el siguiente error 'access violation at 0x0643e187: read of adress 0x065967f4' y le doy a continuar y me aparece de manera indefinida (hasta que haga ctrl + F2) el siguiente error (con el mismo tipo de excepción C$00000005) 'access violation at 0x02895dd2: read of adress 0x046c8648'.

Sé que con los mensajes de error no se sabe cual es el problema, pero pongo todo por si acaso, sé que son errores de acceso a memoria, pero no sé por donde puede venir.

Pruebas y más información:
1.- Desde la dll se abre un formulario. He probado a abrir el formulario y no hay problema, es sólo cuando hago un "conex.conected(TSQLConnection) := true". Después me aseguro de cerrar la conexión y todo, pero nada, peta.

principal dll

library MyDll;

{ Important note about DLL memory management: ShareMem must be the
first unit in your library's USES clause AND your project's (select
Project-View Source) USES clause if your DLL exports any procedures or
functions that pass strings as parameters or function results. This
applies to all strings passed to and from your DLL--even those that
are nested in records and classes. ShareMem is the interface unit to
the BORLNDMM.DLL shared memory manager, which must be deployed along
with your DLL. To avoid using BORLNDMM.DLL, pass string information
using PChar or ShortString parameters. }

uses
System.SysUtils,
System.Classes,
Forms,
Dialogs,
uFrm in 'forms\uFrm.pas' {Frm};

procedure Llamada (Host, BDD: String); stdcall;
var
f: TFrm;
begin
f := TFrm.Create(Application, Host, BDD);
try
f.Mostrar;
finally
f.Free;
end;
end;

exports Llamada;

begin
end.


Frm de la dll

unit uFrm;

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ImgList,
Vcl.StdCtrls, Vcl.Buttons, Vcl.ComCtrls, sListView, Vcl.ExtCtrls,
Data.DBXMSSQL, Data.DB, Data.SqlExpr;

type
TFrm = class(TForm)
Conex: TSQLConnection;
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
Conectado: Boolean;

function Mostrar: Boolean;
constructor Create(AOWner: TComponent; pHost, pBDD: String); Reintroduce;
end;

var
Frm: TFrm;

implementation

{$R *.dfm}

{ TFrm }

constructor TFrm.Create(AOWner: TComponent; pHost, pBDD: String);
Var
Res: Integer;
begin
inherited Create(AOwner);

Conectado := false;
repeat
Conex.Params.Values['HostName'] := pHost;
Conex.Params.Values['DataBase'] := pBDD;
Conex.Params.Values['User_Name']:='usu';
Conex.Params.Values['Password']:='pass';
try
Conex.Connected := true;
Conectado := true;
except
Res := MessageDlg('No se ha podido conectar con BDD!',
mtError, [mbCancel, mbRetry], 0);
end;
until (Res <> 5);
end;

procedure TFrm.FormDestroy(Sender: TObject);
begin
Conex.Connected := false;
end;

function TFrm.Mostrar: Boolean;
begin
if Conectado then
ShowModal;
end;

end.

[ozsWizzard]

Me tengo que ir, mañana seguiré explicando...

[Neftali [Germán.Estévez]]

Sólo lee el texto comentado que hay al principio del fichero library MyDll, que has puesto como primer código y pruébalo.

[ozsWizzard]

Muchas gracias Neftali, como no tengo mucha idea de inglés ni reparé en ese texto.

He hecho lo que pone pero el problema persiste, ahora sólo me sale un mensaje en lugar de dos (quiero decir, que las direcciones de memoria son las mismas desde el primer mensaje, antes en el primero era distinto de los posteriores).

Sigo sin saber por donde van los tiros, sé que algo tiene que ver con la conexión a la base de datos, pero no entiendo por qué, son conexiones independientes (la del programa y la de la dll, aunque sea a la misma base de datos).

[ozsWizzard]

De momento lo he solucionado haciendo un ejecutable con parámetros.

Le daré más vueltas porque me jode no saber que pasa., además, es la dll lo que queda más "pro".

Un saludo y que paséis buen fin de semana.

[ozsWizzard]

Después de mucho investigar... no he conseguido que funcione pero creo que sé cual es la fuente del error. Es el dbExpress.

Lo explico mejor:

1.- He creado una dll con dos funciones, una que conecta con la base de datos mediante dbExpress y otra, que hace exactamente lo mismo que la anterior pero con ADO.

2.- A ambas funciones les he puesto mensajes para saber si conectaban a base de datos y si desconectaban de las mismas. (siempre he obtenido el resultado esperado)

3.- Creo un programa con dos botones, uno llama a las primera función y el otro a la segunda función. Resultados:
a) Cuando el programa ha llamado a la primera función, al cerrar el programa da un error eterno (que se repite una y otra vez) imposible de capturar.
b) Cuando el programa NO ha llamado a la primera función, al cerrar el programa no da ningún problema (por mucho que llame a la segunda función).

[ozsWizzard]

Datos curiosos:

Dato 1: De hecho, en la primera función, si comento el "Conection.Conected = true" (esto hace que no se conecte, lo sé), el programa si cierra.

Dato 2: Y digo más, en la función uno, si le paso parámetros incorrectos de la base de datos y el "Conection.Conected = true" no consigue conectar... también falla.

(Lo comento por si alguien piensa que se queda algo de la conexión abierta, es el simple hecho de intentar conectar lo que hace que el programa que llama a la dll pete al cerrar).