Delphi例程，从时间服务器检索当前时间和日期

Question

我正在寻找 Delphi 7 例程，该例程连接到时间服务器以检索正确的时间和日期，以及例程更新电脑的时间和日期。

例程当然应该考虑到电脑正在使用的时区。

如果可能，使用Overbyte中的 ICS组件套件（因为我已经使用这组免费组件进行html和ftp访问）。但如果没有，任何解决方案都会受到赞赏。

提前致谢。

Answer 1

看看Indy的IdDayTime组件。将它指向您最喜欢的时间服务器并检查DayTimeStr属性。

  IdDayTime1.Host := 'time-a.nist.gov';
  Label1.Caption := IdDayTime1.DayTimeStr;

修改： 结果是UTC时间，因此您可能需要convert it。

Answer 2

您可能想要谷歌“Delphi 7 NTP”或“Delphi 7网络时间协议”。此外，必须有吨的免费组件，您可以免费使用。