5 replies to this topic

[eduarcol]

Hola a todos, tengo una aplicacion que realiza una serie de procesos, pero entre cada proceso debo esperar exactamente tres minutos, lo que hago es lo siguiente para que no se vea congelada:

delphi

nEspera := 0;
               while nEspera <= 90000 do
               begin
                     sleep(2);
                     Application.ProcessMessages;
                     inc(nEspera);
               end;

El asunto es que mientras mas procesos se esten ejecutando menos exactos son esos tres minutos, incluso hasta 5 minutos pasan entre procesos.


Que otra forma se les ocurre para hacer este proceso mas exacto???


Gracias por las respuestas

[Delphius]

Hola Eduardo,

¿Está o evaluaste la posibilidad de que esos procesos se ejecuten en hilos separados? Esto se podría ayudar a independizar y poder sincronizar los procesos.
El uso de Timers es otra posibilidad. Ya sea que lo hagas con el propio componente que ofrece Delphi o la propia API: SetTimer. Aunque si la idea es obtener mayor precisión parece ser que debe jugarse con otras APIs como TimeBeginPeriod, TimeEndPeriod, y TimeSetEvent.

No he jugado con esas APIs por lo que no sabría decirte mucho.

De todas formas sea cual fuese la alternativa que utilices, siempre habrá una perdida de precisión... no se puede garantizar de que se cumpla exactamente el tiempo indicado entre uno y otro. Hay factores externos y ajenos a nuestros desarrollos que inciden.

Saludos,

[Marc]

Como dice Delphius, lo más sencillo es que utilices un Timer programado para que salte a los tres minutos. De esta forma tu aplicación no quedará bloqueada (puesto que nunca llamas a Sleep()), y la espera de tres minutos será lo más precisa posible.

El componente Timer se encuentra en la pestaña System.

Saludos.

[seoane]

A mi se me ocurre que puedes hacer algo como esto:

delphi

var
  Ticks: Cardinal;
begin
  Ticks:= GetTickCount;
  while GetTickCount - Ticks < 180000 do
     Application.ProcessMessages;
end;

Recuerda que la función Sleep es muy poco precisa en cuanto al tiempo, sobre todo en tiempo muy pequeños, ya que depende de la precisión del reloj interno del ordenador.

The system clock "ticks" at a constant rate. If dwMilliseconds is less than the resolution of the system clock, the thread may sleep for less than the specified length of time. If dwMilliseconds is greater than one tick but less than two, the wait can be anywhere between one and two ticks, and so on. To increase the accuracy of the sleep interval, call the timeGetDevCaps function to determine the supported minimum timer resolution and the timeBeginPeriod function to set the timer resolution to its minimum. Use caution when calling timeBeginPeriod, as frequent calls can significantly affect the system clock, system power usage, and the scheduler. If you call timeBeginPeriod, call it one time early in the application and be sure to call the timeEndPeriod function at the very end of the application.

[eduarcol]

Gracias a todos por su colaboración, la solución que mas se adapta es la seoane ya que tomo el tick antes de hacer el proceso. Lo que quiere decir que el rpoximo se inicia tres minutos justos despues de haber comenzado el anterior.

Doy el caso como resuelto.

[Delphius]

Hola,

Yo también había pensado en el uso de Ticks pero no me parece una buena opción la de emplear un ciclo para simular un "despertador" cuando hay otras opciones a la mano y que están, supuestamente, preparadas para ello.

Domingo, ya que estás por aquí, tengo una duda relacionado con el Timer de la API y los Ticks. ¿Que no se basa el S.O, ya de por sí internamente, en los ticks para el manejo de Timers?

Saludos,