Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Нужна функция по проверке E-Mail... [D6, Win2k, WinXP]


Reals ©   (2002-04-24 18:14:00) 

Здравствуйте!
Нужна функция, которая проверяет, являеться ли входной параметр E-Mail`ом. Желательно наиболее точная.

P.S. Извините, может это чайниковский вопрос, но просто на данный момент не хватает времени написать свое.
Подскажите пожалуйста.

Заранее премного благодарен.


Song   (2002-04-24 23:00:00) [1]

http://www.swissdelphicenter.ch/torry/showcode.php?id=249


Dimka Maslov   (2002-04-24 18:37:00) [2]

Есть строка s.

1. Ищешь собаку в строке s. Нет собаки - адрес неправильный.

2. Выделяешь подстроку от следующего после собаки символа до конца строки. получаешь строку s1

3. В новой строке ищешь последнюю точку. Нет точки - адрес неправильный.

4. Разбиваешь строку s1 на две подстроки l2d - до последней точки и tld - после последней точки.

5. Сама проверка.
5.2 Длина строки l2d не должна быть меньше двух символов.
5.3 строка tld должна содержать имя какого-лиюо домена верхнего уровня (com, net, edu, gov, mil, biz, info, name, coop, museum; ru, ua, lv, by, kz и прочие национальные домены, их список можно найти в интернете, поисковая фраза - top level domains)
5.4 При наличии соединения с интернетом можно воспользоваться функцией gethostbyname, передав ей значение строки s1. Если функция вернёт ошибку, то адрес неправильный.


Наверх

Титульная страница Поиск, карта сайта Написать письмо