Liberar memoria

[[Lepe]]

Empezado por vicvil

¿Que entrete no?

No. Era de esperar.

Código Delphi [-]
try
Query.ExecSql
except
end;

Al no poner nada entre el except... end, estas diciendo que si ocurre alguna excepción, simplemente se la coma con patatas y siga adelante. Por eso no muestra ningún mensaje de error. Debes hacer lo siguiente:

Código Delphi [-]
try
Query.ExecSql
except
  on E: Exception do
  ShowMessage(Format('Atencion error de tipo: %s', [E.ClassName]));
end;

Ver si da fallos en ejecución y despues controlar los fallos que dé.

Código Delphi [-]
try
Query.ExecSql
except
  On E: << el tipo que te haya mostrado el ShowMessage anterior>> do
  begin
     << controlar de la forma oportuna >>
  end;
  On E: << otro tipo de fallo >> do
  begin
  << lo que sea>>
  end
  else
    ShowMessage(Format('Atencion Error No esperado de tipo: %s', [E.ClassName]));
end;

Por cierto, sigo diciendo que un Log del estilo que comenté es necesario para este tipo de cosas.

Saludos

[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.