delphi 网络时间校对

客户端登录的时候，自动同中间件校对时间。

 

procedure TdmCommonFun.setLocalDateTime(Value: TDateTime);
var
  lSystemDateTime: TSystemTime;
begin
  DateTimeToSystemTime(Value, lSystemDateTime);
  SetLocalTime(lSystemDateTime);
end;