34 lines
626 B
ObjectPascal
34 lines
626 B
ObjectPascal
unit BDiffEncoder;
|
|
|
|
interface
|
|
|
|
uses
|
|
UDiffer, ULogger, UBDiffTypes;
|
|
|
|
procedure MakeDiff(Data1, Data2, Data3: Pointer; const Size1, Size2: Integer;
|
|
var Size3: Integer);
|
|
|
|
implementation
|
|
|
|
procedure MakeDiff(Data1, Data2, Data3: Pointer; const Size1, Size2: Integer;
|
|
var Size3: Integer);
|
|
var
|
|
Differ: TDiffer;
|
|
Logger: TLogger;
|
|
begin
|
|
Logger := TLoggerFactory.Instance(False);
|
|
try
|
|
Differ := TDiffer.Create;
|
|
try
|
|
Differ.Format := TFormat.FMT_BINARY;
|
|
Differ.MakeDiff(Data1, Data2, Data3, Size1, Size2, Size3, Logger);
|
|
finally
|
|
Differ.Free;
|
|
end;
|
|
finally
|
|
Logger.Free;
|
|
end;
|
|
end;
|
|
|
|
end.
|