delphi中客户端如何获得服务器时钟时间

显示全部楼层 · 2011-3-24 03:59:42

客户端的时间和服务器的时间不一致，怎么获取服务器时间然后在客户端显示，要实现的代码。谢谢了，急

千问 · 2011-3-24 03:59:42

<pre id=\"best-answer-content\" class=\"reply-text mb10\">1：如果是SQL数据库程序：SELECT GETDATE()
2：socket组件通讯
...

取得时间后，比较时间差，如果超过一定值（如30秒），执行时间同步：

//根据提供的时间设置本地系统时间
Function Set_LocalTime(aTime: TDateTime): Boolean;
Var
ADateTime: TSystemTime; //系统时间格式
Begin
SysUtils.DateTimeToSystemTime(aTime, ADateTime);
Result := SetLocalTime(ADateTime);
SendMessage(HWND_BROADCAST, WM_TIMECHANGE, 0, 0); //广播消息：时间已改变！
End;