网络时间校对
客户端登录的时候,自动同中间件校对时间。
procedure TdmCommonFun.setLocalDateTime(Value: TDateTime);
var
lSystemDateTime: TSystemTime;
begin
DateTimeToSystemTime(Value, lSystemDateTime);
SetLocalTime(lSystemDateTime);
end;
本文来自博客园,作者:{咏南中间件},转载请注明原文链接:https://www.cnblogs.com/hnxxcxg/archive/2013/01/05/2846416.html