TADOQuery en un Thread

[Casimiro Notevi]

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

[gaunmanuel]

Empezado por Casimiro Notevi

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

[Casimiro Notevi]

Empezado por gaunmanuel

Si tienes razón , pero en este caso, la consulta es normal, tarda aproximadamente unos 15 segundos

Bueno, 15 segundos no es normal

[Neftali [Germán.Estévez]]

Empezado por gaunmanuel

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

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.

Empezado por nlsgarcia

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

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

Empezado por gaunmanuel

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

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.