Application.ProcessMessages y Application.HandleMessages

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

[dec]

Hola,

Pero llevas razón de todas, todas Seoane:

Empezado por Ayuda de la función SetTimer

An application can process WM_TIMER messages by including a WM_TIMER case statement in the window procedure or by specifying a TimerProc callback function when creating the timer. When you specify a TimerProc callback function, the DispatchMessage function simply calls the callback function instead of the window procedure. Therefore, you need to dispatch messages in the calling thread, even when you use TimerProc instead of processing WM_TIMER.

Pero no me queda claro si tengo algo de razón... es decir, si "SetTimer" crea un "Hilo" o algo parecido... porque al cabo ha de controlar cuándo ha de ejecutar el "TimeProc" de marras... ¿no?

[[seoane]]

Efectivamente el TTimer hace uso de la función SetTimer. Esta API lo que hace es enviar el mensaje WM_TIMER a la aplicación cuando se cumple el tiempo indicado. Es el propio sistema operativo el que se encarga de "generar" ese evento, por lo que no hay necesidad de crear otro Thread. También, precisamente porque usa el mensaje WM_TIMER, es necesario que la aplicación procese los mensajes para que el evento del timer se produzca.

Una cosa curiosa, aunque la función SetTimer permite pasar una función como parámetro de tal forma que esta se ejecute al cumplirse el tiempo indicado, sigue siendo necesario el uso de un bucle de mensajes ya que es al procesar el mensaje WM_TIMER cuando se llama a esa función. Esto que parece una tontería, no lo es , porque si, por ejemplo, estamos creando una aplicación de consola que, en principio, no tiene bucle de mensajes y queremos usar un timer no nos queda mas remedio que crear nosotros mismos un bucle que procese los mensajes.

Ya llego de rollo por hoy ...

[dec]

Hola,

Oh, no, nada de rollo. Las explicaciones razonadas nunca están demás Seoane y yo las agradezco.