从Internet时间服务器获取标准格林尼治时间

页面导航:首页 > 软件编程 > Delphi > 从Internet时间服务器获取标准格林尼治时间

从Internet时间服务器获取标准格林尼治时间

来源: 作者: 时间:2016-01-23 10:15 【

从Internet时间服务器获取标准格林尼治时间由于本机系统时间不准确,所以决定从Internet 时间服务器获取标准时间来校正 系统时间,说干就干。程序设计步骤如下:1、 新建一个工程;

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);      // 取得时间部分;

Tags:

相关文章

    文章评论

    最 近 更 新
    热 点 排 行
    Js与CSS工具
    代码转换工具
    
    <