从时间服务器检索当前时间和日期的 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 .