eaglecn 发表于 2007-11-8 13:29

[求助]网上校对时间程序出错（附源码）

<P>procedure TForm1.Timer1Timer(Sender: TObject);<br>begin<br>  IdTime1.Host:='210.72.145.44';<br>  label3.Caption:=datetimetostr(IdTime1.DateTime);<br>  label4.Caption:=datetimetostr(Now());<br>end;</P>
<P>procedure TForm1.Button1Click(Sender: TObject);<br>begin<br>  IdTime1.SyncTime;<br>end;</P>
<P>end.</P><br>[attach]30037[/attach]<br>
[align=right][color=#000066][此贴子已经被作者于2007-11-8 15:37:10编辑过][/color][/align]

anthony634 发表于 2007-11-8 18:41

端口没设，连接不成功

页: [1]

编程论坛