會(huì)員.png)
QQ交談
您所在位置：產(chǎn)品搜索
請(qǐng)輸入產(chǎn)品關(guān)鍵字：
聯(lián)系方式
地址：上海市翔殷路128號(hào)
郵編：
聯(lián)系人：魏元棟
電話：86-021-51816731
傳真：86-021-51816733
手機(jī)：13918107979
售后電話：4000210499
留言：發(fā)送留言
個(gè)性化：www.ruichengdianqi.com
手機(jī)站：m.ruichengdianqi.com
網(wǎng)址：www.ruichengdianqi.com
商鋪：http://www.muquzhou.cn/st163316/
郵編：
聯(lián)系人：魏元棟
電話：86-021-51816731
傳真：86-021-51816733
手機(jī)：13918107979
售后電話：4000210499
留言：發(fā)送留言
個(gè)性化：www.ruichengdianqi.com
手機(jī)站：m.ruichengdianqi.com
網(wǎng)址：www.ruichengdianqi.com
商鋪：http://www.muquzhou.cn/st163316/
技術(shù)文章
從Internet時(shí)間服務(wù)器獲取標(biāo)準(zhǔn)時(shí)間
點(diǎn)擊次數(shù)：5822 發(fā)布時(shí)間：2011-4-20
由于本機(jī)系統(tǒng)時(shí)間不準(zhǔn)確，所以決定從Internet 時(shí)間服務(wù)器獲取標(biāo)準(zhǔn)時(shí)間來(lái)校正系統(tǒng)時(shí)間，說(shuō)干就干。
程序設(shè)計(jì)步驟如下：
1、 新建一個(gè)工程；
2、 在窗體上放一個(gè)TEdit控件和一個(gè)TClientSocket（在Internet頁(yè)下）控件。TEdit用來(lái)顯示取得的格林尼治時(shí)間轉(zhuǎn)化成北京時(shí)間后的時(shí)間，TClientSocket用來(lái)從Internet 時(shí)間服務(wù)器獲取標(biāo)準(zhǔn)的格林尼治時(shí)間；
3、 程序代碼如下：
procedure TForm1.FormCreate（Sender: TObject）;
begin
ClientSocket1.Host :='tick.usno.navy.mil'; // 美國(guó)*天文臺(tái)；
ClientSocket1.Port :=13;
ClientSocket1.Open;
end;
procedure TForm1.ClientSocket1Read（Sender: TObject;
Socket: TCustomWinSocket）;
var
TempTime: TDateTime;
hh,mm,ss,ms: word;
sTime : string;
begin
sTime := Socket.ReceiveText; // 取得格林尼治時(shí)間；
sTime:=Copy（sTime,12,8）; // 取得時(shí)間部分；
DecodeTime（StrToTime（sTime）,hh,mm,ss,ms）;
hh:=（hh+8） mod 24; // 轉(zhuǎn)化成北京時(shí)間；
TempTime:=EncodeTime（hh,mm,ss,ms）;
Edit1.Text :=TimeToStr（TempTime）;
end;
4、 編譯運(yùn)行，稍微等幾秒鐘（和你的網(wǎng)絡(luò)速度有關(guān)，筆者等了大概一秒鐘），TEdit控件就顯示出了由格林尼治時(shí)間轉(zhuǎn)化得到的北京時(shí)間。
怎么樣？很簡(jiǎn)單吧。趕快試一下吧！需要說(shuō)明一點(diǎn)：由于網(wǎng)絡(luò)延時(shí)的緣故，這個(gè)程序得到的時(shí)間會(huì)和標(biāo)準(zhǔn)時(shí)間有幾秒的誤差，但除非你用來(lái)控制火箭的發(fā)射，否則，這無(wú)妨大礙。
筆者是從美國(guó)*天文臺(tái)得到標(biāo)準(zhǔn)時(shí)間，你還可以從別的時(shí)間服務(wù)器上獲取時(shí)間，但由于每個(gè)時(shí)間服務(wù)器的時(shí)間格式不同，所以在編寫(xiě)程序時(shí)要注意作相應(yīng)的處理。
域名 組織
Clock.sgi.com SGI
Tick.mit.edu 麻省理工學(xué)院
Time.nist.gov NIST