Agendar Rotina

Question

Agu�m sabe como fa�o para criar um procedimento para agendar a execu��o de uma rotina?
Exemplo: Agendo para 10:30 de todo o dia a execu��o da c�pia de uma arquivo de uma pasta para outra.

Rodc · Answer

Voc� poder fazer um TTimer e agendar para ele disparar o evento ap�s decorrer o tempo (em milisegundos) que falta para o evento ser rodado....

Leufmt · Answer

Mas como fa�o isto?...

Rodc · Answer

Coloque um TTimer na tela (palheta System), no evento OnTimer() do componente coloque o c�digo que deve ser rodado.
Depois coloque o c�digo abaixo para agendar a execu��o.

Timer1.Interval := MilliSecondsBetween(Now(), DataFutura);
Timer1.Enabled := true;

Vale lembrar que o componente deve estar com a propriedade Enabled igual a False antes de chamar o c�digo acima e ao executar o processamento agendado (evento OnTimer) a propriedade Enabled deve ser setada para False novamente.

Leufmt · Answer

Cara, coloca um exemplo ai mais claro pois testei ai e n�o deu certo....

Rodc · Answer

O que n�o deu certo? Que erro deu? Como voc� fez?...

Leufmt · Answer

Simplesmente n�o funciona...

Rodc · Answer

Inicie um novo projeto.Coloque com TTimer no formul�rio.Marque a propriedade Enabled dele para false.D� um duplo-clique no Timer.No evento coloque o c�digo [code:1:63b31b4736]ShowMessage(�Rodou o evento�);[/code:1:63b31b4736]Coloque um TButton no formul�rio.No onClick do bot�o coloque o c�digo[code:1:63b31b4736]Timer1.Interval := 5000;Timer1.Enabled := true;[/code:1:63b31b4736]Rode o programa e clique no bot�o. Depois de 5 segundos apareceu a mensagem? Sim? Ent�o agora troque o valor de 5000ms pelo c�lculo de quantos milisegundos falta para rodar o seu evento.N�o apareceu a mensagem? Ent�o posta aqui todo o seu c�digo para eu ver.[/code]...

F�rum Agendar Rotina #356470