delphi 网络时间校对


delphi 网络时间校对

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



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

联系电话:
020-00000000
联系电话:
020-00000000
联系电话:
020-12345678