verification de syntaxe email

**redoran** · 02/10/2010, 12h03

salut ; j'ai utilisé ce code pour la verrification de la synthaxe d'une adresse email mais ca ne marche pas

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
public
    { Déclarations publiques }
    Function ValiderChar(Caractere,Ligne:string):Boolean;
      var
      I :integer;
      begin
      Result:= false;
      for I := 0 to Length(Ligne) - 1 do
      if Ligne[I] = Caractere then Result := true;
    end;
 
  end;

ensuite j'appele la fonction

Code :

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

1
2
if not (ValiderChar('@',Edit4.Text)) and (ValiderChar('.',Edit4.Text)) then
showmessage(Format('L''adresse de Courrielle " %s " est non Valide',[Edit4.Text] ));

**BuzzLeclaire** · 02/10/2010, 13h19

@Salut,

Code :

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

1
2
 
    Function ValiderChar(Caractere:Char;Ligne:string):Boolean;

Peut-être ce format ?

**redoran** · 02/10/2010, 13h42

salut Buzz ; mais sa non fonctionne toujours pas

**redoran** · 02/10/2010, 13h48

a noté que ce code je lé téléchargé mais je crois qu'il n'est pas aussi complet c'est a dire il ne compte pas combien de @ ni de '. '.

**BuzzLeclaire** · 02/10/2010, 14h33

@Salut,

Pourquoi ne pas utiliser directement

MatchesMask

**Paul TOTH** · 02/10/2010, 14h34

Envoyé par redoran

a noté que ce code je lé téléchargé mais je crois qu'il n'est pas aussi complet c'est a dire il ne compte pas combien de @ ni de '. '.

deux erreur dans ce code :
1) "Caractere" doit être de type char et non string
2) I doit aller de 1 à Length(Ligne)

d'autre part "Pos(Caractere, Ligne)" permet de savoir si le caractère se trouve dans la chaine.

et pour finir, le code n'est pas très efficace

voici quelques emails valides pour lui
@@@.@@@
$êzfq@.
.@

**BuzzLeclaire** · 02/10/2010, 14h43

Re

Tu peux aussi le faire tout seul

1) tu test le nbr de '@'
2) tu vérifie à gauche de @ par le biais d'une liste de caractères autorisés
3) tu vérifie à droite de @ par le biais d'une liste de caractères autorisés

tu devrais t'en sortir facilement avec les fonctions Pos, Copy etc...

**redoran** · 02/10/2010, 14h49

ok et merci pour cette lumière

**BuzzLeclaire** · 02/10/2010, 15h14

@RE

Tiens je te propose cela. (Pas testé)

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
function ValidEMail(Mail: String): Boolean;
 
  function NbChar(const S : string; const CharACompter : char) : integer;
   var N : integer;
  begin
    result := 0;
    N      := Pos(CharACompter,S,1);
    while N <> 0 do begin
       inc(result);
       N := Pos(CharAcompter,S,N+1);
    end;
  end;
Const
  ValidGauche= ['a'..'z','-']; // A toi de voir ce que tu autorise ou pas
  ValidDroite= ['a'..'z','-','.']; // A toi de voir ce que tu autorise ou pas
Var
  PartieGauche, PartieDroite: String;
  i: integer;
Begin
 result := False;
 if NbChar(EMail,'@') <> 1 then exit;
 
 PartieDroite := Copy(EMail,Pos('@')+1,Length(EMail)-1);
 if NbChar(PartieDroite,'.') <> 1 then exit; // On autorise qu'un seul '.' à droite
 for i = 1 to Length(EMail) do
   if not (Email[i] in ValidDroite) then exit;
 
 PartieGauche := Copy(EMail,1,Length(EMAIL)-Pos('@'));
 for i = 1 to Length(EMail) do
   if not (Email[i] in ValidGauche) then exit;
 
 result:=True; // C'est passé 
end;

A vérifier le récup de partie gauche et partie droite, à l'arrache j'ai pu faire une erreur.

Mais là tu à un principe, après tu peux ajouter plein d'autre contrôle.

**redoran** · 02/10/2010, 15h17

merci Buzz , je suis preneur

je vais réglé un p'tit grand problème avec showmodal et je le teste
merci encore une fois...

**evarisnea** · 03/10/2010, 01h34

as-tu pensé à utiliser les expressions régulières pour valider ton email ?
http://www.latiumsoftware.com/en/articles/00009.php
http://delphi.developpez.com/faq/?page=regex
http://delphi.about.com/od/toppicks/...xpressions.htm

**redoran** · 06/10/2010, 14h23

salut ; @ buzz
j'ai utilisé votre code mais sa marche pas :

c'est la première fois que j'utilise ce type vérification
j'ai pa su appelé la fonction lors de la validation

**ILP** · 06/10/2010, 17h08

Envoyé par evarisnea

as-tu pensé à utiliser les expressions régulières pour valider ton email ?

Pour ma part, j'utilise l'unité TRegExpr.
Voici la fonction que j'ai écrite :

Code Pascal :

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
// Vérifie que l'adresse e-mail est correcte
function VerifEmail(Adresse: String): Boolean;
const
  RegEmail = '[_a-zA-Z\d\-\.]+@([_a-zA-Z\d\-]+(\.[_a-zA-Z\d\-]+)+)';
var
  RegExpr: TRegExpr;
begin
  Result  := False;
  RegExpr := TRegExpr.Create();
  try
    RegExpr.Expression := RegEmail;
    Result := RegExpr.Exec(Adresse);
  finally
    RegExpr.Free();
  end;
end;

@+

**ILP** · 06/10/2010, 17h14

Il me semble que le lien que je t'ai donné soit mort

.

**redoran** · 07/10/2010, 13h23

Merci ILP

; j'ai enregistré l'unité dans mon projet et avec ctrl+F9 c'est impect.
mais j'arrive a appelé cette fonction a partir d'un bouton

mon code d'exécution

Code :

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

1
2
3
4
5
procedure TForm1.Button1Click(Sender: TObject);
begin
if not (VerifEmail(Edit1.Text)) then
showmessage(Format('L''adresse de Courrielle " %s " est non Valide',[Edit1.Text] ));
end;

ca marche , mais les email de type : /ssss@aaa.com meme avec # , /, * est ce que c'est normal

et aussi ssss,ddd@aaa.com

**ILP** · 07/10/2010, 15h00

Normalement ,d'après la RFC 3696, ces adresses peuvent passer.
Quoi que pour sss,ddd@aaa.com j'ai un doûte au niveau de la virgule

.

**redoran** · 07/10/2010, 15h30

merci pour votre disponibilité ;

Quoi que pour sss,ddd@aaa.com j'ai un doûte au niveau de la virgule

ca passe

je me demande si c'est normale ou tous simplement un oubli....

**BuzzLeclaire** · 08/10/2010, 09h15

@Redoran,

Bon j'ai corrigé ma proposition ci-dessus, cette fois je l'ai utiliser dans un projet.

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
function ValidEMail(EMail: String): Boolean;
  function NbChar(const S : string; const CharACompter : char) : integer;
   var N : integer;
  begin
    result := 0;
    N      := PosEx(CharACompter,S,1);
    while N <> 0 do begin
       inc(result);
       N := PosEx(CharAcompter,S,N+1);
    end;
  end;
Const
  ValidGauche= ['a'..'z','-']; // A toi de voir ce que tu autorise ou pas
  ValidDroite= ['a'..'z','-','.']; // A toi de voir ce que tu autorise ou pas
Var
  PartieGauche, PartieDroite: String;
  i: integer;
Begin
 result := False;
 if NbChar(EMail,'@') <> 1 then exit;
 
 PartieDroite := Trim(Copy(EMail,Pos('@',EMAIL)+1,Length(EMail)-1));
 if NbChar(PartieDroite,'.') <> 1 then exit; // On autorise qu'un seul '.' à droite
 
 for i := 1 to Length(PartieDroite) do
   if not (PartieDroite[i] in ValidDroite) then exit;
 
 PartieGauche := Trim(Copy(EMail,1,Pos('@',EMAIL)-1));
 for i := 1 to Length(PartieGauche) do
   if not (PartieGauche[i] in ValidGauche) then exit;
 
 result:=True; // C'est passé
end;

N'oublis pas d'adapter les constantes

Code :

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

1
2
3
Const
  ValidGauche= ['a'..'z','-']; // A toi de voir ce que tu autorise ou pas
  ValidDroite= ['a'..'z','-','.']; // A toi de voir ce que tu autorise ou pas

Là par exemple les chiffres ne sont pas autorisé, n'hésite pas à les ajoutés

Code :

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

1
2
3
Const
  ValidGauche= ['0'..'9','a'..'z','-']; // A toi de voir ce que tu autorise ou pas
  ValidDroite= ['0'..'9','a'..'z','-','.']; // A toi de voir ce que tu autorise ou pas

etc...

Y'a plus cas...

**redoran** · 09/10/2010, 09h33

Merci Buzz pour ce partage , j'ai copié votre code bien sur avec un petit commentaire "Prpriétaire Buzz-developpez.com / forums " faut rendre a César ce qui lui appartiens.

a la compilation "Ctrl+F9" j'ai ce message d'erreur :

[Erreur] Unit1.pas(31): Identificateur non déclaré : 'PosEx'

unit Unit1;

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
function ValidEMail(EMail: String): Boolean;
  function NbChar(const S : string; const CharACompter : char) : integer;
   var N : integer;
  begin
    result := 0;
    N      := PosEx(CharACompter,S,1);  // ici il génère message d'erreur 
    while N <> 0 do begin
       inc(result);
       N := PosEx(CharAcompter,S,N+1);
    end;
  end;
Const
  ValidGauche= ['a'..'z','-']; // A toi de voir ce que tu autorise ou pas
  ValidDroite= ['a'..'z','-','.']; // A toi de voir ce que tu autorise ou pas
Var
  PartieGauche, PartieDroite: String;
  i: integer;
Begin
 result := False;
 if NbChar(EMail,'@') <> 1 then exit;
 
 PartieDroite := Trim(Copy(EMail,Pos('@',EMAIL)+1,Length(EMail)-1));
 if NbChar(PartieDroite,'.') <> 1 then exit; // On autorise qu'un seul '.' à droite
 
 for i := 1 to Length(PartieDroite) do
   if not (PartieDroite[i] in ValidDroite) then exit;
 
 PartieGauche := Trim(Copy(EMail,1,Pos('@',EMAIL)-1));
 for i := 1 to Length(PartieGauche) do
   if not (PartieGauche[i] in ValidGauche) then exit;
 
 result:=True; // C'est passé
end;
 
procedure TForm1.Button1Click(Sender: TObject);// appel de la fonction 
begin
if not (VerifEmail(Edit1.Text)) then
showmessage(Format('L''adresse de Courrielle " %s " est non Valide',[Edit1.Text] ));
end;
 
end.