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
function MD5(const fileName : string) : string;
var
  idmd5 : TIdHashMessageDigest5;
  fs : TFileStream;
  hash : T4x4LongWordRecord;
begin
  idmd5 := TIdHashMessageDigest5.Create;
  fs := TFileStream.Create(fileName, fmOpenRead OR fmShareDenyWrite) ;
  try
    result := idmd5.AsHex(idmd5.HashValue(fs)) ;
  finally
    fs.Free;
    idmd5.Free;
  end;
end;
Salut tous le monde :

La fonction ci-dessus récupurée sur le site Delphi.About.Com, exécutée sous
Delphi 7 Entreprise, Xp SP2 renvoie une chaine en MAJUSCULE.
Je m'adresse à qui peut m'éclairer est-ce par défaut sans recourir explicitement à la fonction UpperCase() ?.
Merci pour votre soutien
Cordialement