TADOQuery en un Thread
 

Que tal, tengo una cuestion, dentro de un Thread activo un TADOQuery, todo funciona correctamente, el problema es que en ocasiones el TADOQuery puede tardar varios minutos ya que la información que regresa puede ser bastante, entonces en la forma tengo un boton donde si lo deseo puedo detener el Thread y cancelar la consulta.
Sin embargo tengo entendido que para detener un Thread primero debes detener el proceso que esta ejecutando el Thread y posterior entonces si darle Terminate al Thread.
Mi duda es como indicarle al TADOQuery que cancele cuando le pusiste la propiedad Active := true ?
Asi es como esta el procedimiento Execute del Thread.

Código Delphi [-]
procedure TReporteDescargasThread.Execute;
begin
  { Place thread code here }
  Synchronize(AccessoControlReporteDescarga);
  dmDescargas.qryReporteDescargas.Active := true;
  Synchronize(Mostrar);
  Synchronize(AccessoControlReporteDescarga);
end;

gaunmanuel,

:rolleyes:

Puedes detener el hilo directamente con le método Terminate.

Revisa esta información:
Espero sea útil :)

Nelson.

Aunque también habría que echar un vistazo a esa consulta que tarda varios minutos, ¿tan pesada es?

En cuestion de terminar un Thread no tengo problema, y efectivamente lo hago con el método Terminate.
Sin embargo el Thread no termina ya que dentro del Thread el proceso es unicamente un active := true de un query (TADOQuery).
Mi problema realmente es que si salgo del Sistema aún cuando el Thread este corriendo me manda el mensaje de error de que existe un proceso corriendo asynchronous, es por eso que estoy buscando como cancelar un Thread en donde se esta activando un TADOQuery.

Por el momento el problema lo resolví, estableciendo una conexión independiente al TADOQuery y ya con esto no me manda el mensaje de error.
De cualquier forma muchas gracias, si encuentro la forma de realmente cancelar la ejecución del Thread, se los comento.

Muchas Gracias.

Desafortunadamente el diseño de la base de datos no me da para mejorar el performance de la consulta, aunque aún asi, la cantidad de registros que la consulta pudiera arrojar es enorme, sin embargo ya esta parametrizada la consulta con rangos de fecha asi que ya es mucho más rápida.
Sin embargo el detalle principal es como cancelar la ejecución del Thread cuando lo unico que hace es activar un TADOQuery.
Con el simple Terminate no se detiene.

saludos.

Lo digo porque algunas veces se empeña uno en cómo "camuflar" la lentitud de una consulta, en lugar de solucionar la consulta en sí.

Si tienes razón :D, pero en este caso, la consulta es normal, tarda aproximadamente unos 15 segundos, pero ya sabes como son los Usuarios, es muy probable que intenten cerrar el Sistema mientras estaba corriendo y simplemente trato de que si eso paso, pues cancelar la ejecucion Thread para que no mande error de asynchronous.
Pero Bueno lo resolví creando una conexión exclusiva para ese query.

gracias por sus comentarios.

saludos.

Bueno, 15 segundos no es normal :)

El problema realmente no es detener el Thread, sino detener la consulta.
Si haces lo primero, sin conseguir hacer lo segundo, obtendrás errores en ejecución.

Es posible que el hilo no termine o termine con errores, si lo haces de esta manera.

Una opción es, evitar que el thread termine hasta que no haya acabado la consulta. Con eso evitas errores (hasta el punto de que la aplicación no terminará), pero sigues sin solventar el problema. Para esto revisa la ayuda sobre el método WaitFor.

La otra opción es utilizar las opciones de TADOConnection para lanzar consultas de forma asíncrona (con esto tal vez puedes evitar incluso el uso de threads). Para esto último revisa la propiedad ConnectOptions de TADOConnection:

Código Delphi [-]
property ConnectOptions: TConnectOption;

Una vez que la conexión es de este tipo, puedes intentar llamar al método Cancel de TADOConnection, a ver si consigues lo que necesitas; Pero para usar este método, necesitas que la conexión esté definida como asynchronous, tal como se explica en la ayuda.