一, 服务器配置NTP服务
1, 启用NTP服务器的功能。运行regedit,打开注册表,修改键值HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\W32Time \TimeProviders\NtpServer内的Enabled设定为1
2, 强制主机将其自身宣布为可靠的时间源。将W32Time \Config\AnnounceFlags设定为5,(如果与Internet上的时间服务器同步需要设定为默认a)。
3,重启W32time服务。
net stop w32time(停止w32time服务) ,
net start w32time(重启W32time服务)
4, 防火墙开启123端口(包括TCP和UDP)
二, 在客户端读取NTP服务的时间(使用Delphi TIdSNTP)
self.IdSNTP1.Host:= '192.168.0.82';
IdSNTP1.Connect;
self.Caption:=Formatdatetime('yyyy-mm-dd hh:nn:ss.zzz' , IdSNTP1.DateTime );
IdSNTP1.Disconnect;