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

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

程序设计步骤如下

新建一个工程

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

程序代码如下

procedure TFormFormCreate(Sender: TObject);

begin

ClientSocketHost :=tickusnonavymil; // 美国海军天文台

ClientSocketPort :=;

ClientSocketOpen;

end;

procedure TFormClientSocketRead(Sender: TObject;

Socket: TCustomWinSocket);

var

TempTime: TDateTime;

hhmmssms: word;

sTime : string;

begin

sTime := SocketReceiveText; // 取得格林尼治时间

sTime:=Copy(sTime); // 取得时间部分

DecodeTime(StrToTime(sTime)hhmmssms);

hh:=(hh+) mod ; // 转化成北京时间

TempTime:=EncodeTime(hhmmssms);

EditText :=TimeToStr(TempTime);

end;

编译运行稍微等几秒钟（和你的网络速度有关笔者等了大概一秒钟）TEdit控件就显示出了由格林尼治时间转化得到的北京时间

怎么样？很简单吧赶快试一下吧！需要说明一点由于网络延时的缘故这个程序得到的时间会和标准时间有几秒的误差但除非你用来控制火箭的发射否则这无妨大碍

笔者是从美国海军天文台得到标准时间你还可以从别的时间服务器上获取时间但由于每个时间服务器的时间格式不同所以在编写程序时要注意作相应的处理

域名 组织

Clocksgicom SGI

Tickmitedu 麻省理工学院

Timenistgov NIST