谁用帮我用Delphi写一个邮箱验证程序

用到TPerlRegEx控件

代码如下，讲文件读取出来然后判断 如果是邮件地址就写到列表里面去。

lz给出来的正则式就是错的。

procedure TForm1btnParserClick(Sender: TObject);

var

F:TextFile;

S:string;

begin

lstResultClear;

if not FileExists(edtFileText) then

Exit;

AssignFile(F,edtFileText);

Reset(F);

try

PerlRegEx1RegEx:='\w+([-+]\w+)@\w+([-]\w+)\\w+([-]\w+)';

while Not Eof(F) do

begin

Readln(F,S);

PerlRegEx1Subject:=S;

if PerlRegEx1Match then

lstResultItemsAdd(S);

end;

finally

CloseFile(F);

end;

end;

这是一个可以发送邮件的程序。程序是直接使用SMTP协议进行发送，用到了经典的phpMailer库。

请阅读applyphp文件。

发邮件之前你需要一个用来发送邮件的邮箱账号。但不能使用这个账号发送太多的邮件，否则会被当做垃圾邮件屏蔽。如果发送量较大，可以多申请几个邮箱。

关键变量说明：

subject： 邮件的主题

email： 邮件的内容

host： SMTP主机，与你申请的邮箱的服务商有关，详见代码内注释

fromname： 发件人的名字，可以任意写，对方收到时能看到这个名字

from： 发件人地址

to： 收件人地址，代码中写了$to = $from，请自行更改

username和password： 你邮箱的账号和密码，一般username都等于发件人地址。必须提供，否则无法发送邮件。

PHPMailer说明：

$mailer = new PHPMailer(true);

$mailer->IsHTML(true); // 这是一封HTML邮件

$mailer->IsSMTP(true); // 连接SMTP服务发送邮件

# $mailer->SMTPDebug = true; // 是否开启调试模式

$mailer->CharSet = 'UTF-8'; // 邮件内容的编码，和你程序的编码保持一致

$mailer->Encoding = 'base64'; // 邮件传递过程使用的编码

$mailer->FromName = $fromname; // 发件人

$mailer->Host = $host; // SMTP服务地址

$mailer->AddAddress($to); // 添加收件人

$mailer->From = $from; // 设置发件人

$mailer->Subject = $subject; // 设置主题

$mailer->MsgHTML($email); // 设置HTML邮件内容

$mailer->SMTPAuth = true; // 开启SMTP验证

$mailer->Username = $username; // 设置用户名

$mailer->Password = $passwd; // 设置密码

$mailer->Send(); // 发送邮件

以上就是关于谁用帮我用Delphi写一个邮箱验证程序全部的内容，包括:谁用帮我用Delphi写一个邮箱验证程序、php如何实现邮箱验证、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！