Dar tiempo de respuesta a una consulta

[Eolo]

Hola, como estan
Esta vez los molesto para preguntar si alguien sabe como hacer para que una consulta que hago con un Tquery a una base interbase tenga un tiempo maximo de respuesta y que si no trae el resultado en ese tiempo pueda mostrar un mensaje como que exedio el tiempo maximo de espera.
Y ya que estamos pregunto como hago para poner un tiempo maximo de conexion a la base de datos con el componente tdatabase.
ACLARACION: Estoy utilizando los componenetes del Data Access y no los de InterBase en donde usaria la propiedad idle timer

Desde ya muchas gracias

[marcoszorrilla]

Se me ocurre lo siguiente:
var
lFinal:Boolean;

lFinal:=False;
//antes de empezar la consulta lanzar un Timer
al Acabar la consulta
lFinal:=True;

Si el evento del Timer lo ponemos al tiempo máximo de espera;
entonces:
if lFinal = False then.....

A ver si te puede servir la idea.

Un Saludo.

[__cadetill]

Hola Marcos

Sin haberlo probado, yo diría que eso no va a funcionar, más que nada porque a la que haces un Open en la Query, el programa queda congelado hasta que el servidor devuelve el resultado de la consulta, por lo que no creo que saltara el OnTimer del TTimer (bueno, saltaría pero después de que el servidor devolviera el resultado y se procesasen los mensajes)

Una opción que sí funcionaría, sería lanzar el SQL en un hilo de ejecución (Thread) aparte del principal y, esta vez sí, controlar con un TTimer el tiempo y, si supera el tiempo deseado, matar el hilo. Claro, no se como reaccionaría el servidor al matar ese hilo ¿quedaría la consulta pillada en el servidor? Supoongo que dependerá del servidor que haya detrás de la consulta