Question

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

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

Answer 1

如果要实时显示服务器时间，最好先同步服务器时间，然后用timer显示本地时间。
1、获取服务器时间
如果取数据服务器时间，可以用sql取，如oracle的sysdate。。。select sysdate from dual
如果取应用服务器时间，可以在服务器写个远程方法取服务器本地时间 如:now,，然后客户端调用
2、客户端同步服务器时间 uses windows;setsystemtime();
3、timer定时刷新本地时间

Answer 2

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;

Answer 3

路过，不会delphi语言