|
- unit uIdGeneratorOptions;
-
- interface
-
- uses
- System.DateUtils, System.SysUtils;
-
- type
- TIdGeneratorOptions = class
- private
- FMethod: SmallInt;
- // FBaseTime: TDateTime;
- FBaseTime: Int64;
- FWorkerId: Word;
- FWorkerIdBitLength: Byte;
- FSeqBitLength: Byte;
- FMaxSeqNumber: Integer;
- FMinSeqNumber: Word;
- FTopOverCostCount: Integer;
- FDataCenterId: Cardinal;
- FDataCenterIdBitLength: Byte;
- FTimestampType: Byte;
- public
- /// <summary>
- /// 雪花计算方法
- /// (1-漂移算法|2-传统算法),默认1
- /// </summary>
- property Method: SmallInt read FMethod write FMethod default 1;
- /// <summary>
- /// 基础时间(UTC格式)
- /// 不能超过当前系统时间
- /// </summary>
- // property BaseTime: TDateTime read FBaseTime write FBaseTime;
- property BaseTime: Int64 read FBaseTime write FBaseTime;
- /// <summary>
- /// 机器码
- /// 必须由外部设定,最大值 2^WorkerIdBitLength-1
- /// </summary>
- property WorkerId: Word read FWorkerId write FWorkerId default 0;
- /// <summary>
- /// 机器码位长
- /// 默认值6,取值范围 [1, 15](要求:序列数位长+机器码位长不超过22)
- /// </summary>
- property WorkerIdBitLength: Byte read FWorkerIdBitLength write FWorkerIdBitLength default 6; // 10;
- /// <summary>
- /// 序列数位长
- /// 默认值6,取值范围 [3, 21](要求:序列数位长+机器码位长不超过22)
- /// </summary>
- property SeqBitLength: Byte read FSeqBitLength write FSeqBitLength default 6; // 10;
- /// <summary>
- /// 最大序列数(含)
- /// 设置范围 [MinSeqNumber, 2^SeqBitLength-1],默认值0,表示最大序列数取最大值(2^SeqBitLength-1])
- /// </summary>
- property MaxSeqNumber: Integer read FMaxSeqNumber write FMaxSeqNumber default 0;
- /// <summary>
- /// 最小序列数(含)
- /// 默认值5,取值范围 [5, MaxSeqNumber],每毫秒的前5个序列数对应编号0-4是保留位,其中1-4是时间回拨相应预留位,0是手工新值预留位
- /// </summary>
- property MinSeqNumber: Word read FMinSeqNumber write FMinSeqNumber default 5;
- /// <summary>
- /// 最大漂移次数(含),
- /// 默认2000,推荐范围500-10000(与计算能力有关)
- /// </summary>
- property TopOverCostCount: Integer read FTopOverCostCount write FTopOverCostCount default 2000;
- /// <summary>
- /// 数据中心ID(默认0)
- /// </summary>
- property DataCenterId: Cardinal read FDataCenterId write FDataCenterId default 0;
- /// <summary>
- /// 数据中心ID长度(默认0)
- /// </summary>
- property DataCenterIdBitLength: Byte read FDataCenterIdBitLength write FDataCenterIdBitLength default 0;
- /// <summary>
- /// 时间戳类型(0-毫秒,1-秒),默认0
- /// </summary>
- property TimestampType: Byte read FTimestampType write FTimestampType default 0;
-
- constructor Create(); overload;
- constructor Create(WorkerId: Word); overload;
- end;
-
- implementation
-
- { TIdGeneratorOptions }
-
- constructor TIdGeneratorOptions.Create(WorkerId: Word);
- begin
- FBaseTime := 1582136402000; // EncodeDateTime(2020, 2, 20, 2, 20, 2, 20);
- FWorkerId := WorkerId;
- end;
-
- constructor TIdGeneratorOptions.Create();
- begin
- FBaseTime := 1582136402000; // EncodeDateTime(2020, 2, 20, 2, 20, 2, 20);
- end;
-
- end.
|