如何讓用戶端時間與伺務器的時間同步 |
尚未結案
|
guohua_fu
一般會員 發表:44 回覆:50 積分:18 註冊:2003-06-19 發送簡訊給我 |
|
hagar
版主 發表:143 回覆:4056 積分:4445 註冊:2002-04-14 發送簡訊給我 |
這有一篇: http://groups.google.com.tw/groups?hl=zh-TW&lr=&ie=UTF-8&oe=UTF-8&th=9af1adace2da0f43&rnum=3
uses idGlobal, idDayTime, IdTime, function UTCTimeFromInternet_Port13 (const silent:boolean=false) : TDateTime ; {Get the time from the Internet using the NIST time server time.nist.gov) and put it in a TDateTime Uses Port 13. This port might be blocked by some fire walls} var idDayTime : TidDayTime ; UTCTime : TDateTime ; begin Try idDayTime := TidDayTime.Create (NIL); Try idDayTime.Host := 'time.nist.gov' ; Result := UTCSTringToDateTime (idDayTime.DayTimeStr) ; Except Result := 0 ; if not silent then Raise end ; Finally Try idDayTime.Disconnect ; idDayTime.Free; Except end ; end ; end ; function UTCTimeFromInternet_Port37 (const silent:boolean=false) : TDateTime ; {Get the time from the Internet using the NIST time server time.nist.gov) and put it in a TDateTime Uses Port 37. This port might be blocked by some fire walls} var idTime : TidTime ; UTCTime : TDateTime ; begin Try idTime := TidTime.Create (NIL); Try idTime.Host := 'time.nist.gov' ; Result := idTime.DateTime - OffsetFromUTC ; Except Result := 0 ; if not silent then Raise end ; Finally Try idTime.Disconnect ; idTime.Free; Except end ; end ; end ;--- 每個人都是一本書 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |