função executando numa data determinada

Delphi

15/09/2008

ola pessoal sou novo no forum tenho uma duvida

como posso fazer uma função em meu programa que seja executada numa determinada data e hora estou prescisando disso se alguem puder me ajuda vlw fico no aguardo...


²=nixo=²

²=nixo=²

Curtidas 0

Respostas

²=nixo=²

²=nixo=²

15/09/2008

nao tem como editar esqueci de informar ^^
uso o delphi 7

vlw


GOSTEI 0
Luiz Henrique

Luiz Henrique

15/09/2008

Bom dia nixo, blz

Cara, nunca necessitei implementar uma funcao que este procedimento, mas enquanto nao aparece ninguem com uma solucao mais detalhada, vai tentando com o componente Timer da paleta System.

Espero que ajude T+


GOSTEI 0
²=nixo=²

²=nixo=²

15/09/2008

tipo eu usei mas no caso do windows reinicar o tempo estaria começando de novo entende


GOSTEI 0
Adoniram

Adoniram

15/09/2008

Cara, já tentou usar com a função Now?

procedure TForm1.OnTimer(Sender:TObject);
begin
if Now = DataSelecionadaParaExecuçãoDaRotina then
ExecutarRotina();
end;


GOSTEI 0
²=nixo=²

²=nixo=²

15/09/2008

ExecutarRotina();
aki e que vai minha função? vlw pela ajuda


GOSTEI 0
Adoniram

Adoniram

15/09/2008

sim, isso mesmo.


GOSTEI 0
²=nixo=²

²=nixo=²

15/09/2008

po mas nao executou sabe se tem como implementar colocando uma hora junto? vlw pela ajuda


GOSTEI 0
Adoniram

Adoniram

15/09/2008

Como assim?


GOSTEI 0
Adoniram

Adoniram

15/09/2008

E qual o tempo vc está colocando no timer?


GOSTEI 0
Digaopachesen

Digaopachesen

15/09/2008

Cara é assim, no time vc informa a quantos segundos ele ira rodar o codigo, ai no codigo vc faz um if pegando a data atual e a hora e virificando se é a data hora desejada caso seja executa tua rotina,
caso nao seja ele nao fara nada e assim por diante ate que realmente a data e hora seja as desejada. Nas propriedades do Time, tem o interval se nao me engando se vc colocar nele 1000 sera = a 1 segundo, entao a cada 1 segundo vc pega data e hora e verifica se é o desejado se for executa rotina... Espero ter ajudado e nao exagerado!!! Flw


GOSTEI 0
²=nixo=²

²=nixo=²

15/09/2008

tipo qual seria o formato da data xx/xx/xxxx ? vlw


GOSTEI 0
Adoniram

Adoniram

15/09/2008

´xx/xx/xxxx xx:xx:xx´
Ex.:
´18/09/2008 12:59:15´


GOSTEI 0
²=nixo=²

²=nixo=²

15/09/2008

quando uso a hora assim 18/09/2008 12:59:15 nao compila no delphi /=

um amigo me deu esse exemplo mas tb nao funciona

procedure TForm1.Timer1Timer(Sender: TObject);
var
haha: TDateTime;
begin
if haha = 19/09/2008 then
close;
end;


GOSTEI 0
²=nixo=²

²=nixo=²

15/09/2008

ola pessoal obrigado pela ajuda um amigo da comunidade universo delphi do orkut me passou um exemplo e funcionou irei colocar aki se alguem + prescisar vlw pode feichar o topico

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   if Now >= StrToDateTime(´19/09/2008 13:03´) then
   close;
end;



GOSTEI 0
Marco Salles

Marco Salles

15/09/2008

como posso fazer uma função em meu programa que seja executada numa determinada data e hora estou prescisando disso se alguem puder me ajuda vlw fico no aguardo...


sei não , mas a maneira mas indicada para isto é usando THreads e Processos ... Nun Timer consome processamento e nun fica bom não
Esta é minha Opinião ..


GOSTEI 0
POSTAR