QQ交談
您所在位置：產品搜索
請輸入產品關鍵字：
聯系方式
地址：上海市翔殷路128號
郵編：
聯系人：魏元棟
電話：86-021-51816731
傳真：86-021-51816733
手機：13918107979
售后電話：4000210499
留言：發送留言
個性化：www.ruichengdianqi.com
手機站：m.ruichengdianqi.com
網址：www.ruichengdianqi.com
商鋪：http://www.xldjsj.com/st163316/
郵編：
聯系人：魏元棟
電話：86-021-51816731
傳真：86-021-51816733
手機：13918107979
售后電話：4000210499
留言：發送留言
個性化：www.ruichengdianqi.com
手機站：m.ruichengdianqi.com
網址：www.ruichengdianqi.com
商鋪：http://www.xldjsj.com/st163316/
技術文章
從Internet時間服務器獲取標準時間
點擊次數：5736 發布時間：2011-4-20
程序設計步驟如下：
1、 新建一個工程；
2、 在窗體上放一個TEdit控件和一個TClientSocket（在Internet頁下）控件。TEdit用來顯示取得的格林尼治時間轉化成北京時間后的時間，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; // 轉化成北京時間；
TempTime:=EncodeTime（hh,mm,ss,ms）;
Edit1.Text :=TimeToStr（TempTime）;
end;
4、 編譯運行，稍微等幾秒鐘（和你的網絡速度有關，筆者等了大概一秒鐘），TEdit控件就顯示出了由格林尼治時間轉化得到的北京時間。
怎么樣？很簡單吧。趕快試一下吧！需要說明一點：由于網絡延時的緣故，這個程序得到的時間會和標準時間有幾秒的誤差，但除非你用來控制火箭的發射，否則，這無妨大礙。
筆者是從美國*天文臺得到標準時間，你還可以從別的時間服務器上獲取時間，但由于每個時間服務器的時間格式不同，所以在編寫程序時要注意作相應的處理。
域名 組織
Clock.sgi.com SGI
Tick.mit.edu 麻省理工學院
Time.nist.gov NIST