Averiguar la hora real
Quiero hacer un programa que averigüe la hora actual, pero no la del ordenador sino la de un servidor de fecha/hora como por ejemplo hora.rediris. Es
Estoy intentando usar los componentes Indy o los sockets pero no me funcionan.
Gracias
Estoy intentando usar los componentes Indy o los sockets pero no me funcionan.
Gracias
1 respuesta
Respuesta de vctr2003
1
Puedes utilizar la componente idSNTP y utilizar como Hosts cualquiera de los que aparecen enn esta lista.
http://www.eecis.udel.edu/~mills/ntp/clock1a.html
La forma de uso es muy sencilla, por ej
procedure TForm1.Button1Click(Sender: TObject);
begin
IdSNTP1.Host := Edit2.Text;
Edit1.Text := FormatDateTime('dd/mm/yyyy hh:nn:ss',IdSNTP1.DateTime);
end;
http://www.eecis.udel.edu/~mills/ntp/clock1a.html
La forma de uso es muy sencilla, por ej
procedure TForm1.Button1Click(Sender: TObject);
begin
IdSNTP1.Host := Edit2.Text;
Edit1.Text := FormatDateTime('dd/mm/yyyy hh:nn:ss',IdSNTP1.DateTime);
end;
