文件名称:Delphi通过网络同步校对系统时间的源程序.rar
文件大小:36KB
文件格式:RAR
更新时间:2022-07-29 06:19:25
Delphi源码-网络相关
Delphi实现从互联网更新同步系统时间的功能。你大致可通过本例掌握TidTime控件的基本用法。 编写代码: (1)获取时间: 获取系统时间和网络时间,其中系统时间我们只需要用now函数就可以得到,然后利用DateTimeToStr()函数将它转换为字符串格式赋值给Label1就行了。网络时间我们可以利用TidTime控件的DateTime属性直接得到,不过在使用TidTime的那个属性前我们必须告诉它获取时间的网络地址,即Edit1提供的网址。 (2)校对时间: 这里利用TidTime的SyncTime方法既可轻松完成。 (3)关闭程序: 直接使用DELPHI窗体的Close方法即可。 涉及到对系统时间的修改,网络时间的获取,所有核心代码均用控件的属性和方法实现,看上去好像非常简单,实际上我们要学的并不是这些简单的控件使用方法,而是希望掌握一种学习别人控件的方法,例如我们看到校对时间就是一个SyncTime方法就可以实现,而如果我们用键盘Crtl 鼠标左键点开SyncTime函数。
【文件预览】:
NetClock
----down.liehuo.net()
--------liehuo.net.txt(41B)
--------down.liehuo.net.url(135B)
--------说明文件.txt(1KB)
--------3.bmp(136KB)
--------2.bmp(136KB)
--------实例一 通过互联网校对系统时间.doc(51KB)
--------1.BMP(99KB)
--------Unit1.dfm(2KB)
--------淘宝优惠购物.url(117B)
--------Project1.cfg(646B)
--------Project1.dpr(188B)
--------Unit1.pas(1KB)
--------Project1.res(876B)
--------烈火学院.url(314B)