请教获取网络时间的实现方法

Question

在windows系统中，可以设置系统通过指定的服务器，使自己电脑的时间跟网络服务器上的时间同步。不知道怎么样用delphi来实现这样的功能。我在网上搜索相关的资料，大多都是说用ClientSocket控件来连接一个什么美国海军天文台的网址，然后读取他们的时间来进行同步，可是我输入相同的代码后，却根本读取不到时间，反而会提示程序出错。我想请教一下，有什么简便有效的方法可以从网络服务器上获取时间？各位有什么思路或者简单的代码，还请不吝赐教，谢谢

Answer 1

IdTimeServer1: TIdTimeServer; 可以

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
begin
  IdTime1.Host := Edit1.Text;   // 时间同步服务器
  Label2.Caption := '网络时间：' + DatetimeToStr(IdTime1.DateTime);
  Label1.Caption := '系统时间：' + DatetimeToStr(now);
end;procedure TForm1.Button2Click(Sender: TObject);
begin
  IdTime1.SyncTime;  // 同步
end;procedure TForm1.Button3Click(Sender: TObject);
begin
  Close;
end;
引用别人的，以前有讨论这儿问题

Answer 3

感谢kfcoffe朋友的指点，问题已经解决，结贴