您好,欢迎进入上海锐呈电气有限公司网站!
一键分享网站到:
您现在的位置:首页 >> 技术文章 >> 从Internet时间服务器获取标准时间
从Internet时间服务器获取标准时间
浏览次数:4851发布日期:2011-04-20

 

由于本机系统时间不准确,所以决定从Internet 时间服务器获取标准时间来校正系统时间,说干就干。
  程序设计步骤如下:
  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
    QQ在线客服
  •   在线咨询
  • 点击这里给我发消息
电话
86-021-51816731
手机
13918107979

沪公网安备 31011002000425号

扫一扫访问手机站扫一扫访问手机站
访问手机站