取QQ服务器时间

Question

最近我做了一个自动关机的程序,取本机时间是可以.但本机时间是会被改动.所以就没意义了.
现在我想通过QQ取QQ服务器的时间.哪位高手给点意见.

Answer 1

取QQ服务器的时间？
那你还不如取CSDN服务器的时间。
给自己发一个消息，然后查看最新消息的发送时间。
用IdHttp来实现。或者你找到哪个网站有显示服务器时间的，读出来就可以了。

Answer 2

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;希望CCTV1能给我提供这样的功能

Answer 3

ghyghost(爱国人士).这样好像不行吧

Answer 4

你可以用windows的net time 去同步某个服务器的时间即可．