如何从国际时钟服务器得到准确的时间?(100分)

  • 主题发起人 主题发起人 baoling
  • 开始时间 开始时间
B

baoling

Unregistered / Unconfirmed
GUEST, unregistred user!
如何从国际时钟服务器得到准确的时间?
望各位老师给予指点
 
真的没人知道怎么做么
 
用 NMDayTime1: TNMDayTime;控件
procedure TForm1.Button1Click(Sender: TObject);
var
a : TSYSTEMTIME;
T:TDateTime;
TimeStr:String;
begin
Label1.Caption := NMDayTime1.DayTimeStr;
TimeStr := copy(Label1.Caption,7,18);
label1.caption := '标准格林威治:'+TimeStr;
update();
T:=(StrToDateTime(TimeStr));
DateTimeToSystemTime(t,a);
SetSystemTime(a);
GetLocalTime(a);
T:=SystemTimeToDateTime(a);
Label2.Caption := '标准北京时间 :'+DateTimeToStr(t);
end;
 
抱歉 少说了
NMDayTime1的host:time.nist.gov
port:13
reportlevel : 2
 
后退
顶部