Discussion :

[NicCo]

Bonjour,
Je suis à la recherche d'un composant ou d'un ensemble de composant permettant de calculer des hash MD5 (et autres hashs plus évolués) sous Delphi XE2.
J'ai trouvé DCPCrypt qui marche sans problème à l'exception d'une chose : impossible d'afficher une barre de progression durant le calcul du hash...
Si quelqu'un sait comment afficher ceci je suis preneur, avec ce composant ou un autre.
Merci !

[Barbibulle]

Lancez le calcul dans un thread et pendant ce temps affichez une animation d'attente (les barres de progression qui bouclent qui sont utilisés quand on a un traitement dont on ne connait pas le temps ni la progression).

Sinon en composant il existe LockBox http://sourceforge.net/projects/tplockbox/

Il me semble qu'avec Indy on peut également calculer le Hash MD5 d'un stream (donc en utilisant un TfileStream on peut facilement récupérer le hash MD5)

En payant il y les composants dédiés sécurité de chez Eldos qui doivent le faire. Mais ca fait cher si vous n'avez besoin que du HashMD5...

Sinon on trouve des unités delphi avec les sources de l’algorithme HASH MD5 libre à vous le modifier les sources (enfin sous réserve que la licence vous l'autorise) pour y insérer la notion de progression...

[NicCo]

Merci pour les infos.
Concernant le hash MD5, DCPcypt semble très bien fonctionner (avec un TFileStream pour la gestion du fichier).
Le point bloquant est l'absence d'indication de la progression du hash pour les gros fichiers. J'ai essayé de bricoler un peu les sources pour y adapter une ProgressBar mais rien de concret pour le moment...

[Paul TOTH]

Merci pour les infos.
Concernant le hash MD5, DCPcypt semble très bien fonctionner (avec un TFileStream pour la gestion du fichier).
Le point bloquant est l'absence d'indication de la progression du hash pour les gros fichiers. J'ai essayé de bricoler un peu les sources pour y adapter une ProgressBar mais rien de concret pour le moment...

la progression étant liée à la lecture de fichier, il doit être possible de dériver TFileStream pour y intégrer la gestion de la progression, en surchargeant la fonction Read probablement.

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
 
type
  TProgressFileStream = class(TFileStream)
  private
    FOnProgress: TNotifyEvent;
  public
    function Read(var Buffer: TBytes; Count: Longint o): Longint; override;
    property FOnProgress: TNotifyEvent read FOnProgress write FOnProgress;
  end;
 
procedure TProgressFileStream.Read(var Buffer: TBytes; Count: Longint): Longint; 
begin
  inherited;
  if Assigned(FOnProgress) then
   FOnProgress(Self);
end;

évidemment si le code lit le fichier par paquet, la progression sera éventuellement saccadée.

[NicCo]

Merci pour cet exemple de code, je vais le tester
Par contre tu spécifies comment la progressbar que tu veux utiliser ? La saccade n'est pas un problème au cas où.

[Barbibulle]

Il faut que tu crées une procédure :

Code :

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

1
2
Private
  procedure GestionProgressBar(Sender: TObject);

Après la création de ton TProgressFileStream il faut que tu assignes GestionProcessBar à la propriété FOnProgress.

Et c'est donc dans ta procédure GestionProgressBar que tu vas devoir gérer la progression de ta barre. A chaque Read du stream GestionProgressBar sera appelé.