CRYPTEUR / DÉCRYPTEUR DE FICHIERS

Commentaire de Francky23012301 le 01/03/2007 03:01:33

Salut,

Je viens de parcourir ton source. Quelques remarques constructives.

*Les blocks : A l'époque des portables, on utilises les streams.

*La gaugue semble ne pas progresser.

*Les filtres. Il est important que l'extension du fichier créé soit identique à celui crypté.

*procedure Tmain.Crypter1Click(Sender: TObject);
begin
  traitement.Caption := 'Crypter';
  traitement.fileinEdit1.Text := 'Aucun';
  traitement.fileoutEdit2.Text := 'Aucun';
  traitement.keyEdit1.Text := '';
  traitement.ShowModal;
end;

On peut remplacer par

procedure Tmain.Crypter1Click(Sender: TObject);
begin
With Traitement do
  begin
  Caption := 'Crypter';
  fileinEdit1.Text := 'Aucun';
  fileoutEdit2.Text := 'Aucun';
  keyEdit1.Text := '';
  ShowModal;
  end;
End;

@+ et bon coding
*

Commentaire de Francky23012301 le 03/03/2007 00:37:53

Un stream se traduit par flux : je pense que tu comprendras la signification. Sinon tu rentres TStream dans l'IDE et hop la touche F1 et là tu en apprendras beaucoup

Commentaire de Romano58 le 04/03/2007 14:20:03

j'ai trouver une exelente doc sur l'utilisation des stream (il y a deja 2 jour...) J'ai mis ma source a jour et je vous la met en ligne tres bientot. J'ai était tres occuper ces dernier jour car j'ai refait mon site ouaibe et je vais de suite le mettre en ligne. Shining, je vais aller voir ta source quand même car on n'en sais jamais asser :)

Commentaire de PrograMaster le 09/05/2008 14:44:13

Salut,

Sympa ton code, je vais m'en servir !

Par contre, j'ai mal aux yeux... Corrige toutes tes fautes... Il y en a dans toutes les phrases !

Cordialement,
Mathieu

Commentaire de jackalunion le 22/06/2008 13:04:12

c'est bon a savoir