219 lines
7.7 KiB
ObjectPascal
219 lines
7.7 KiB
ObjectPascal
unit ZSTDDLL;
|
|
|
|
interface
|
|
|
|
uses
|
|
Utils, LibImport,
|
|
WinAPI.Windows,
|
|
System.SysUtils;
|
|
|
|
type
|
|
ZSTD_strategy = (ZSTD_fast = 1, ZSTD_dfast = 2, ZSTD_greedy = 3,
|
|
ZSTD_lazy = 4, ZSTD_lazy2 = 5, ZSTD_btlazy2 = 6, ZSTD_btopt = 7,
|
|
ZSTD_btultra = 8, ZSTD_btultra2 = 9, ZSTD_strategy_Force32 = $40000000);
|
|
|
|
ZSTD_ResetDirective = (ZSTD_reset_session_only = 1, ZSTD_reset_parameters = 2,
|
|
ZSTD_reset_session_and_parameters = 3,
|
|
ZSTD_ResetDirective_Force32 = $40000000);
|
|
|
|
PZSTD_inBuffer = ^ZSTD_inBuffer;
|
|
|
|
ZSTD_inBuffer = record
|
|
src: Pointer;
|
|
size: size_t;
|
|
pos: size_t;
|
|
end;
|
|
|
|
PZSTD_outBuffer = ^ZSTD_outBuffer;
|
|
|
|
ZSTD_outBuffer = record
|
|
dst: Pointer;
|
|
size: size_t;
|
|
pos: size_t;
|
|
end;
|
|
|
|
PZSTD_CCtx_params = Pointer;
|
|
|
|
ZSTD_cParameter = (ZSTD_c_compressionLevel = 100, ZSTD_c_windowLog = 101,
|
|
ZSTD_c_hashLog = 102, ZSTD_c_chainLog = 103, ZSTD_c_searchLog = 104,
|
|
ZSTD_c_minMatch = 105, ZSTD_c_targetLength = 106, ZSTD_c_strategy = 107,
|
|
ZSTD_c_enableLongDistanceMatching = 160, ZSTD_c_ldmHashLog = 161,
|
|
ZSTD_c_ldmMinMatch = 162, ZSTD_c_ldmBucketSizeLog = 163,
|
|
ZSTD_c_ldmHashRateLog = 164, ZSTD_c_contentSizeFlag = 200,
|
|
ZSTD_c_checksumFlag = 201, ZSTD_c_dictIDFlag = 202, ZSTD_c_nbWorkers = 400,
|
|
ZSTD_c_jobSize = 401, ZSTD_c_overlapLog = 402,
|
|
ZSTD_c_experimentalParam1 = 500, ZSTD_c_experimentalParam2 = 10,
|
|
ZSTD_c_experimentalParam3 = 1000, ZSTD_c_experimentalParam4 = 1001,
|
|
ZSTD_c_experimentalParam5 = 1002, ZSTD_c_experimentalParam6 = 1003,
|
|
ZSTD_c_experimentalParam7 = 1004, ZSTD_c_experimentalParam8 = 1005,
|
|
ZSTD_c_experimentalParam9 = 1006, ZSTD_c_experimentalParam10 = 1007,
|
|
ZSTD_c_experimentalParam11 = 1008, ZSTD_c_experimentalParam12 = 1009,
|
|
ZSTD_c_experimentalParam13 = 1010, ZSTD_c_experimentalParam14 = 1011,
|
|
ZSTD_c_experimentalParam15 = 1012, ZSTD_cParameter_Force32 = $40000000);
|
|
|
|
ZSTD_compressionParameters = record
|
|
windowLog: Cardinal;
|
|
chainLogg: Cardinal;
|
|
hashLogg: Cardinal;
|
|
searchLogg: Cardinal;
|
|
minMatchg: Cardinal;
|
|
targetLengthg: Cardinal;
|
|
strategy: ZSTD_strategy;
|
|
end;
|
|
|
|
ZSTD_frameParameters = record
|
|
contentSizeFlag: Integer;
|
|
checksumFlag: Integer;
|
|
noDictIDFlag: Integer;
|
|
end;
|
|
|
|
ZSTD_parameters = record
|
|
cParams: ZSTD_compressionParameters;
|
|
fParams: ZSTD_frameParameters;
|
|
end;
|
|
|
|
var
|
|
ZSTD_compress: function(dst: Pointer; dstCapacity: size_t; const src: Pointer;
|
|
srcSize: size_t; compressionLevel: Integer): size_t cdecl;
|
|
ZSTD_compress2: function(cctx: Pointer; dst: Pointer; dstCapacity: size_t;
|
|
const src: Pointer; srcSize: size_t): size_t cdecl;
|
|
ZSTD_decompress: function(dst: Pointer; dstCapacity: size_t;
|
|
const src: Pointer; srcSize: size_t): SSIZE_T cdecl;
|
|
ZSTD_findFrameCompressedSize: function(const src: Pointer; srcSize: size_t)
|
|
: int64 cdecl;
|
|
ZSTD_findDecompressedSize: function(const src: Pointer; srcSize: size_t)
|
|
: int64 cdecl;
|
|
ZSTD_createCCtx: function: Pointer cdecl;
|
|
ZSTD_freeCCtx: function(cctx: Pointer): size_t cdecl;
|
|
ZSTD_CCtx_reset: function(cctx: Pointer; reset: ZSTD_ResetDirective)
|
|
: size_t cdecl;
|
|
ZSTD_CCtx_setParameter: function(cctx: Pointer; param: ZSTD_cParameter;
|
|
value: Integer): size_t cdecl;
|
|
ZSTD_compressCCtx: function(cctx: Pointer; dst: Pointer; dstCapacity: size_t;
|
|
src: Pointer; srcSize: size_t; compressionLevel: Integer): size_t cdecl;
|
|
ZSTD_createDCtx: function: Pointer cdecl;
|
|
ZSTD_freeDCtx: function(dctx: Pointer): size_t cdecl;
|
|
ZSTD_decompressDCtx: function(dctx: Pointer; dst: Pointer;
|
|
dstCapacity: size_t; src: Pointer; srcSize: size_t): size_t cdecl;
|
|
ZSTD_createCDict: function(const dict: Pointer; dictSize: size_t;
|
|
compressionLevel: Integer): Pointer cdecl;
|
|
ZSTD_freeCDict: function(ddict: Pointer): size_t cdecl;
|
|
ZSTD_createDDict: function(const dict: Pointer; dictSize: size_t)
|
|
: Pointer cdecl;
|
|
ZSTD_freeDDict: function(ddict: Pointer): size_t cdecl;
|
|
ZSTD_compress_usingCDict: function(cctx: Pointer; dst: Pointer;
|
|
dstCapacity: size_t; const src: Pointer; srcSize: size_t;
|
|
const cdict: Pointer): size_t cdecl;
|
|
ZSTD_decompress_usingDDict: function(dctx: Pointer; dst: Pointer;
|
|
dstCapacity: size_t; const src: Pointer; srcSize: size_t;
|
|
const ddict: Pointer): size_t cdecl;
|
|
ZSTD_initCStream: function(zcs: Pointer; compressionLevel: Integer)
|
|
: size_t cdecl;
|
|
ZSTD_compressStream: function(zcs: Pointer; output: PZSTD_outBuffer;
|
|
input: PZSTD_inBuffer): size_t cdecl;
|
|
ZSTD_flushStream: function(zcs: Pointer; output: PZSTD_outBuffer)
|
|
: size_t cdecl;
|
|
ZSTD_endStream: function(zcs: Pointer; output: PZSTD_outBuffer): size_t cdecl;
|
|
|
|
DLLLoaded: Boolean = False;
|
|
|
|
function ZSTD_compress_dict(cctx: Pointer; dst: Pointer; dstCapacity: size_t;
|
|
const src: Pointer; srcSize: size_t; const cdict: Pointer): size_t;
|
|
function ZSTD_decompress_dict(dctx: Pointer; dst: Pointer; dstCapacity: size_t;
|
|
const src: Pointer; srcSize: size_t; const ddict: Pointer): size_t;
|
|
|
|
implementation
|
|
|
|
function ZSTD_compress_dict(cctx: Pointer; dst: Pointer; dstCapacity: size_t;
|
|
const src: Pointer; srcSize: size_t; const cdict: Pointer): size_t;
|
|
begin
|
|
cctx := ZSTD_createDCtx;
|
|
Result := ZSTD_compress_usingCDict(cctx, dst, dstCapacity, src,
|
|
srcSize, cdict);
|
|
ZSTD_freeDCtx(cctx);
|
|
end;
|
|
|
|
function ZSTD_decompress_dict(dctx: Pointer; dst: Pointer; dstCapacity: size_t;
|
|
const src: Pointer; srcSize: size_t; const ddict: Pointer): size_t;
|
|
begin
|
|
dctx := ZSTD_createDCtx;
|
|
Result := ZSTD_decompress_usingDDict(dctx, dst, dstCapacity, src,
|
|
srcSize, ddict);
|
|
ZSTD_freeDCtx(dctx);
|
|
end;
|
|
|
|
var
|
|
Lib: TLibImport;
|
|
|
|
procedure Init(Filename: String);
|
|
begin
|
|
Lib := TLibImport.Create(ExpandPath(Filename));
|
|
if Lib.Loaded then
|
|
begin
|
|
@ZSTD_compress := Lib.GetProcAddr('ZSTD_compress');
|
|
@ZSTD_compress2 := Lib.GetProcAddr('ZSTD_compress2');
|
|
@ZSTD_decompress := Lib.GetProcAddr('ZSTD_decompress');
|
|
@ZSTD_findFrameCompressedSize :=
|
|
Lib.GetProcAddr('ZSTD_findFrameCompressedSize');
|
|
@ZSTD_findDecompressedSize := Lib.GetProcAddr('ZSTD_findDecompressedSize');
|
|
@ZSTD_createCCtx := Lib.GetProcAddr('ZSTD_createCCtx');
|
|
@ZSTD_freeCCtx := Lib.GetProcAddr('ZSTD_freeCCtx');
|
|
@ZSTD_CCtx_reset := Lib.GetProcAddr('ZSTD_CCtx_reset');
|
|
@ZSTD_CCtx_setParameter := Lib.GetProcAddr('ZSTD_CCtx_setParameter');
|
|
@ZSTD_createDCtx := Lib.GetProcAddr('ZSTD_createDCtx');
|
|
@ZSTD_freeDCtx := Lib.GetProcAddr('ZSTD_freeDCtx');
|
|
@ZSTD_createCDict := Lib.GetProcAddr('ZSTD_createCDict');
|
|
@ZSTD_freeCDict := Lib.GetProcAddr('ZSTD_freeCDict');
|
|
@ZSTD_compressCCtx := Lib.GetProcAddr('ZSTD_compressCCtx');
|
|
@ZSTD_createDDict := Lib.GetProcAddr('ZSTD_createDDict');
|
|
@ZSTD_freeDDict := Lib.GetProcAddr('ZSTD_freeDDict');
|
|
@ZSTD_decompressDCtx := Lib.GetProcAddr('ZSTD_decompressDCtx');
|
|
@ZSTD_compress_usingCDict := Lib.GetProcAddr('ZSTD_compress_usingCDict');
|
|
@ZSTD_decompress_usingDDict :=
|
|
Lib.GetProcAddr('ZSTD_decompress_usingDDict');
|
|
@ZSTD_initCStream := Lib.GetProcAddr('ZSTD_initCStream');
|
|
@ZSTD_compressStream := Lib.GetProcAddr('ZSTD_compressStream');
|
|
@ZSTD_flushStream := Lib.GetProcAddr('ZSTD_flushStream');
|
|
@ZSTD_endStream := Lib.GetProcAddr('ZSTD_endStream');
|
|
DLLLoaded := Assigned(ZSTD_compress) and Assigned(ZSTD_decompress);
|
|
end;
|
|
end;
|
|
|
|
procedure Deinit;
|
|
begin
|
|
Lib.Free;
|
|
end;
|
|
|
|
const
|
|
DLLParam1 = '--zstd=';
|
|
DLLParam2 = '-zs';
|
|
|
|
var
|
|
I: Integer;
|
|
DLLFile: String;
|
|
|
|
initialization
|
|
|
|
DLLFile := 'libzstd.dll';
|
|
for I := 1 to ParamCount do
|
|
begin
|
|
if ParamStr(I).StartsWith(DLLParam1) then
|
|
begin
|
|
DLLFile := ParamStr(I).Substring(DLLParam1.Length);
|
|
break;
|
|
end;
|
|
if ParamStr(I).StartsWith(DLLParam2) then
|
|
begin
|
|
DLLFile := ParamStr(I).Substring(DLLParam2.Length);
|
|
break;
|
|
end;
|
|
end;
|
|
|
|
Init(DLLFile);
|
|
|
|
finalization
|
|
|
|
Deinit;
|
|
|
|
end.
|