从Internet时间服务器获取标准格林尼治时间

王朝delphi·作者佚名  2006-01-08
窄屏简体版  字體: |||超大  

从Internet时间服务器获取标准格林尼治时间

由于本机系统时间不准确,所以决定从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

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航