Delphi通过网络同步校对系统时间的源程序.rar

Delphi实现从互联网更新同步系统时间的功能。你大致可通过本例掌握TidTime控件的基本用法。 编写代码： (1)获取时间： 获取系统时间和网络时间，其中系统时间我们只需要用now函数就可以得到，然后利用DateTimeToStr()函数将它转换为字符串格式赋值给Label1就行了。网络时间我们可以利用TidTime控件的DateTime属性直接得到，不过在使用TidTime的那个属性前我们必须告诉它获取时间的网络地址，即Edit1提供的网址。 (2)校对时间： 这里利用TidTime的SyncTime方法既可轻松完成。 (3)关闭程序： 直接使用DELPHI窗体的Close方法即可。 涉及到对系统时间的修改，网络时间的获取，所有核心代码均用控件的属性和方法实现，看上去好像非常简单，实际上我们要学的并不是这些简单的控件使用方法，而是希望掌握一种学习别人控件的方法，例如我们看到校对时间就是一个SyncTime方法就可以实现，而如果我们用键盘Crtl 鼠标左键点开SyncTime函数。