level 1
长虹64
楼主
我在网上找到一代相关代码,但是要用到什么单元我不知道,结果不能运行。
procedure TForm1.Button1Click(Sender: TObject);
var
TimeStr: String;
begin
SntpClient.Host := 'clock.isc.org';
SntpClient.ReceiveTimeout := 15000;
TimeStr:=FormatDateTime('YYYY-MM-DD HH:NN:SS:ZZZ',SntpClient.DateTime);
ShowMessage(TimeStr);
end;
请哪位大神帮我请这段代码使它能正确运行显出网络时间。
谢谢
2014年12月17日 06点12分
1
procedure TForm1.Button1Click(Sender: TObject);
var
TimeStr: String;
begin
SntpClient.Host := 'clock.isc.org';
SntpClient.ReceiveTimeout := 15000;
TimeStr:=FormatDateTime('YYYY-MM-DD HH:NN:SS:ZZZ',SntpClient.DateTime);
ShowMessage(TimeStr);
end;
请哪位大神帮我请这段代码使它能正确运行显出网络时间。
谢谢