Форум: "Сети";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.14;
Скачать: [xml.tar.bz2];




Вниз

Верификация мыла 


Fast   (2001-10-18 00:29) [0]

Например клиент заполняет форму с указанием мыла.
Так вот как определить существует ли данное мыло в природе.
Тоесть мне не надо проверять правильность написания самой строки, а надо выяснить, а не нае... ли он меня.



Sergii   (2001-10-18 01:00) [1]

Отправить письмо на этот ящик - если придет ответ от почтового сервера, что письмо доставить невозможно, то такого адреса нет.



Fast   (2001-10-18 05:17) [2]

Нет это не оперативно, надо ждать пока почтовый сервис ответит это конечно не часы но минуты точно, да и темболее зачем спам на чужих ящиках разводить?



Dima-k17   (2001-10-18 09:46) [3]

function IsValidEmail(const Value: string): boolean;
function CheckAllowed(const s: string): boolean;
var
i: integer;
begin
Result:= false;
for i:= 1 to Length(s) do
begin
{ недопустимый символ в s - значит недопустимый адрес }
if not (s[i] in ["a".."z", "A".."Z", "0".."9", "_", "-", "."]) then
Exit;
end;
Result:= true;
end;
var
i: integer;
namePart, serverPart: string;
begin // начало выполнения IsValidEmail
Result:= false;
i:= Pos("@", Value);
if i = 0 then
Exit;
namePart:= Copy(Value, 1, i - 1);
serverPart:= Copy(Value, i + 1, Length(Value));
// @ не указано имя имя или сервер не указаны; минимально для сервера. "a.com"
if (Length(namePart) = 0) or ((Length(serverPart) < 5)) then
Exit;
i:= Pos(".", serverPart);
// должно иметь точку и как минимум три знака от конца
if (i = 0) or (i > (Length(serverPart) - 2)) then
Exit;
Result:= CheckAllowed(namePart) and CheckAllowed(serverPart);
end;



Anatoly Podgoretsky   (2001-10-18 14:46) [4]

Цитата!

Тоесть мне не надо проверять правильность написания самой строки, а надо выяснить, а не нае... ли он меня.



Sergii   (2001-10-19 23:55) [5]

2 Fast: Спам можно красиво оформить. Например, отправить поздравление с успешной регистрацией. :)




Форум: "Сети";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.14;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.013 c
3-42346           Yakudza               2001-12-08 21:07  2002.01.14  
Word


1-42426           Alex44                2001-12-24 10:38  2002.01.14  
Fonts v TTreeView


6-42521           Zork                  2001-10-17 13:33  2002.01.14  
ClientSocket and ServerSocket


1-42503           DerZky                2001-12-25 20:25  2002.01.14  
Как на BitBtn переносить текст?


6-42530           Gallant               2001-10-19 12:56  2002.01.14  
Проблема со локальной сетю