Application.ProcessMessages y Application.HandleMessages

[molinero1]

Tengo un procedure, que quiero que se llame a si mismo, pero por ejemplo cada media hora, y luego en un for, quiero que haga una instrucción, cada tres minutos.

[dec]

Hola,

Estupendo. Por lo que dices creo que lo que estás necesitando es un "TTimer". Un "TTimer" es un cronómetro (que corre en segundo plano respecto del Hilo principal de tu aplicación, y que por lo tanto no atrapará a este), digo, es un cronómetro que cuenta con un evento "OnTimer".

Tienes el "TTimer" en la pestaña "System" de la paleta de componentes de Delphi. Asignas un intervalo de 1800000 milisegundos (30*60*1000) a la propiedad "Interval" del "TTimer"... "True" a su propiedad "Enabled"... y tendrás que cada 30 minutos se disparará el evento "OnTimer" del "TTimer".

El "TTimer", como queda dicho, no ocupará el Hilo principal de tu aplicación. Ahora bien, cuando lleguemos al evento "OnInterval"... si ahí se ha de ejecutar un bucle "for" o "while"... tal vez entonces sea bueno contar con un "Application.ProcessMessages", dentro del bucle, empero, en todo caso creo que el problema se habrá reducido no poco, tal vez incluso eliminado del todo.

En todo caso: olvídate del "Sleep". Si quieres hacer "algo" cada cierto intervalo de tiempo el componente "TTimer" es lo que andas buscando.

PD. Adjunto un sencillo ejemplo de "reloj" que utiliza un "TTimer" para mantener actualizada la hora.

[molinero1]

Lo he provado y mas o menos me sale, pero me surgen dos dudas, Application.ProcessMessages que hace exactamente y donde lo tengo que poner? y en el evento on timer puedo llamar a un procedimiento creado por mi?

[dec]

Hola,

Application.ProcessMessages que hace exactamente y donde lo tengo que poner?

Básicamente, el método "ProcessMessages" de la clase "Application", fuerza el proceso de los mensajes del sistema que la aplicación tenga "encolados", es decir, aquellos que están pendientes de ser procesados. Este es el método "ProcessMessages":

Código Delphi [-]
procedure TApplication.ProcessMessages;
var
  Msg: TMsg;
begin
  while ProcessMessage(Msg) do {loop};
end;

Algunos bucles pueden "apoderarse" del Hilo principal de la aplicación, de modo que impiden que se procesen los mensajes del sistema que la aplicación debe procesar. Pues bien, el método "ProcessMessages", como se ve, fuerza a que la aplicación procese los mensajes pendientes... y luego regresa el control a quien llamara al método "ProcessMessages", ni más... ni menos.

Es una explicación acaso muy básica y hasta simple, pero, ahora mismo no se me ocurre otra, tal vez porque ni a mí mismo me quedan claras ciertas cosas, tal vez porque no quiera liar el asunto demasiado.

¿Dónde tienes que poner el "Application.ProcessMessages"? Pues básicamente donde veas que la aplicación se atore... y esto tiene lugar, por ejemplo, en algunos "bucles más o menos pesados". Dentro de estos bucles, pues, además del código que queramos ejecutar, puede y aun debe situarse un "ProcessMessages" para que la aplicación procese los mensajes encolados antes de seguir con la ejecución del bucle... o a cada ciclo de su éjecución.

y en el evento on timer puedo llamar a un procedimiento creado por mi?

Por supuesto. Y no sólo eso, sino que el "TTimer" se ejecuta en un Hilo diferente del principal de la aplicación. Y esto quiere decir que ambos Hilos se ejecutarán "en pararelo", sin que el Hilo del "TTimer" impida la ejecución del Hilo principal de la aplicación. Puedes verlo en el ejemplo del reloj que he adjuntado antes: el reloj se actualiza cada segundo y el "label" correspondiente muestra la hora actualizada a cada segundo... sin problemas.

En todo caso me veo incapaz de dar muchas más explicaciones sobre estos temas... creo que aquí tendría que venir algún compañero de estos que tenemos por aquí que nos pueden dar sopas con ondas, como suele decirse, en esto de los "Hilos", "Timers", "Mensajes", etc., etc., etc.

En todo caso, si quieres ir un poco más allá, para empezar te recomiendo la ayuda del propio Delphi. Echa un vistazo a la ayuda del método "ProcessMessages" de la clase "Application". Lee su descripción y echa un vistazo al ejemplo que se ofrece. Y puedes seguir tirando del Hilo a partir de ahí...

[molinero1]

Vale, muchas gracias, ya me funciona como yo quería y gracias a tu explicación la próxima vez que intente algo igual supongo que me las arreglare mas solo. Es mejor entender algo que copiar código solo porque si, al menos es lo que pienso, gracias otra vez .

[[seoane]]

Empezado por dec

Por supuesto. Y no sólo eso, sino que el "TTimer" se ejecuta en un Hilo diferente del principal de la aplicación.

Ahí te has pasado Hasta donde yo se, los eventos del TTimer, al igual de los de la mayoría de componentes, se ejecutan dentro del hilo principal de la aplicación. Es mas, si estas dentro de un bucle y no utilizas Processmessages nunca ocurrirá el evento OnTimer.

[dec]

Hola,

Bueno. Es probable que me equivoque, porque voy bastante perdido en estos menesteres, pero, yo no me refería tanto al evento "OnTimer" como tal (pero de todas formas haces bien en remarcarlo), sino a que el propio "Timer", es decir, "hasta que llegamos al evento OnTimer", debe haber un segundo Hilo que se ejecute en paralelo al nuestro, y que, precisamente, controle cuándo ha de ejecutarse el evento "OnTimer"...

Lo que pasa es que echando un vistazo he visto que el "TTimer" no utiliza un "TThread", sino que hace uso de las funciones "KillerTimer" y "SetTimer" del API de Windows... y ahí sí que ya no he seguido adelante para comprobar qué se supone que hace exactamente "SetTimer", puesto que entiendo que inicia un segundo Hilo en la aplicación...

Pero, vamos, que, de todas formas, ya digo... es muy probable que me equivoque porque estos temas me superan, así como suena.