Form "Procesando..." que no se congele

[Mauro®]

Hola gente del foro.
Tengo un pequeño problema que no se como resolver.
Resulta que en mi aplicación tengo que ejecutar unas Query's que demoran entre 1 a 3 minutos en ejecutarse por la cantidad de datos que deben recoger.
He colocado una form con un "Procesando..." en la cuál quiero mostrar una pequeña animación, pero la cuestión es que cuándo se ejecuta la Query se congela todo, la aplicacion y la animación, hasta que esta termina de ejecutarse y muestra los datos.
Alguien tiene idea que puedo hacer para que no se quede estatica de mi Form y el usuario piense por ello que todo se tildó.

Desde ya muchas gracias.
Saludos para todos.
Mauro;-)

[look]

Empezado por Mauro®

Hola gente del foro.
Tengo un pequeño problema que no se como resolver.
Resulta que en mi aplicación tengo que ejecutar unas Query's que demoran entre 1 a 3 minutos en ejecutarse por la cantidad de datos que deben recoger.
He colocado una form con un "Procesando..." en la cuál quiero mostrar una pequeña animación, pero la cuestión es que cuándo se ejecuta la Query se congela todo, la aplicacion y la animación, hasta que esta termina de ejecutarse y muestra los datos.
Alguien tiene idea que puedo hacer para que no se quede estatica de mi Form y el usuario piense por ello que todo se tildó.

Desde ya muchas gracias.
Saludos para todos.
Mauro;-)

utiliza Application.ProcessMessages , utilizalo en los procesos de ejecucion que son algo largos, esto actualiza la vista del formulario, mas bien le da un respiro a tu aplicacion...

[Mauro®]

Amigo Look, gracias por responder.
He probado el Application.ProcessMessages, pero no funciona, se congela todo igualmente... O bien lo estoy aplicando mal.
lo utilizo así por ej.
miQuery.open;
Procesar.show;
Application.ProcessMessages

Voy a seguir probando.

Gracias nuevamente.
Saludos.
Mauro

[look]

Empezado por Mauro®

Amigo Look, gracias por responder.
He probado el Application.ProcessMessages, pero no funciona, se congela todo igualmente... O bien lo estoy aplicando mal.
lo utilizo así por ej.
miQuery.open;
Procesar.show;
Application.ProcessMessages

Voy a seguir probando.

Gracias nuevamente.
Saludos.
Mauro

el problema aqui radica en que la consulta tarda un tiempo en ejecutarse, y hasta que termine de ejecutarse la query, esta devuelve el form.
no se que tal alocado sea pero puedes poner un timer y asignarle un determinado tiempo, en el evento on timer pones el application.p...
esto actulizara tu aplicacion cada sierto tiempo... prueba y me cuentas como te fue..

[Mauro®]

No amigo, justo estaba probando eso del timer. Pero tampoco funciona.


Ya veremos como lo podemos solucionar.
Muchas gracias por las respuestas.
Saludos

[look]

Empezado por Mauro®

No amigo, justo estaba probando eso del timer. Pero tampoco funciona.


Ya veremos como lo podemos solucionar.
Muchas gracias por las respuestas.
Saludos

bueno en ese caso porq no simplificas las consultas , y las ejecutas en porciones , algo como:

querytal.ExecSQL;
applicacion.proc...
querytal.ExecSQL;
applicacion.proc...
querytal.ExecSQL;
applicacion.proc...
querytal.active...

puede que funcione...

[jmandrake]

Es importante al momento de plantear tu dudas o problema que revise la guia de estilo.

Cuando habla de que esta usando un Query entendemos que esta ejecutando proceso contra un servicio de base de datos, asi que seria bueno que informe sobre cual motor de base de datos estas usando (SQL Server, Firebird, MySQL, PostgreSQL, etc). Asi podriamos saber por donde viene la cosa.

Si esta usando un Motor de Base de datos que soporta procedimiento almacenados, te sugiero que, si ese query es algo complejo y se relaciona con varias tablas algo gorda, que mejor metas el query en un procedimiento almacenado que devuelva un set de dato, en SQL Server se le llaman Function y en Firebird Store Procedure; esto haria que la sentencia se ejecute mucho mas rapido y no tarde, evitando asi que se te congele la ventana.

La otra alternativa es meter el proceso en donde lanza el query dentro de un hilos de ejecusion (threads). Si no ha trabajado con Threads solo tiene que dentro del IDE de Delphi presionar F1, dedicar unos minutos a revisar la ayuda que te muestra y veras como te hace todo un experto.

Saludo, espero haber sido util...