Ver Mensaje Individual
  #1  
Antiguo 09-07-2019
usuario1000 usuario1000 is offline
Miembro
 
Registrado: nov 2016
Posts: 86
Reputación: 8
usuario1000 Va por buen camino
Liberar memoria de recursos

Buenas a todos,
Utilizo una aplicación dataSnap con Delphi Seatle, programada por mi, en el trabajo y me está empezando a dar un poco de dolor de cabeza. La aplicación la utilizan varios usuarios y parece que iba bien, pero ahora se está comportando un poco rara, y me dá que no se liberan los recursos que utilizo y me explico...
Si en una función utilizo lo siguiente:

Código Delphi [-]
  qCostes := TFDquery.Create(Application);
  qCostes.Connection := conexion;
  qDocumentos := TFDquery.Create(Application);
  qDocumentos.Connection := conexion;
  qCostes.Close;
  qCostes.sql.Clear;
  qDocumentos.Close;
  qDocumentos.SQL.Clear;
  .   .   .
  qCostes.Free;
  qDocumentos.Free;





Entiendo que de esta manera se liberan los recursos utilizados, no????

El servidor cuando lo cierro, se queda colgado con el reloj de arena mostrando las letras "SQL" debajo de él. En todos las funciones donde creo un componente tipo TFDQUERY lo creo y lo elimino de la manera descrita anteriormente.


Es cierto que también utilizo componentes TFDQUERY que he agregado en tiempo de diseño, aunque ahora lo que hago es crearlos en tiempo de ejecución en las nuevas funciones que utilizo, me parece más limpio y más claro, pero algo debe estar fallando.


Se agradece cualquier aclaración al respecto...



Gracias.

Última edición por Ñuño Martínez fecha: 09-07-2019 a las 12:01:19. Razón: Etiquetas "[delphi]".
Responder Con Cita