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

[xinxinshou2009]

在windows系统中，可以设置系统通过指定的服务器，使自己电脑的时间跟网络服务器上的时间同步。不知道怎么样用delphi来实现这样的功能。

我在网上搜索相关的资料，大多都是说用ClientSocket控件来连接一个什么美国海军天文台的网址，然后读取他们的时间来进行同步，可是我输入相同的代码后，却根本读取不到时间，反而会提示程序出错。

我想请教一下，有什么简便有效的方法可以从网络服务器上获取时间？各位有什么思路或者简单的代码，还请不吝赐教，谢谢

[kfcoffe]

IdTimeServer1: TIdTimeServer; 可以

[xinxinshou2009]

[Quote=引用 1 楼 kfcoffe 的回复:]
IdTimeServer1: TIdTimeServer; 可以
[/Quote]

能否给个例子或者简单说明？我没接触过这个，谢谢

[kfcoffe]

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;

引用别人的，以前有讨论这儿问题

[xinxinshou2009]

谢谢指点，我试一下

[xinxinshou2009]

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