Une fois la comparaison effectuée, on pourra donner au programme une liste de répertoires prioritaires. Ensuite les doublons se trouvant dans les répertoires non prioritaires seront effacées du disque dur.
Si vous avez des idées supplémentaires

Modérateurs: modérateurs, admins
Lightfox a écrit:Si j'ai 2 images identiques mais avec un nom, une résolution et une extension différente, sera-t-il capable de les trouver?
Ozone Griffox a écrit:Une image dont une partie, même infime, à été coupée (crop) ne sera pas retrouvée.
Diff := 0;
Wide := 0;
for Y:=0 to 49 do for X:=0 to 49 do begin
DiffRed := abs(Pic1.Red[X,Y] - Pic2.Red[X,Y]);
DiffGreen := abs(Pic1.Green[X,Y] - Pic2.Green[X,Y]);
DiffBlue := abs(Pic1.Blue[X,Y] - Pic2.Blue[X,Y]);
Inc(Diff, DiffRed + DiffGreen + DiffBlue);
if ((DiffRed >= Precision) or (DiffGreen >= Precision) or (DiffBlue >= Precision)) then inc(Wide);
end;
Result.Pixels := Diff / (50 * 50 * 255 * 3);
Result.Wide := Wide;
if ((Diff.Pixels < Sensitivity) and (Diff.Wide < Tolerance)) then AddGroup(Id1, Id2);
Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 1 invité