產(chǎn)品推薦：氣相|液相|光譜|質(zhì)譜|電化學|元素分析|水分測定儀|樣品前處理|試驗機|培養(yǎng)箱

2025版儀器采購寶典電子書

化工儀器網(wǎng)>技術(shù)中心>解決方案>正文

歡迎聯(lián)系我

有什么可以幫您？ 在線咨詢

從Internet時間服務器獲取標準時間

來源：上海銳呈電氣有限公司   2011年04月20日 13:26  

 

由于本機系統(tǒng)時間不準確，所以決定從Internet 時間服務器獲取標準時間來校正系統(tǒng)時間，說干就干。
　　程序設計步驟如下：
　　1、 新建一個工程；
　　2、 在窗體上放一個TEdit控件和一個TClientSocket（在Internet頁下）控件。TEdit用來顯示取得的格林尼治時間轉(zhuǎn)化成北京時間后的時間，TClientSocket用來從Internet 時間服務器獲取標準的格林尼治時間；
　　3、 程序代碼如下：
procedure TForm1.FormCreate（Sender: TObject）;
begin
  ClientSocket1.Host :='tick.usno.navy.mil';  // 美國*天文臺；
  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;    // 取得格林尼治時間；
  sTime:=Copy（sTime,12,8）;      // 取得時間部分；
  DecodeTime（StrToTime（sTime）,hh,mm,ss,ms）;  
  hh:=（hh+8） mod 24;           // 轉(zhuǎn)化成北京時間；
  TempTime:=EncodeTime（hh,mm,ss,ms）;
  Edit1.Text :=TimeToStr（TempTime）;
end;
　　4、 編譯運行，稍微等幾秒鐘（和你的網(wǎng)絡速度有關(guān)，筆者等了大概一秒鐘），TEdit控件就顯示出了由格林尼治時間轉(zhuǎn)化得到的北京時間。
　　怎么樣？很簡單吧。趕快試一下吧！需要說明一點：由于網(wǎng)絡延時的緣故，這個程序得到的時間會和標準時間有幾秒的誤差，但除非你用來控制火箭的發(fā)射，否則，這無妨大礙。
　　筆者是從美國*天文臺得到標準時間，你還可以從別的時間服務器上獲取時間，但由于每個時間服務器的時間格式不同，所以在編寫程序時要注意作相應的處理。
   域名                                組織
Clock.sgi.com                       SGI
Tick.mit.edu                   麻省理工學院
Time.nist.gov                        NIST

免責聲明

  • 凡本網(wǎng)注明“來源：化工儀器網(wǎng)”的所有作品，均為浙江興旺寶明通網(wǎng)絡有限公司-化工儀器網(wǎng)合法擁有版權(quán)或有權(quán)使用的作品，未經(jīng)本網(wǎng)授權(quán)不得轉(zhuǎn)載、摘編或利用其它方式使用上述作品。已經(jīng)本網(wǎng)授權(quán)使用作品的，應在授權(quán)范圍內(nèi)使用，并注明“來源：化工儀器網(wǎng)”。違反上述聲明者，本網(wǎng)將追究其相關(guān)法律責任。
  • 本網(wǎng)轉(zhuǎn)載并注明自其他來源（非化工儀器網(wǎng)）的作品，目的在于傳遞更多信息，并不代表本網(wǎng)贊同其觀點和對其真實性負責，不承擔此類作品侵權(quán)行為的直接責任及連帶責任。其他媒體、網(wǎng)站或個人從本網(wǎng)轉(zhuǎn)載時，必須保留本網(wǎng)注明的作品第一來源，并自負版權(quán)等法律責任。
  • 如涉及作品內(nèi)容、版權(quán)等問題，請在作品發(fā)表之日起一周內(nèi)與本網(wǎng)聯(lián)系，否則視為放棄相關(guān)權(quán)利。
企業(yè)未開通此功能
詳詢客服 : 0571-87858618