时间同步工具

【文件属性】：

文件名称：时间同步工具

文件大小：269KB

文件格式：ZIP

更新时间：2015-11-26 16:10:59

时间同步

偶有一老掉牙鸡，时间经常走不准，搞得偶好几次误时。火来了，偶上网找了下资料，做了这工具。既可从互联网授时服务器上获取时间，也可以从局域网授时主机上获取时间，来校对本鸡，也可为局域网内其他鸡授时。当本工具授时时，获取时间的演示代码如下： procedure TForm1.Button4Click(Sender: TObject); var vii,vij:Integer; vdt:TDatetime; begin self.IdTCPClient1.Host := '127.0.0.1'; // 局域网内提供授时服务的主机IP地址 self.IdTCPClient1.Port := 1301; // 授时服务器的端口 self.IdTCPClient1.Connect(); vii := self.IdTCPClient1.ReadInteger(); viJ := self.IdTCPClient1.ReadInteger(); vdt := (vii + vij / 100000000) / 1000; label1.Caption := datetimetostr(vdt); self.IdTCPClient1.Disconnect; end;

【文件预览】：
FMJSyncTime.ini
FMJSyncTime.exe