如题。最好是调试成功的!

解决方案 »

  1.   

    由于本机系统时间不准确,所以决定从Internet 时间服务器获取标准时间来校正  系统时间,说干就干。程序设计步骤如下:1、  新建一个工程;2、  在窗体上放一个TEdit控件和一个TClientSocket(在Internet页下)控件。TEdit用来显示取得的格林尼治时间转化成北京时间后的时间,TClientSocket用来从Internet 时间服务器获取标准的格林尼治时间;3、  程序代码如下:procedure TForm1.FormCreate(Sender: TObject);begin  ClientSocket1.Host :='tick.usno.navy.mil';  // 美国海军天文台;  ClientSocket1.Port :=13;  ClientSocket1.Open;end; procedure 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;
    网上直接搜索的
      

  2.   

    http://www.23book.net/SoftwareDev/Delphi/36074.htm