从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.comSGI

Tick.mit.edu麻省理工学院

Time.nist.govNIST