从Internet时间服务器获取标准时间
浏览次数：5545发布日期：2011-04-20
程序设计步骤如下：
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
在线咨询
