Ver Mensaje Individual
  #3  
Antiguo 27-07-2005
Avatar de German
German German is offline
Miembro
 
Registrado: may 2003
Ubicación: Barcelona - España
Posts: 133
Reputación: 21
German Va por buen camino
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
__________________
Tengo las manos llenas de dedos... Tengo los dedos llenos de teclas...
Tengo las teclas desordenadas... Tengo el desorden muy controlado...
Tengo el control en mis manos.

Última edición por German fecha: 27-07-2005 a las 11:20:56.
Responder Con Cita