Confirma��o de Data do Windows

Question

Ol�,Preciso de uma rotina para verificar se a data do Windows est� correta, ou seja, verificar em algum servidor externo que tenha sempre a data atualizada se aquele micro onde o programa est� rodan...

Edson Melo · Answer

ola pesoal tambem preciso desta mesma fun��o, pois tenho um sistema para hotel e gostaria de registrar se o usuisario alterou a data do sistema para fechamento da hospedagem, a fim de favorecer ou enganar o sistema

muito obrigado

Valdir Dill · Answer

Consegui resolver. N�o sei a maneira foi a melhor, mas para mim serviu.

Fiz o seguinte:

No meu servidor de hospedagem criei o arquivo DataAtual.php com o seguinte conte�do:
<?
echo date(d/m/Y);
?>

No Delphi coloquei um componente TIdHTTP e executo a rotina:
try
if StrToDate(IdHTTP1.Get(http://www.meudominio.com.br/DataAtual.php)) <> date then
ShowMessage(A data do micro est� incorreta.);
except
end;

Que tal? Simples e funcional, hehe!

Obrigado e abra�o a todos.

Marco Salles · Answer

ent�o Edson tem o Site //ntp.br/ que disponibiliza um servi�o a Hora Certano delphi tem o componente da paleta Indy (algumas vers�es antigas n�o tem)da classe TIDSntp .. Voce pode adicionar o Componente ou cria-lo em rumtimevarIDSntp:TIDSntp;begin   IDSntp:=TIDSntp.Create(nil);   try  IDSntp.Host:= pool.ntp.br;  showmessage(datetimetostr(IDSntp.DateTime));   finally      IDSntp.free;   end;Por�m tem a quest�o do Hor�rio de Ver�o e do Fuso Hor�rio ..Por�m , n�o tenho certeza , mas acho que a classe TIDSntpdeve interagir com as defini�oes internas do Seu sistema Operacional (VCL=Windows) e corrigir distor��esseria interressante algumem de outro estado que n�o tenha nenHor�rio de Ver�o e fuso Hor�rio diferente verificar o Retornomas como eu disse , acredito n�o haver problemas...

Edson Melo · Answer

obrigado marco antonio.vou tentar , mas consegui um jeito mais facil, criei um arquivo de log, onde fica registrado a data e hora das opera��es principais realizadas no sistema, as datas ficar�o em sequencia neste arquivo, se aparecer uma data fora da sequencia e sinal que a data foi auterada, meio rustico mas funciona realmentemesmo assim obrigado...

Marco Salles · Answer

voce tb pode criptografar estas informa��es de maneira f�cil sem utilizar componentes de terceiroEste modo � sem d�via nenhuma uma solu��o , que dependendo do tamanho do seu problema e do n�vel deseguran�a do seu Sistema pode atender...

F�rum Confirma��o de Data do Windows #412348