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;
