手機(jī)版
化工儀器網(wǎng)手機(jī)版
化工儀器網(wǎng)小程序
官方微信
公眾號(hào)：chem17
掃碼關(guān)注視頻號(hào)
從Internet時(shí)間服務(wù)器獲取標(biāo)準(zhǔn)時(shí)間
由于本機(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
相關(guān)產(chǎn)品
免責(zé)聲明
- 凡本網(wǎng)注明“來(lái)源：化工儀器網(wǎng)”的所有作品，均為浙江興旺寶明通網(wǎng)絡(luò)有限公司-化工儀器網(wǎng)合法擁有版權(quán)或有權(quán)使用的作品，未經(jīng)本網(wǎng)授權(quán)不得轉(zhuǎn)載、摘編或利用其它方式使用上述作品。已經(jīng)本網(wǎng)授權(quán)使用作品的，應(yīng)在授權(quán)范圍內(nèi)使用，并注明“來(lái)源：化工儀器網(wǎng)”。違反上述聲明者，本網(wǎng)將追究其相關(guān)法律責(zé)任。
- 本網(wǎng)轉(zhuǎn)載并注明自其他來(lái)源（非化工儀器網(wǎng)）的作品，目的在于傳遞更多信息，并不代表本網(wǎng)贊同其觀點(diǎn)和對(duì)其真實(shí)性負(fù)責(zé)，不承擔(dān)此類作品侵權(quán)行為的直接責(zé)任及連帶責(zé)任。其他媒體、網(wǎng)站或個(gè)人從本網(wǎng)轉(zhuǎn)載時(shí)，必須保留本網(wǎng)注明的作品第一來(lái)源，并自負(fù)版權(quán)等法律責(zé)任。
- 如涉及作品內(nèi)容、版權(quán)等問(wèn)題，請(qǐng)?jiān)谧髌钒l(fā)表之日起一周內(nèi)與本網(wǎng)聯(lián)系，否則視為放棄相關(guān)權(quán)利。
采購(gòu)中心