delphi - 在delphi中获取互联网时间

Question

我想从互联网获取时间和日期

我使用了以下代码

IdDayTime1.ReadTimeout := 5000;
IdDayTime1.Host := 'www.time.windows.com';
IdDayTime1.Port := 37     ;
Label1.Caption := IdDayTime1.DayTimeStr;

但我得到:套接字错误#11004

这是什么，我做错了什么

我的互联网和其他东西都很好

Answer 1

DayTime协议(protocol)不是NTP协议(protocol)。 DayTime 使用端口 13，而不是 37。37 由 Time 协议(protocol)使用，该协议(protocol)不是使用 123 (UDP) 的 NTP 协议(protocol)。我不知道 time.windows.com 是否支持 DayTime 和 Time 协议(protocol)，目前从可靠时间源获取时间最常用的协议(protocol)是 NTP ，及其更简单的同级 SNTP，它取代了 DayTime 和 Time 协议(protocol)。