从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 |
回复: 从Internet时间服务器获取标准格林尼治时间
精确对时:增加Internet时间服务器
http://www.soidc.net/articles/12154...45398544_1.html |
所有的时间均为北京时间。 现在的时间是 05:15 PM. |