使用FastNet中的NMdayTime组件。
时间服务器为time.nist.gov(192.43.244.18)XP互联网时间服务器就是这
代码:
NMDayTime1.ReportLevel := Status_Basic;
NMDayTime1.TimeOut := 3000; //最大允许连接时间 大陆设为3秒比较合适。
NMDayTime1.Host := 192.43.244.18; //还有一个,是time.windows.com,Microsoft公司的。
NMDayTime1.Port := 13;
Label3.Caption := StdCap+NMDayTime1.DayTimeStr; //此时,组件自动连接网络,获取后断开。
返回例子:
52374 02-04-10 01:12:08 50 0 0 310.6 UTC(NIST) *
该时间是格林威治时间,我国时间在此基础上+8小时
设置时间就好办了。