EmailValidationPascal

#EmailValidationPascal#

هذا هو منفذ التحقق من البريد الإلكتروني إلى دلفي/باسكال.

فئة باسكال بسيطة (ولكنها صحيحة) للتحقق من صحة عناوين البريد الإلكتروني.

يدعم معايير عنوان البريد الدولي (rfc653x).

مبنى

تم إنشاء هذا المشروع باستخدام Delphi 10 Seattle Update 1. يجب تجميع وحدة ( uEmailValidation.pas ) في أي إصدار من إصدارات دلفي بدءًا من عام 2009 وFreePascal 2.6.4 Upwards.

إذا كنت تستخدم XE3 Upwards وتعمل مع المترجمين Mobile حيث تكون السلاسل صفرية بشكل افتراضي، فيرجى استخدام وحدة ( uEmailValidationZeroBased.pas ) في أي وحدة أخرى تريدها.

• يمكن لمستخدمي FreePascal ومستخدمي Delphi تحت XE3 استخدام وحدة ( uEmailValidation.pas ) فقط.

###أمثلة على التعليمات البرمجية

	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 ;

###اختبارات الوحدة

 Unit Tests can be found in EmailValidation.Test Folder.
The unit tests makes use of DUnitX and TestInsight.

###رخصة

هذا "البرنامج" مرخص بموجب MIT License (MIT) .

نصيحة جرة

• ؟ بيتكوين : 1MhFfW7tDuEHQSgie65uJcAfJgCNchGeKf
• ؟ ايثريوم : 0x6c1DC21aeC49A822A4f1E3bf07c623C2C1978a98
• ؟ باسكال كوين : 345367-40

###خاتمة

شكر خاص لجيفري ستيدفاست على هذه المكتبة الرائعة. (شكرًا لمطوري DUnitX Testing Framework وTestInsight على صنع الأدوات التي تبسط اختبار الوحدة.