Проверка правильности e-mail

← →
[Static] (2002-02-17 23:09) [0]

Почти все функции правильности проверки введённого e-mail"а обладают многими недостатками, и, соответственно, правильно не отвечают на вопрос: "Верно-ли введёно адреc e-mail?"

Поэтому выкладываю свой пример.

Function CheckEmail ( email : string ) : boolean; Var int_DogPos : integer; int_DotPos : integer; int_EmlLen : integer; Begin Result := False; int_DogPos := Pos ( "@", email ); int_DotPos := Pos ( ".", email ); int_EmlLen := Length ( email ); if Pos ("@", Copy ( email,int_DogPos + 1, int_EmlLen - int_DotPos + 1 ) ) <> 0 then Exit; if int_EmlLen < 5 then Exit; if ( int_DogPos = 0 ) or ( int_DogPos = 1 ) or ( int_DogPos = int_EmlLen ) or ( int_DogPos = int_EmlLen - 1 ) or ( int_DogPos = int_EmlLen - 2 ) or ( int_DogPos = int_EmlLen - 3 ) then Exit; if ( int_DotPos = 0 ) or ( int_DotPos = 1 ) or ( int_DotPos = int_EmlLen ) or ( int_DotPos = int_EmlLen - 1) or ( int_DotPos = int_EmlLen - 1 ) then Exit; Result := true; End;

← →
German (2002-02-18 00:54) [1]

Рулезззз!

← →
Anatoly Podgoretsky © (2002-02-18 08:10) [2]

Точно также не отвечает правильно, в части @ и . Одним словом Рулезззз!

← →
Olgerd © (2002-02-18 12:43) [3]

А как узнать, что e-mail действительно существует, т.е. доступен и на него можно послать письмо. Ведь я могу написать адрес 1@1.1

← →
Ghost. © (2002-02-18 12:53) [4]

>Olgerd © ОО тут штука посложнее..это нужно запрашиать DNS там есть такие записи MX вот к ним и нужно обращаться но как ставить правильно запрос я не знаю, и скока тут не спрашивал..никто ниче не сказал.. :0(

на www.elcomsoft.com есть такая прога, правда она шароварная

Существуют и бесплатные, например CheckEmail
Но это все мура, так как не существует гарантированного для этого метода.
Все определяется сервером, вот сейчас проверил свой сервер на заведомо неверный адрес, получил ответ от сервера - все ОК

Проверка правильности e-mail Найти похожие ветки