网络自动校时器

最新推荐文章于 2014-07-10 08:59:30 发布

人鱼传说

最新推荐文章于 2014-07-10 08:59:30 发布

阅读量3.1k

点赞数

文章标签：网络 timer

本文链接：https://blog.csdn.net/baronyang/article/details/1507386

版权

if strtotime('06:01:01')=strtotime(timetostr(time)) then--//调用
   begin
     timer1.Enabled:=false;
     VerifyStandardTime;//校验标准时间
     timer1.Enabled:=true;
   end;

procedure TMYService.VerifyStandardTime;//校验标准时间过程
var
idSNTP1:Tidsntp; //校时器
systemtime:Tsystemtime;//系统时间
begin
idsntp1:=Tidsntp.Create(nil);
try
idsntp1.Host:='time.nist.gov';
idsntp1.Port:=123;
idsntp1.Active:=true;
if idsntp1.SyncTime then
    begin
      datetimetosystemtime(idsntp1.DateTime,systemtime);//时间转换
      setlocaltime(systemtime);
      writelog('<--校时成功--> '+datetimetostr(now));
    end;
finally
idsntp1.Active:=false;
idsntp1.Free;
end;
end;