Поиск дубликатов файлов

[botan32]

Добрый день! Очень нужна помощь. Написал процедуру, которая ищет файлы дубликаты по имени файла. Все работает норма, но теперь хочу добавить возможность проверки например по дате и размеру, причем с возможностью выбора через CheckBox. Например, если выбран CheckBox проверять по дате, то процедура должна проверять, а если не указан, то не проверять.
Как мне это реализовать?

Вот процедура поиска дублей

procedure dup(LV1, LV2: TListView);
var
I, J: Integer;
begin
  for I:=0 to LV1.Items.Count - 1 do
  begin
    for J:=0 to LV1.Items.Count - 1 do
    begin
      if I <> J then
      begin
        if LV1.Items[I].Caption = LV1.Items[J].Caption then
        begin
          LV2.Items.Add.Caption:=LV1.Items[j].Caption;
        end;
      end;
    end;
  end;
end;

[spirit-ua]

var
  FName : string;
  FHandle: integer;
  F: TFileStream;
begin
  FName := 'c:\1.txt';

  FHandle := FileOpen(FName, 0);
  Label1.Caption := 'Дата Создания: ' +  DateTimeToStr(FileDateToDateTime(FileGetDate(FHandle)));
  FileClose(FHandle);

  F:=TFileStream.Create(FName, fmOpenRead);
  Label2.Caption := 'Размер: ' +  IntToStr(F.Size) + ' байт';
  F.Free;
end;

[spirit-ua]

var
  FName : string;
  F1: File of byte;
begin
  FName := 'c:\1.txt';

  AssignFile(F1, FName);
  Reset(F1);
  Label2.Caption :=  'Размер: ' +  IntToStr(Filesize(F1)) + ' байт';
  CloseFile(F1);
end;

[botan32]

Из приведенного кода я понимаю, что это получение атрибутов файла. А мне необходимо проверка на дубли с возможностью выбора типа. Например: проверять по имени и дате или проверять по дате и размеру или просто по имени.

[p51x]

А можно просто заюзать винапи из группы FindFirstFile и получить WIN32_FIND_DATA со всеми нужными параметрами.

[evg_m]

if checkboxSise.checked then ......

function MyCompareFile(const f1, f2: TfileName; checkname, checksize, checkdatetimecreate: boolean): boolean;
begin
   result:=true;
   if result and checkname then result:=(f1=f2);
   if result and checksize then result:=....
   if result and checkdatetimecreate then result:=...
end;

for j:=0 to ...
for i:=0 to ...
  if MycompareFile(........) then

[Аватар]

Не обязательно открывать каждый. FindFirst, FindNext тоже возвращают размер и время создания

[min@y™]

type
  TDupCheckKind = (dckTime, dckCRC32, dckMD5); // к примеру
  TDupCheckKinds = set of TDupCheckKind;
  // можно сделать вместо множество битовую маску и OR-ить в вызове функции
  
// это только пример, в реальной жизни никогда так не делай!!!
// размер, время, суммы, хэши и пр. инфа должна быть получена
// для каждого файла только 1 раз и храниться где-то в памяти.
// Функции GetXXXFunc(const AFileName: string): RESULT_TYPE; - условные.
function IsDuplicateFiles(const AFileName0, AFileName1: string;
  const AKinds: TDupCheckKinds): Boolean;
begin
  // если размеры не совпали, дальнейшее бесмысленно.
  Result:= GetSizeFunc(AFileName0) = GetSizeFunc(AFileName1);
    
  if Result and (dckTime in AKinds) // глупо искать дубликаты только по размеру и времени
    then Result:= GetTimeFunc(AFileName0) = GetTimeFunc(AFileName1);
    
  if Result and (dckCRC32 in AKinds) // по 32-битной контрольной сумме
    then Result:= GetCRC32Func(AFileName0) = GetCRC32Func(AFileName1);
    
  if Result and (dckMD5 in AKinds) // по 128-битному хэшу
    then Result:= GetMD5Func(AFileName0) = GetMD5Func(AFileName1);
end;
  
  
procedure TMyForm.Button100500Click(Sender: TObject);
var
  idx0, idx1: Integer;
  duplicated: Boolean;
  kinds: TDupCheckKinds;
begin
  kinds:= [];
  // здесь лучше юзать не несколько TCheckBox, а компонент TCheckGroup.
  if CheckBoxTime.Checked
    then Include(kinds, dckTime);
  if CheckBoxCRC32.Checked
    then Include(kinds, dckCRC32);
  if CheckBoxMD5.Checked
    then Include(kinds, dckMD5);

  for idx0:= 0 to FileList0.Count - 1 do
    begin

      for idx1:= 0 to FileList1.Count - 1 do
        begin
          duplicated:= IsDuplicateFiles(FileList0.Items[idx0], FileList1.Items[idx1], kinds);
          if duplicated
            then Break;
        end;
        
      if not duplicated
        then FileList1.AddItem(FileList0.Items[idx0], { указатель на полезную инфу, например });
    end;
end;

[Filka]

http://www.vr-online.ru/forum/fajly-...#comment-17117

[botan32]

Из приведенных примеров реализовал следующим образом, но программа не работает. Выдает ошибку. Вот кот:

function MyCompareFile(const f1, f2: PChar; checkname, checksize, checkdatetimecreate: boolean): boolean;
begin
   result:=true;
   if result and checkname then result:=(f1=f2);
   if result and checksize then result:=(GetFileType(f1)=GetFileType(f2));
   if result and checkdatetimecreate then result:=(GetHashMD5(f1)=GetHashMD5(f2));
end;

procedure dup1(LV1, LV2: TListView);
var
I, J: Integer;
begin
  for I:=0 to LV1.Items.Count - 1 do
  begin
    for J:=0 to LV1.Items.Count - 1 do
    begin
      if I <> J then
      begin
        if MycompareFile(PChar(LV1.Items[j].Caption), PChar(LV2.Items[i].Caption), true,true,false) then
        begin
          LV2.Items.Add.Caption:=LV1.Items[j].Caption;
        end;
      end;
    end;
  end;
end;