#Validación del correo electrónicoPascal#
Este es un puerto de validación de correo electrónico para Delphi/Pascal.
Una clase Pascal simple (pero correcta) para validar direcciones de correo electrónico.
Soporta estándares de direcciones de correo internacionalizadas (rfc653x).
Este proyecto se creó utilizando Delphi 10 Seattle Update 1. La unidad ( uEmailValidation.pas
) debe compilarse en cualquier versión de Delphi desde 2009 y FreePascal 2.6.4 en adelante.
Si está utilizando XE3 Upwards y trabajando con los compiladores Mobile
en los que las cadenas están basadas en cero de forma predeterminada, utilice la unidad ( uEmailValidationZeroBased.pas
) o cualquiera de las unidades que desee.
uEmailValidation.pas
).###Ejemplos de código
uses
SysUtils, uEmailValidation;
var
TestAddress : String;
begin
TestAddress := ' [email protected] ' ;
Validator := TEmailValidator.Create;
if TEmailValidator.Validate(TestAddress) then
begin
WriteLn( ' Valid Email Address ' );
ReadLn;
end
else
begin
WriteLn( ' Invalid Email Address ' )
ReadLn;
end ;
end ;
For International Addresses
uses
SysUtils, uEmailValidation;
var
TestAddress : String;
begin
TestAddress := ' θσερ@εχαμπλε.ψομ ' ;
if TEmailValidator.Validate(TestAddress, True) then
begin
WriteLn( ' Valid Email Address ' );
ReadLn;
end
else
begin
WriteLn( ' Invalid Email Address ' )
ReadLn;
end ;
end ;
###Pruebas unitarias
Unit Tests can be found in EmailValidation.Test Folder.
The unit tests makes use of DUnitX and TestInsight.
###Licencia
Este "Software" tiene MIT License (MIT)
.
1MhFfW7tDuEHQSgie65uJcAfJgCNchGeKf
0x6c1DC21aeC49A822A4f1E3bf07c623C2C1978a98
345367-40
###Conclusión
Un agradecimiento especial a Jeffrey Stedfast por esta increíble biblioteca. (Gracias a los desarrolladores de DUnitX Testing Framework y TestInsight por crear herramientas que simplifican las pruebas unitarias.