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

发布网友发布时间：2022-04-11 22:22

共3个回答

热心网友时间：2022-04-11 23:51

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

热心网友时间：2022-04-12 01:09

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;

热心网友时间：2022-04-12 02:44

路过，不会delphi语言