27 lines
444 B
ObjectPascal
27 lines
444 B
ObjectPascal
unit BDiffDecoder;
|
|
|
|
interface
|
|
|
|
uses
|
|
UPatcher;
|
|
|
|
procedure MakePatch(Data1, Data2, Data3: Pointer; const Size1, Size2: Integer;
|
|
var Size3: Integer);
|
|
|
|
implementation
|
|
|
|
procedure MakePatch(Data1, Data2, Data3: Pointer; const Size1, Size2: Integer;
|
|
var Size3: Integer);
|
|
var
|
|
Patcher: TPatcher;
|
|
begin
|
|
Patcher := TPatcher.Create;
|
|
try
|
|
Patcher.Apply(Data1, Data2, Data3, Size1, Size2, Size3);
|
|
finally
|
|
Patcher.Free;
|
|
end;
|
|
end;
|
|
|
|
end.
|