德爾福：驗證電子郵件沒有正則表達式

Question

由於德爾福沒有任何內置的正則表達式庫，您是否看到過使用Delphi RTL/VCL至少在某種程度上驗證電子郵件地址的好功能？

我不想將額外的* .dll鏈接到我的產品集成正則表達式支持，我還需要Delphi 7的兼容性。將正則表達式庫嵌入到exe文件中會增加它的大小，我懷疑它值得添加下一個100k，因爲你只需要10-50行的電子郵件驗證功能。

Answer 1

按照要求我做我的評論答案..

http://www.howtodothings.com/computers/a1169-validating-email-addresses-in-delphi.html

謝謝！

Answer 2

電子郵件地址驗證的最大問題是RFC 822非常寬泛，沒有正則表達式可以提供幫助。

文章I Knew How To Validate An Email Address Until I Read The RFC描述了這一點。
它引用RFC the local-part MUST be interpreted and assigned semantics only by the host specified in the domain part of the address（local part是@登錄電子郵件地址之前的部分）。

所以：
檢查電子郵件地址是否有效的唯一辦法，就是要建立一個SMTP連接到主機接受郵件的特定域，並與您試圖將電子郵件地址啓動電子郵件握手過程覈實。

這就是很多反垃圾郵件軟件用來驗證發件人電子郵件地址的方法：他們聯繫電子郵件發件人的SMTP服務器，嘗試設置SMTP握手，如果這樣做確定，他們會評估傳入電子郵件更像是不是垃圾郵件。

您可以使用Indy SMTP客戶端組件發送郵件; this question的接受答案解釋瞭如何。

--jeroen

Answer 3

對於老版本的Delphi不具有正則表達式：

function TForm1.IsValidEmail(email: string): boolean; 
const 
    charslist = ['_', '-', '.', '0'..'9', 'A'..'Z', 'a'..'z']; 
var 
    Arobasc, lastpoint : boolean; 
    i, n : integer; 
    c : char; 
begin 
    n := Length(email); 
    i := 1; 
    Arobasc := false; 
    lastpoint := false; 
    result := true; 
    while (i <= n) do begin 
    c := email[i]; 
    if c = '@' then 
    begin 
     if Arobasc then // Only 1 Arobasc 
     begin 
     result := false; 
     exit; 
     end; 
     Arobasc := true; 
    end 
    else if (c = '.') and Arobasc then // at least 1 . after arobasc 
    begin 
     lastpoint := true; 
    end 
    else if not(c in charslist) then // valid chars 
    begin 
     result := false; 
     exit; 
    end; 
    inc(i); 
    end; 
    if not(lastpoint) or (email[n] = '.')then // not finish by . and have a . after arobasc 
    result := false; 
end; 

對於誰喜歡使用數據庫服務器

function TForm1.IsValidEmail(const AMail: string): Boolean; 
var 
    lQry: TSQLQuery; 
begin 
    // no REGEXP in Delphi 2009 -> use of REGEPX Oracle 
    lQry := TSQLQuery.Create(); 
    lQry.SQLConnection := SQLConnection1; 
    try 
    vQry.SQL.Text := 'SELECT REGEXP_SUBSTR(' + QuotedStr(aMail) + ', ''^[a-zA-Z0-9._%+-]+@[a-zA-Z0-9.-]+\.[a-zA-Z]{1,}$'') "EMAIL" FROM DUAL'; // ORACLE 
    // vQry.SQL.Text := 'SELECT ' + QuotedStr(aMail) + ' REGEXP ''^[a-zA-Z0-9][a-zA-Z0-9.-]*[a-zA-Z0-9.-]@[a-zA-Z0-9][a-zA-Z0-9._-]*[a-zA-Z0-9]\.[a-zA-Z]{2,4}$''; // MySQL 
    lQry.Open; 
    Result := not lQry.Eof and (lQry.FieldByName('EMAIL').AsString = AMail); 
    finally 
    FreeAndNil(lQry); 
    end; 
end;