ejecutar codigo de delphi cada 24 horas

[richy08]

buenos dias compañeros tengo una duda y no encuentro como atacarla, estamos por terminar una aplicacion que controla la funcionalidad de un hotel, en diho sistema existe un proceso que es llamado night audit, el cual una persona a la media noche tiene que ira presionar un boton para que cargue las noches y consumos de itinerario que halla tenido el huesped durante el dia, tambien corre procesos que hacen interfax con un pbx, y un punto de restaurant llamado aldelo, pero ahora nos pide el cliente que dicho proceso se ejecute automaticamente, inicialmente los dodigos los mande a procedimientos almacenados los cuales puedo controlar la hora en que quiero que se ejecuten pero las interfaces pbx, aldelo extraigo datos de otras bases de datos por lo cual un procedimiento almacenado no me sirve, he estado viendo el timer de delphi pero ese componente no me resuelve el problema o al menos no he encontrado la forma de utilizarlo, la pregunta es existe la posibilidad de especificarle a delphi que corra dicho codigo diario a las 12 de la noche gracias por cualquier comentario.

[Casimiro Notevi]

Puedes hacerlo de varias formas, con timers o sin ellos, por ejemplo con decodetime, échale un vistazo a esa función.

[richy08]

gracias casimiro voy a buscar info sobre este comando

[Casimiro Notevi]

Mira este hilo.

[richy08]

gracias casimiro ya tengo un timer en mi aplicacion que me muestra la hora y fecha en el sistema pero este timer lo tengo que se este actualizando cada segundo ahora lo que pretendo hacer es que este leyendo una tabla de mi base de datos no resultaria esto muy costoso para la aplicacion? anexo el codigo

Código Delphi [-]
procedure TFrm_Menu.RelojTimer(Sender: TObject);
var d,m,a:Word;
mes,dia:String;
begin
Decodedate(now,a,m,d);
case m of
 1 :mes:='January' ;
 2 :mes:='February' ;
 3 :mes:='March' ;
 4 :mes:='April' ;
 5 :mes:='May' ;
 6 :mes:='June' ;
 7 :mes:='July' ;
 8 :mes:='August' ;
 9 :mes:='September' ;
 10 :mes:='October' ;
 11 :mes:='November' ;
 12 :mes:='December' ;
end;

case DayOfWeek(now) of
 1 :dia:='Sunday' ;
 2 :dia:='Monday' ;
 3 :dia:='Tuesday' ;
 4 :dia:='Wednesday' ;
 5 :dia:='Thursday' ;
 6 :dia:='Friday' ;
 7 :dia:='Saturday' ;
end;
stb_panel.Panels[0].Text:=Application.Hint;
stb_panel.Panels[1].Text:='Date:  '+dia+', '+IntToStr(d)+' of '+mes+' of '+IntToStr(a);
stb_panel.Panels[2].Text:='Time:  '+TimeToStr(Time);
//pretendo hacer algo asi
Qry_ultimacorrida.close;
qry_ultimacorrida.open;
MyDate := EncodeDate(a,m,d);
if Qry_ultimacorrida.fieldbyname('fecha').asdatetime>=muydate then
begin
//desencadena proceso
end;
end;

[Casimiro Notevi]

Pero si sólo quieres que se ejecute a una hora determinada, entonces te sobra bastante de ese código, quedaría algo así como:

Código Delphi [-]
private
  var
    bProcesado : boolean;  <- poner a false en el oncreate o en onshow 

...
...
...

procedure TFrm_Menu.RelojTimer(Sender: TObject);
var
  ho,mi,se,mm : Word;
  bProcesado : boolean;
begin
  bProcesado := false;
  Decodetime(now, ho,mi,se,mm);
  if (ho=0) and (mi=0) and (se=0) and (not bProcesado) then
    HacerLoqueTengasQueHacer();
end;


procedure HacerLoQueTengasQueHacer();
begin
  loquesea;
  otracosa;
  //
  bProcesado := true;
end;

La variable bProcesado sirve por si tarda más de un segundo en HacerLoQueTengasQueHacer que no lo vuelva a ejecutar.