EmailValidationPascal

#การตรวจสอบอีเมล์Pascal#

นี่คือพอร์ตการตรวจสอบอีเมลไปยัง Delphi/Pascal

คลาส Pascal ที่เรียบง่าย (แต่ถูกต้อง) สำหรับการตรวจสอบความถูกต้องของที่อยู่อีเมล

รองรับมาตรฐานที่อยู่ไปรษณีย์สากล (rfc653x)

อาคาร

โปรเจ็กต์นี้สร้างขึ้นโดยใช้ Delphi 10 Seattle Update 1 หน่วย ( uEmailValidation.pas ) ควรคอมไพล์ในเวอร์ชัน Delphi ใดก็ได้ตั้งแต่ปี 2009 และ FreePascal 2.6.4 ขึ้นไป

หากคุณใช้ XE3 ขึ้นไปและทำงานกับคอมไพเลอร์ Mobile ซึ่งสตริงเป็นแบบ Zero-Based โดยค่าเริ่มต้น โปรดใช้หน่วย ( 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)

ทิป จาร์

• - Bitcoin : 1MhFfW7tDuEHQSgie65uJcAfJgCNchGeKf
• - อีเธอเรียม : 0x6c1DC21aeC49A822A4f1E3bf07c623C2C1978a98
• - ปาสคาลคอยน์ : 345367-40

###บทสรุป

ขอขอบคุณเป็นพิเศษสำหรับ Jeffrey Stedfast สำหรับห้องสมุดที่ยอดเยี่ยมแห่งนี้ (ขอขอบคุณผู้พัฒนา DUnitX Testing Framework และ TestInsight ที่สร้างเครื่องมือที่ทำให้การทดสอบหน่วยง่ายขึ้น