Un poco "tarde" para mi respuesta
... pero como no he encontrado solución en ningun otro post, lo publico aqui, por si alguien lo necesita.
He probado el componente que viene con las Indy 10 para conectar via SNTP/NTP con un "servidor de hora" (time server) y no ha habido manera.
He utilizado unas librerias TCP/IP llamadas "synapse" (
http://www.ararat.cz/synapse/), y con estas si que ha funcionado todo correctamente.
Código Delphi
[-]uses ... SNTPsend ...
procedure TForm1.Button1Click(Sender: TObject);
var sntp:TSntpSend;
begin
label1.Caption := 'Fecha y hora: CONECTANDO...'; Update;
sntp:=TSntpSend.Create;
sntp.TargetHost := 'time.windows.com';
sntp.Timeout := 5000;
try
if sntp.GetSNTP then label1.Caption := 'Fecha y hora: '+Datetimetostr(sntp.NTPTime)+' GMT'
else label1.Caption := 'Fecha y hora: IMPOSIBLE CONEXIÓN A SERVIDOR';
finally
sntp.Free;
end;
end;
Lista de servidores de hora:
http://support.microsoft.com/default...d=kb;es;262680
Salu2