98 lines
3.2 KiB
ObjectPascal
98 lines
3.2 KiB
ObjectPascal
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.
|