GetTickCount vs. TTimer

[[seoane]]

El problema no es con la función GetTickCount, que tiene sus manías pero esta no es una de ellas. Lo que pasa es que la utilizas dentro de un bucle, si no haces algún tipo de espera dentro del bucle este termina usando la CPU al 100%. Una solución sencilla es hacer una pequeña espera dentro del bucle.

Código Delphi [-]
 StartTick := GetTickCount;
 //Si el bucle continua...
 While Running Do
  Begin
   //...si ha trasncurrido un segundo
   If (GetTickCount - StartTick) > 1000 Then
    Begin
     //...actualizar etiqueta
     FormPrincipal.LabelDelphi.Visible := not FormPrincipal.LabelDelphi.Visible;
     //Reinicializar hora de inicio para siguiente iteracion
     StartTick := GetTickCount;
    End;
   // Necesario para que el bucle no "bloquee" la maquina
   Application.ProcessMessages; 
   Sleep(100); // Aqui le damos tiempo a la CPU para respirar
  End;

[Wonni]

Gracias seoane, funciona muy bien

Ahora en el monitor de sistema consume exactamente igual GetTickCount que TTimer. No se mueve del 1% ( a veces 0 en ambos metodos ).

Entonces, supongo que da igual uno q otro. ¿no?

Saludos !!

[[seoane]]

Empezado por Wonni

Entonces, supongo que da igual uno q otro. ¿no?

Yo creo que se utilizan para hacer cosas diferentes. Mientras que GetTickcount es muy útil para controlar el tiempo dentro dentro de una función, por ejemplo para implementar un Timeout, si lo que queremos es ejecutar un evento a intervalos regulares es mucho mejor usar un TTimer, que a fin de cuentas solo encapsula las APIs SetTimer y KillTimer.

[Wonni]

ok, ya me ha quedado claro.

Gracias otra vez seoane

Saludos !!