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

Question

我正在寻找一个Delphi 7例程,它连接到一个时间服务器来检索正确的时间和日期,以及一个例程来更新电脑的时间和日期.

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

如果可能的话,使用Overbyte的ICS组件套件(因为我已经使用这组免费组件进行html和ftp访问).但如果没有,任何解决方案都将受到赞赏.

提前致谢.

Answer 1

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

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

编辑:结果是UTC时间,因此您可能需要转换它.