Discussion :

[zounar_j5]

Bonjour à tous.
J’ai encore besoin de votre aide, je cherche une routine silencieuse (rien ne s'affiche à l'écran ) pour tester si 2 fichiers sont identiques. Ca fait plusieurs jours que je cherche, sur ce site et autre, Google, je ne trouve pas la solution miracle. La routine ouvre les 2 fichiers, teste, s’ils sont identiques, si oui, message ’Fichiers conformes’ autrement, message ’fichiers différents’

La routine serait du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Function Compare (Fichier1, Fichier2)

Merci pour votre aide.

J'oublie à chaques fois, GRRRRRR. Je suis sous delphi 2010 Architect

[Lung]

Des pistes :
https://www.developpez.net/forums/d3...nu-2-fichiers/
https://codes-sources.commentcamarch...s-multithreads

[ALWEBER]

Tu peux calculer le checksum du ficher ou totaliser la somme des octets du fichier (j'ai un exemple si tu veux). Pour le checksum il y a un exemple sur ChatGPT (je n'ai pas testé)

[Andnotor]

Un simple CompareMem sur deux TMemoryStream.

[ShaiLeTroll]

. Ca fait plusieurs jours que je cherche, sur ce site et autre, Google, je ne trouve pas la solution miracle.

Et aucun code à nous fournir ?
On aurait pu t'aider à corriger un début de code que tu aurais commencé.

Déjà, selon la taille des fichiers, ont peu faire des choix différents, si petits ou moyens, avec la RAM disponible actuellement, on peut se permettre certaines choses que l'on aurait pas fait il y a dix ans.
Le CompareMem proposé par Andnotor fait parti des solutions très simple pour les petits et moyens fichiers.

Si tu as dois comparer des fichiers de plusieurs centaines de Mo, peut-être que l'on peut faire moins lourd en mémoire et CPU
Sinon c'est un algo basique, une boucle qui lit le fichier bloc par bloc, ça te prendra pas plus d'une heure à coder

Code algo :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Si Taille(Fichier1) = Taille(Fichier2) alors
  Tant que pas la Fin(Fichier1) faire
     Lire(Fichier1, Tampon1) 
     Lire(Fichier2, Tampon2)
     Si Tampon1 != Tampon2 alors  
       Sortir Différent
sinon
  Sortir Différent

Inutile de comparer tout le contenu, dès qu'il y a une différence, c'est que c'est différent, vouloir parser l'ensemble du fichier ne se produira que pour des fichiers identiques.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
function FileCompare(const AFileName1, AFileName2: TFileName): Boolean;
const
  BUF_SIZE = High(Word)+1;
var
  FS1, FS2: TFileStream;
  Size: Int64;
  B1, B2: array[0..BUF_SIZE-1] of Byte;
  Readed1, Readed2: Integer;
begin
  Result := False;
 
  FS1 := TFileStream.Create(AFileName1, fmOpenRead); // raise EFCreateError
  try
    FS2 := TFileStream.Create(AFileName2, fmOpenRead); // raise EFCreateError
    try
      Size := FS1.Size;
      if Size <> FS2.Size then
        Exit;
 
      while FS1.Position < Size do
      begin
        Readed1 := FS1.Read(B1[0], BUF_SIZE);
        Readed2 := FS2.Read(B2[0], BUF_SIZE);
        if Readed1 <> Readed2 then
          Exit;
 
        if not CompareMem(@B1[0], @B2[0], Readed1) then
          Exit;
      end;
 
      Result := True;
 
    finally
      FS2.Free();
    end;
  finally
    FS1.Free();
  end;
end;

[zounar_j5]

Merci ShaiLeTroll , ça marche du tonnerre. Merci aussi à tous. Bonne continuation. Bonne journée.