validar un dbedit

[vtdeleon]

Empezado por jhonny

Parece que esto es mas complicado de lo que se cree, jejeje.

Parece que llevas razón, roman nos ha partido en dos.

[moyo18]

bueno a mi no me trabaja el codigo asi como lo tiene el d la arroba, siempre me guarda las cosas y no me tira el mensaje q esta malo porq no tiene ni arroba ni nada q paresca un email.

arreglando eso me hice con un comboxbox y pues ingeniandomelas un poquito saque un codigo

Código Delphi [-]
var
pri : string ; 
procedure TForm1.ComboBox2Change(Sender: TObject);
begin

  case combobox2.ItemIndex of

   0 :  begin
          pri := DBedit9.Text + '@hotmail.com' ;
         end;
   1 :  begin
          pri := DBedit9.Text + '@msn.com' ;
        end;
   2 :  begin
          pri := DBedit9.Text + '@yahoo.com' ;
        end;
   3 :  begin
          pri := DBedit9.Text + '@mts.net' ;
        end;
   4 :  begin
          pri := DBedit9.Text + '@shaw.ca' ;
        end;
  end;
end;

pero ojala se pueda hacer con el metodo ese d si no encuentra la arroba o el punto no lo permita.

y tambien sigo con lo del nuevo usuario, como hacer q queden en blanco los edits sin q se ponga los values q se les dan arriba, ya q se clickeo dos veces el nuevo usuario no me permite aregar nada y me da un error d un solo ya q se han insertado los otros valores autoamticamente.

[[egostar]]

Indudablemente que validar un correo electronico tiene sus asegunes, hasta ahora se ha tratado de verificar la semantica del correo, pero eso solo nos dice que se escribio bien, yo agregaria un paso mas recuperando la IP del servidor de correo, usando el código que seoane acaba de proporcionar en otro hilo.

Aqui pego el código el cual nos garantiza al menos que se esta usando un servidor válido. Solo necesitamos agregar www. y lo que sigue del @.

Código Delphi [-]
Uses Winsock;

function GetIp(Host: string): string;
var
  WSAData: TWSADATA;
  HostEnt: phostent;
begin
  Result:= '';
  if WSAStartup(MAKEWORD(1, 1), WSADATA) = 0 then
  begin
    HostEnt:= gethostbyname(PChar(Host));
    if HostEnt <> nil then
      Result:= String(inet_ntoa(PInAddr(HostEnt.h_addr_list^)^));
    WSACleanup;
  end;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
   ShowMessage(GetIp('www.hotmail.com'));
   ShowMessage(GetIp('www.esunabroma.com')); //NO válido
   ShowMessage(GetIp('www.yahoo.com.mx'));
   ShowMessage(GetIp('www.yahoo.com'));
   ShowMessage(GetIp('www.esunabroma.com')); //NO válido
   ShowMessage(GetIp('www.clubdelphi.com'));
   ShowMessage(GetIp('www.clubdelphi.com.mx')); //NO válido
end;

Esto nos regresa la IP si está correcto el servidor de correo, de otra forma nos da un valor nulo.

Yo creo que esto ya es un gran avance.

Saludos

[roman]

Esta es una muy buena idea, aunque creo que no hay que descartar la validación gramatical.

Ya anteriormente se ha discutido esto, por ejemplo, en el hilo Como Saber si una Dirección de Correo es Válida????. En esa ocasión se planteó el uso de expresiones regulares y se habló de RegExp Studio, que me parece un buen enfoque.

Usar TRegExpr es cosa sólo de incluir una unidad en el proyecto así que no necesitamos instalar nada ni insertar componentes ni depender de dlls externas.

En el hilo mencionado se propone una expresión regular

[\w\d\-\.]+@[\w\d\-]+(\.[\w\d\-]+)+

que- según creo -puede reducirse a:

[\w\-\.]+@[\w\-]+(\.[\w\-]+)+

aunque no me queda claro que los guiones estén permitidos en un email y permitiría un punto inicial que no creo que sea válido.

Haciendo algunas pruebas, me ha gustado esta:

^\w+(\.\w+)*@(\w+(\.\w+)+)$

que podría completarse a

^[\w\-]+(\.[\w\-]+)*@([\w\-]+(\.[\w\-]+)+)$

si permitimos guiones.

Aplicando a nuestro caso, podemos implementar esta función:

Código Delphi [-]
uses
  RegExpr;

function EsEmailValido(Email: String; Ping: Boolean = false);
var
  RegExp: TRegExpr;

begin
  RegExp := TRegExp.Create;

  try
    RegExp.Expression := '^\w+(\.\w+)*@(\w+(\.\w+)+)$';
    Result := RegExp.Exec(Email);

    if Result and Ping then
      Result := GetIP(RegExp.Match[2]) <> '';
  finally
    RegExp.Free;
  end;
end;

El parámetro Ping sería para indicar si deseamos verificar la existencia del servidor.

// Saludos

[[egostar]]

Empezado por roman

Esta es una muy buena idea, aunque creo que no hay que descartar la validación gramatical.

Claro, asi es como lo soñe, primero se verifica gramaticalmente y si es correcta y ademas se desea, se valida la parte del servidor de correo.

Saludos Validados como lo diria nuestro buen amigo Al.

[[basti]]

Empezado por roman

aunque no me queda claro que los guiones estén permitidos en un email y permitiría un punto inicial que no creo que sea válido.

Los guiones sí son permitidos en los e-mails, lo del punto inicial no estoy seguro.

[jhonny]

Empezado por vtdeleon

Parece que llevas razón, roman nos ha partido en dos.

Yo diria que en 3, ahhhh, yo que pense que la situación estaba casi que controlada...

[roman]

Empezado por jhonny

Yo diria que en 3, ahhhh, yo que pense que la situación estaba casi que controlada...

Yo diría que como ustedes lo estaban haciendo también se puede resolver. Nada más que ustedes sólo estaban considerando la segunda mitad de la cadena, después de la arroba.

Además ni siquiera las expresiones regulares son la panacea porque las #$%&/!"& direcciones de email son muy complejas, y según he visto en algunos lugares, acepta cosas muy raras, así que ni un método ni otro van a cubrir todos los casos.

// Saludos

[jhonny]

Empezado por roman

Esta es una muy buena idea, aunque creo que no hay que descartar la validación gramatical.

Ya anteriormente se ha discutido esto, por ejemplo, en el hilo Como Saber si una Dirección de Correo es Válida????. En esa ocasión se planteó el uso de expresiones regulares y se habló de RegExp Studio, que me parece un buen enfoque.

Usar TRegExpr es cosa sólo de incluir una unidad en el proyecto así que no necesitamos instalar nada ni insertar componentes ni depender de dlls externas.

En el hilo mencionado se propone una expresión regular

[\w\d\-\.]+@[\w\d\-]+(\.[\w\d\-]+)+

que- según creo -puede reducirse a:

[\w\-\.]+@[\w\-]+(\.[\w\-]+)+

aunque no me queda claro que los guiones estén permitidos en un email y permitiría un punto inicial que no creo que sea válido.

Haciendo algunas pruebas, me ha gustado esta:

^\w+(\.\w+)*@(\w+(\.\w+)+)$

que podría completarse a

^[\w\-]+(\.[\w\-]+)*@([\w\-]+(\.[\w\-]+)+)$

si permitimos guiones.

Aplicando a nuestro caso, podemos implementar esta función:

Código Delphi [-]uses RegExpr; function EsEmailValido(Email: String; Ping: Boolean = false); var RegExp: TRegExpr; begin RegExp := TRegExp.Create; try RegExp.Expression := '^\w+(\.\w+)*@(\w+(\.\w+)+)$'; Result := RegExp.Exec(Email); if Result and Ping then Result := GetIP(RegExp.Match[2]) <> ''; finally RegExp.Free; end; end;


El parámetro Ping sería para indicar si deseamos verificar la existencia del servidor.

// Saludos

Hola roman, hoy me ha causado curiosidad un asunto, ¿Estas son expresiones propias del TRegExpr o es algun estandar que hay?

[roman]

¡Válgame!

Lo malo de las expresiones regulares, es que, pasados uns meses (o años), uno no tiene ni idea de cómo fue capaz de escribir tal serie de majaderías

En fin; aunque creo que hay variantes, las expresiones regulares más o menos son un estándar que, si no me equivoco, se basan en las que usa PERL.

// Saludos

[jhonny]

Empezado por roman

¡Válgame!

Lo malo de las expresiones regulares, es que, pasados uns meses (o años), uno no tiene ni idea de cómo fue capaz de escribir tal serie de majaderías

En fin; aunque creo que hay variantes, las expresiones regulares más o menos son un estándar que, si no me equivoco, se basan en las que usa PERL.

Jejeje, Bueno, muchas gracias por tu respuesta roman .