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

[ContraVeneno]

creo que la mejor opción sería crear hilos de ejecución (THreads)
http://www.clubdelphi.com/foros/show...28&postcount=8

[look]

Empezado por ContraVeneno

creo que la mejor opción sería crear hilos de ejecución (THreads)
http://www.clubdelphi.com/foros/show...28&postcount=8

pues se ve muy interesante el tema de los Threads , una buena oportunidad para aprender algo nuevo, tal parece q esta es la mejor opcion, jeje y yo con mis novatadas... bueno hoy he aprendido otra cosa..

[Mauro®]

Gracias antes que nada por las ideas y respuestas.
Lamento no haber sido lo suficientemente específico con respecto a la expliación de mi problema, es que pensaba era algo más sencillo.
En realidad lo que estoy ejecuntando es un Procedimiento Almacenado contra un servidor Interbase 7.5.
El tamaño de las tablas y la cantidad de datos a analizar hacen que el store Proc sea lento. Esta seleccionando registros de tablas con las de 3000000 de registros, y es solo la venta de 1 año y no puedo dividir la misma.
Igualmente analizare el tema de los THreads.
Muchas gracias de antemano a todos.

Saludos,
mauro.-

[roman]

Aquí un ejemplito:

Código Delphi [-]
type
  TQueryThread = class(TThread)
  private
    Query: TQuery;
  protected
    procedure Execute; override;
  public
    class procedure Run(Query: TQuery);
  end;

implementation

procedure TQueryThread.Execute;
begin
  Query.Open;
end;

class procedure TQueryThread.Run(Query: TQuery);
var
  Thread: TQueryThread;

begin
  Thread := TQueryThread.Create(true);
  Thread.FreeOnTerminate := true;
  Thread.Query := Query;
  Thread.Resume;
end;

Ejemplo de uso:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  TQueryThread.Run(Query1);
end;

// Saludos

[jmandrake]

Mejor ejemplo sencillo y facil de como utilizar un thread que el mostrado por Roman no puede haber...

Para mucho preguntar aqui le resulta mas comodo que presionar F1...jeje

[Mauro®]

Roman, muchas gracias por el ejemplo.
Intentaré utilizarlo, pero antes tratando siempre de leer la Ayuda (F1). Generalmente siempre antes de preguntar, investigo en el foro y google.... Quizas esta vez no encontre nada que lo solucionara o me orientara a la solución.
Desde ya gracias a todos los que han respondido.
Looke, Roman, JMandrake... Saludos a todos y mucho suerte.
Mauro.-

[[felipe88]]

Hola,
Román, a mi me pasó algo curioso con un código igual a tu ejemplo donde ejecuto unas multiples inserciones aunque no mediante SQL; todo muy bien hasta ahi, pero si cambias a otra ventana e intentas regresar a esta, pues ya aparece frita .
Ahora bien, si el trabajo con la base de datos se hace en otro thread, ¿como sería la mejor forma de evitar que se bloquee el principal?

Saludos!

[roman]

En realidad no sé, Felipe.

Se supone que un hilo no puede interactuar con componentes de la VCL y esto incluye componentes de acceso a datos como un Query, aunque el manual dice:

You do not need to use the Synchronize method for the following objects:

Data access components are thread-safe as follows: For BDE-enabled datasets, each thread must have its own database session component. The one exception to this is when you are using Microsoft Access drivers, which are built using a Microsoft library that is not thread-safe. For dbExpress, as long as the vendor client library is thread-safe, the dbExpress components will be thread-safe. ADO and InterBaseExpress components are thread-safe.

When using data access components, you must still wrap all calls that involve data-aware controls in the Synchronize method. Thus, for example, you need to synchronize calls that link a data control to a dataset by setting the DataSet property of the data source object, but you don't need to synchronize to access the data in a field of the dataset.

por lo que parece que el Query está a salvo.

Hice una pequeña prueba con dos ventanas y no tuve problema, pero había que ver con más detalle qué estás haciendo tú. Quizá estés interactuando de alguna manera con componentes visuales o que no son thread-safe.

// Saludos

[[felipe88]]

Probablemente sea un propio error mio, la rutina consiste en pasar datos de un ADODataset a un ClientDataset (Esto porque uso DBExpress), pero quizá la forma en que cree el thread no fuera la más optima, y en cuanto a los componentes visuales solo una grilla un progressbar y un par de botones.
Buscaré el código tal para que le demos una mirada

[roman]

Si el paso de datos lo hace en un ciclo, entonces quizá te bastaría un Application.ProcessMessages en cada vuelta.

// Saludos

[[felipe88]]

Empezado por roman

Si el paso de datos lo hace en un ciclo, entonces quizá te bastaría un Application.ProcessMessages en cada vuelta.

// Saludos

Acabo de ver el código y todo normal, como si es un cilco bastará con probar lo que dices, pero bien ¿esto no afectría el tiempo del proceso haciendo lo más lento?

Cosas que se me ocurren

Saludos!

[roman]

No lo había pensado. Es posible que así sea.

// Saludos

[[Lepe]]

ratifico lo dicho por roman. Cuando hice mis pruebas sí se ralentizaba el bucle, obvio ya que en cada ciclo tiene que "respirar".

Solución intermedia: "respirar 1 vez cada x ciclos"

Código Delphi [-]
  if i mod 10 = 0 then
     Application.processMessages

Saludos