实例一通过互联网校对系统时间.pdfVIP

从 互 联 网 校 对 系 统 时 间 【程序说明】 本程序实现了从互联网得到时间然后修改系统时间的功能。通过本例，读者可以掌握 TidTime 控件的基本 用法和如何察看控件函数的实现。 程序运行效果如图所示。 图 201 【编程思路】 实例利用 TIdTimeImage 控件从互联网获取标准时间，调用 SetLocalTime() 函数校对系统时间。 【编程步骤】 1.启动 DELPHI ，建立一个标准的项目。 2.添加控件： （1）添加 TIdTime 控件：本例使用了 TIdTime 控件 SStab，在该控件不是一个常用控件，我们需要在组件 页的 Indy Clients 页找到这个控件。 图 202 （2 ）添加其他控件： 一个 Tedit 控件用于修改获取网络时间的网址， 若干标签用来显示信息， 若干按钮用于执行操作。 调整好他 们的大小和位置，如图所示。 图 203 1.按下表修改控件属性： 控件名称 对象名称 控件属性 设置值 Button1 Caption 获取时间 (G) TButton Button2 Caption 校对时间 (A) Button3 Caption 退出程序 (X) TEdit Edit1 Text Tlabel Label1 Caption 网络地址： 2.编写代码： （1）获取时间： 我们需要获取系统时间和网络时间，其中系统时间我们只需要用 now 函数就可以得到，然后利用 DateTimeToStr() 函数将它转换为字符串格式赋值给 Label1 就行了。 网络时间我们可以利用 TidTime 控件的 DateTime 属性直接得到， 不过在使用 TidTime 的那个属性前我们必 须告诉它获取时间的网络地址，即 Edit1 提供的网址。 此按钮的完整代码如下： procedure TForm1.Button1Click(Sender: TObject); begin IdTime1.Host:=Edit1.Text; Label2.Caption:= 网络时间： +DatetimeToStr(IdTime1.DateTime); Label1.Caption:= 系统时间： +DatetimeToStr(now); end; （2 ）校对时间： 这里利用 TidTime 的 SyncTime 方法既可轻松完成。 此按钮的完整代码如下： procedure TForm1.Button2Click(Sender: TObject); begin IdTime1.SyncTime; end; （3 ）关闭程序： 直接使用 DELPHI 窗体的 Close 方法即可。 此按钮得完整代码如下： procedure TForm1.Button3Click(Sender: TObject); begin Close; end; 3.代码编写完毕，按 F9 执行该工程，试试看看能否正确实现程序的功能。 【程序小结】 本程序涉及到对系统时间的修改，网络时间的获取，所有核心代码均用控件的属性和方法实现，看上去好 像非常简单， 实际上我们要学的并不是这些简单的控件使用方法， 而是希望掌握一种学习别人控件的方法， 例如我们看到校对