从Internet时间服务器获取标准格林尼治时间
2001-05-16 11:59
393 查看
从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 时间服务器获取标准时间来校正 系统时间,说干就干。
程序设计步骤如下:
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时间服务器获取标准时间
- ajax获取服务器时间
- 获取Nist的美国官方标准时间的解决办法
- Java通过Ntp服务器获取网络时间修改本地服务器时间
- js获取当前时间,并将标准日期格式转换成Long型
- js,jquery获取服务器时间
- asp.net用户控件ascx中,如何在js中获取asp.net标准控件或服务器控件
- AJAX获取服务器当前时间
- php获取服务器时间
- 从服务器获取时间的年月日三级联动
- net服务器时间获取与运算;
- python获取标准北京时间的方法
- 获取服务器时间
- js实时获取服务器时间
- js 获取格林尼治时间戳
- java获取系统/服务器时间,从String类型时间获取取一部分时间参数
- 利用php获取服务器时间的实现代码
- UNIX网络编程卷1 时间获取程序服务器 UDP 协议无关
- js获取服务器时间