Liberar memoria

[vicvil]

Hice lo que me indicaste pero me aparece un error mas bien generico entiendo. Me envia el mensaje EDBEngineError para mi esto no me dice mucho, debe haber alguna forma de ver el error exacto. ¿Como se puede hacer?

[[Lepe]]

Quizás el mensaje de la propia excepción te ayude algo más:

Código Delphi [-]
  ShowMessage(Format('Atención error de tipo: %s. Mensaje de error: %s', [E.ClassName, E.Message]))

Saludos

[vicvil]

Hice la prueba.
Me arrojó el mensaje de error, pero este mensaje me dejó mas consternado aun, ya que dice lo siguiente:

"Too many open databases
Alias"

¿Por que si yo estoy cerrando los querys?
Incluso hice la prueba cerrando y liberandolos y aun asi me envía el error.
Yo creo que no libera la memoria como debería hacerlo.

[[Lepe]]

Lo que nadie te ha dicho de paradox, es que al situar un TTable, TQuery, etc en una ventana, delphi crea implicitamente un objeto TSession y un objeto TDatabase, y los usa para gestionar todos esos objetos de acceso a datos que has puesto.

Para una aplicación simple, (de escritorio), de un solo usuario, accediendo a tablas que forman parte "de una sola base de datos", no hace falta echar cuenta a esos dos individuos, pero al realizar tareas avanzadas como tú estas haciendo, sí hay que tenerlo en cuenta.

Según dice son "Alias abiertos" y creo que viene por aquí el problemilla:

Empezado por Lepe

Otra cosa que puede ocurrir es que no cambie de carpeta correctamente. Al ser tablas paradox, antes de cambiar la ruta de carpeta, tienes que cerrar el Database y la Session, modificar la ruta y despues reabrirlo. (si no usas esos componentes... deberías)

Cuando cambias el DatabaseName (para redirigir la entrada a otra carpeta), debes cerrar la session, el Database, configurar las nuevas rutas y abrirlos de nuevo.

Lo que está ocurriendo, es que al asignar el DatabaseName, crea "una conexión nueva" a la carpeta, dichas conexiones se van acumulando en memoria hasta que se excede el límite permitido.

2 Soluciones:
- Usa Database.Connected := false cada vez que vas a cambiar de carpeta.
- Añade un TDabase y un TSession y configuralos a tu gusto.

Saludos

[vicvil]

Gracias, eso queria saber.
Voy a hacer las pruebas.