从Internet时间服务器获取标准时间
点击次数：64 次 发布日期：2008-11-09 08:41:33 作者：源代码网
源代码网推荐 源代码网推荐 程序设计步骤如下： 源代码网推荐 源代码网推荐 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 源代码网推荐 源代码网供稿. |
