huangyhg

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

__________________
借用达朗贝尔的名言：前进吧，你会得到信心!
[url="http://www.dimcax.com"]几何尺寸与公差标准[/url]

huangyhg

精确对时:增加Internet时间服务器
http://www.soidc.net/articles/12154...45398544_1.html

__________________
借用达朗贝尔的名言：前进吧，你会得到信心!
[url="http://www.dimcax.com"]几何尺寸与公差标准[/url]