bucle para que se ejecute una serie de instrucciones cada dos horas

[Neftali [Germán.Estévez]]

Empezado por Ricardo2010

Necesito generar un bucle para que se ejecute una serie de instrucciones cada dos horas, la aplicacion en delphi 10.4 lo que he

Una duda. ¿Has probado a implementarlo con un TTimer?
Creo que para estas cosas es mucho más sencillo.


En cuanto al bucle, veo que coges la hora del servidor con esto:

Código Delphi [-]
hora:=q_horaHORA.AsInteger;

Pero en ningun sitio veo que la compares con otra hora para saber si han poasado 2 horas o no. No acabo de entender la lógica.

[engranaje]

No tengo claro si necesitas hacerlo de esa forma concreta por algún motivo. Yo entiendo del enunciado que quieres ejecutar un código cada 2 horas. Leyendo el código y como quieres hacerlo dentro de un bucle y ya sabemos lo que pasa con los bucles infinitos se trata de ejecutar una sentencia cada dos horas mientras no se cumpla con una condición de ruptura. De tu código deduzco que esa condición de ruptura es debe <= hay.

Código Delphi [-]
 while debe <= hay do // debe inicia en 0 hay es la cantidad total de datos a leer
 begin
    //2 (horas) * 3600 (segundos/hora) * 1000 (milisegundos en un segundo)  =7200000 (milisegundos a "dormir" la ejecución.
    sleep(7200000); 
    recorre; // este es el código que debiera ejecutarse cada 2 horas
 end;

A mí también me parece mejor utilizar un ttimer para este tipo de cosas. De todas formas si necesitas la hora del servidor, consultar horas en bd y realmente lo que necesitas es una diferencia entre horas este sistema supongo que no te servirá. Como siempre, espero que recorre se encargue de incrementar debe hasta que iguale o supere el valor de hay en algún momento.