从Internet时间服务器获取标准时间_Delphi

  • 内容
  • 评论
  • 相关

由于本机系统时间不准确,所以决定从Internet 时间服务器获取标准时间来校正  系统时间,说干就干。

程序设计步骤如下:

1、  新建一个工程;

2、  在窗体上放一个TEdit控件和一个TClientsocket(在Internet页下)控件。TEdit用来显示取得的格林尼治时间转化成北京时间后的时间,TClientSocket用来从Internet 时间服务器获取标准的格林尼治时间;

3、  程序代码如下:

http://www.gaodaima.com/?p=65969从Internet时间服务器获取标准时间_Delphi

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

欢迎大家阅读《从Internet时间服务器获取标准时间_Delphi》,跪求各位点评,若觉得好的话请收藏本文,by 搞代码

原创文章,转载请注明: 转载自搞代码

本文链接地址: 从Internet时间服务器获取标准时间_Delphi

微信支付二维码

微信 赏一包辣条吧~

支付宝支付二维码

支付宝 赏一听可乐吧~

评论

0条评论

发表评论

电子邮件地址不会被公开。 必填项已用*标注