網路自動校時器

2021-04-12 18:08:01 字數 758 閱讀 2188

if strtotime('06:01:01')=strtotime(timetostr(time)) then--//呼叫

begin

timer1.enabled:=false;

verifystandardtime;//校驗標準時間

timer1.enabled:=true;

end;

procedure tmyservice.verifystandardtime;//校驗標準時間過程

varidsntp1:tidsntp; //校時器

systemtime:tsystemtime;//系統時間

begin

idsntp1:=tidsntp.create(nil);

tryidsntp1.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; 

VFP實現網路校時

vfp實現網路校時 客戶機與校時伺服器日期相同時可以校對時間,日期有差異時校時會失敗 strtofile net time setsntp 210.72.145.44 chr 13 chr 10 net stop w32time chr 13 chr 10 net start w32time chr...

網路校時(非NTP)

windows一用就是幾年,總會碰到個更改系統時間的時候。可是把系統時間調壞了容易,要調出個正確可就沒那麼簡單了。幾年前 還上大學的時候,大概是大三吧 用c 寫過乙個ntp的程式,但是時過境遷,ntp的ip更改實在太頻繁了 難道是因為沒有商業利潤?windows的 internet 時間 我從來就沒...

北斗校時器(北斗衛星校時器 北斗衛星同步時鐘)

北斗校時器 北斗衛星校時器 北斗衛星同步時鐘 北斗校時器 北斗衛星校時器 北斗衛星同步時鐘 技術諮詢 岳峰 15901092122 yf cs 163.com q 522508213 北斗衛星校時器是針對計算機 自動化裝置等進行校時而研發的高科技產品,北斗衛星校時器從北斗衛星上獲取標準的時間訊號,將...