Проверка корректности адреса электронной почты
Проверить корректность адреса электронной почты очень просто (не только синтаксис, но и его реальное существование). Для этого можно воспользоваться компонентой clEmailValidator из библиотеки Clever Internet Suite. Напишем с ее использованием простую функцию: Function ValidateMail(const sAddress: String): Boolean;Var clEV: TclEmailValidator;begin clEV := TclEmailValidator.Create(nil); Try clEV.ValidationLevel := vlMailbox; clEV.DnsServer := ‘8.8.8.8’; Result := clEV.Validate(sAddress) = vrMailboxOk Finally clEV.Free; End;end; Я задал всего лишь два свойства […]