71 lines
2.0 KiB
ObjectPascal
71 lines
2.0 KiB
ObjectPascal
unit XDeltaDLL;
|
|
|
|
interface
|
|
|
|
uses
|
|
InitCode,
|
|
Utils, LibImport,
|
|
WinAPI.Windows,
|
|
System.SysUtils, System.Classes;
|
|
|
|
type
|
|
xd3_flags = (XD3_JUST_HDR = (1 shl 1), XD3_SKIP_WINDOW = (1 shl 2),
|
|
XD3_SKIP_EMIT = (1 shl 3), XD3_FLUSH = (1 shl 4), XD3_SEC_DJW = (1 shl 5),
|
|
XD3_SEC_FGK = (1 shl 6), XD3_SEC_LZMA = (1 shl 24),
|
|
XD3_SEC_TYPE = (XD3_SEC_DJW or XD3_SEC_FGK or XD3_SEC_LZMA),
|
|
XD3_SEC_NODATA = (1 shl 7), XD3_SEC_NOINST = (1 shl 8),
|
|
XD3_SEC_NOADDR = (1 shl 9), XD3_SEC_NOALL = (XD3_SEC_NODATA or
|
|
XD3_SEC_NOINST or XD3_SEC_NOADDR), XD3_ADLER32 = (1 shl 10),
|
|
XD3_ADLER32_NOVER = (1 shl 11), XD3_NOCOMPRESS = (1 shl 13),
|
|
XD3_BEGREEDY = (1 shl 14), XD3_ADLER32_RECODE = (1 shl 15),
|
|
XD3_COMPLEVEL_SHIFT = 20, XD3_COMPLEVEL_MASK = ($F shl XD3_COMPLEVEL_SHIFT),
|
|
XD3_COMPLEVEL_1 = (1 shl XD3_COMPLEVEL_SHIFT),
|
|
XD3_COMPLEVEL_2 = (2 shl XD3_COMPLEVEL_SHIFT),
|
|
XD3_COMPLEVEL_3 = (3 shl XD3_COMPLEVEL_SHIFT),
|
|
XD3_COMPLEVEL_6 = (6 shl XD3_COMPLEVEL_SHIFT),
|
|
XD3_COMPLEVEL_9 = (9 shl XD3_COMPLEVEL_SHIFT));
|
|
|
|
var
|
|
xd3_encode: function(const input: PByte; input_size: NativeUInt;
|
|
source: PByte; source_size: NativeUInt; output_buffer: PByte;
|
|
output_size: PNativeUInt; avail_output: NativeUInt; flags: Integer)
|
|
: Integer cdecl;
|
|
xd3_decode: function(const input: PByte; input_size: NativeUInt;
|
|
source: PByte; source_size: NativeUInt; output_buf: PByte;
|
|
output_size: PNativeUInt; avail_output: NativeUInt; flags: Integer)
|
|
: Integer cdecl;
|
|
DLLLoaded: boolean = False;
|
|
|
|
implementation
|
|
|
|
var
|
|
Lib: TLibImport;
|
|
|
|
procedure Init;
|
|
begin
|
|
Lib := TLibImport.Create(ExpandPath(PluginsPath + 'xdelta3_dll.dll', True));
|
|
if Lib.Loaded then
|
|
begin
|
|
DLLLoaded := True;
|
|
@xd3_encode := Lib.GetProcAddr('xd3_encode');
|
|
Assert(@xd3_encode <> nil);
|
|
@xd3_decode := Lib.GetProcAddr('xd3_decode');
|
|
Assert(@xd3_decode <> nil);
|
|
end;
|
|
end;
|
|
|
|
procedure Deinit;
|
|
begin
|
|
Lib.Free;
|
|
end;
|
|
|
|
initialization
|
|
|
|
Init;
|
|
|
|
finalization
|
|
|
|
Deinit;
|
|
|
|
end.
|