200分，标准时间。

Question

不是了，打117得到的时间，要绝对标准。电脑的手工自己改都行，
我想通过Internet可以得到，但没有找到相关资料。

Answer 1

我正好有收录procedure TForm1.FormCreate(Sender: TObject);
begin
     ClientSocket1.Host :='tick.usno.navy.mil';  // 美国海军天文台；
     ClientSocket1.Port :=13;
     ClientSocket1.Open;
end;// Clock.sgi.com                  SGI
// Tick.mit.edu                   麻省理工学院
// Time.nist.gov                  NISTprocedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
 var  TempTime: TDateTime;
      hh,mm,ss,ms: word;
      sTime : string;
begin
     sTime := Socket.ReceiveText;         // 取得格林尼治时间；
     sTime:=Copy(sTime,12,8);             // 取得时间部分；
     DecodeTime(StrToTime(sTime),hh,mm,ss,ms);  
     hh:=(hh+8) mod 24;                   // 转化成北京时间；
     TempTime:=EncodeTime(hh,mm,ss,ms);
     Edit1.Text :=TimeToStr(TempTime);
end;

Answer 2

floattofool(foolish) ，收到，先试一试，管用就结贴。

Answer 3

哦，原来这样，那直接连接上时间服务器的13号端口，时间服务器就直接返回当时的标准时间了,具体参考RFC867.txt协议。注意：这个协议不对时间格式进行统一规定，所以不同的时间服务器返回的时间格式可能不同，你自己必须进行分析。