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

Código Delphi [-]
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

Código Delphi [-]
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).