Проверка правильности е-mail адреса с проверкой существования доменаDelphi , Интернет и Сети , E-mailПроверка правильности е-mail адреса с проверкой существования домена
Автор: Dimka Maslov { **** UBPFD *********** by delphibase.endimus.com **** >> Проверка правильности е-mail адреса с проверкой существования домена Функция проверяет как общий синтаксис написания адреса (обязателен символ @, имя пользователя должно содержать только разрешённые символы) а также и определяет, существует ли домен, указанный в адресе. Функция возвращает True, если адрес записан правильно и домен существует, False в случае ошибки. Недостатком такой функции является требование наличия соединения с интернетом, а также замедление работы при указании в адресе несуществующего домена. Зависит от функции CheckDomain, приведённой здесь: http://delphibase.endimus.ru?action=viewfunc&id=10258 Зависимости: SysUtils, WinSock, UBPFD.CheckDomain Автор: Dimka Maslov, mainbox@endimus.ru, ICQ:148442121, Санкт-Петербург Copyright: Dimka Maslov Дата: 3 июля 2002 г. ***************************************************** } function CheckEmailAddr(Addr: string): Boolean; var P: Integer; User, Domain: string; i: Integer; begin Result := False; Addr := AnsiLowerCase(Addr); P := Pos('@', Addr); if P = 0 then Exit; User := Copy(Addr, 1, P - 1); Domain := Copy(Addr, P + 1, Length(Addr) - P); for i := 1 to Length(User) do if not (User[i] in ['a'..'z', '0'..'9', '.', '-', '_']) then Exit; Result := CheckDomain('www.' + Domain); if not Result then Result := CheckDomain(Domain); end; Статья Проверка правильности е-mail адреса с проверкой существования домена раздела Интернет и Сети E-mail может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |