C++ Builder实此刻线吸收电子邮件
副标题#e#
我们在利用163、长通飞华等免费电子邮件的时候，会发明这些电子信箱具有在线收发的成果，即可以通过欣赏器发送和吸收邮件电子邮件。这些成果一般是通过CGI实现的，而CGI技能正在逐渐被ISAPI/NSAPI技能所代替，下面的例子利用C++Builder4.0中的ISAPI/NSAPI实现了电子邮件的在线吸收。利用C++Builder4开拓Web Server措施长短常简朴的，C++Builder 4的VCL提供了大量的元件和工具，支持Web Server措施的开拓。
本措施由两个文件组成，别离为index.htm：吸收电子邮件的欣赏器界面，放到WEB处事器的缺省目次下（如：C：\Inetpub\wwwroot）；ReadMail.dll：在欣赏器内显示邮件列表以及指定邮件内容的Web Server Application。这个动态链结库文件放
可执行文件路径下（如C:\Inetpub\scripts）。用户在欣赏器内通过Web Server欣赏index.htm，输入主机名、端口（一般
是110）、用户名、口令后，首先会看到用户的邮件列表，单击相应的邮件序号即可查察邮件内容。
首先成立index.htm，其内容如下：
<html>
<head>
<meta http-equiv="Content-Type"
content="text/html; charset=gb_2312-80">
<meta name="GENERATOR" content="Microsoft FrontPage Express 2.0">
<title>邮件查察</title>
</head>
<body bgcolor="#FFFFFF">
<form action=" /scripts/MailList.dll/MailList"
method="POST">
<p>主机：<input type="text" size="20" name="Host"></p>
<p>端口：<input type="text" size="20" name="Port"></p>
<p>用户名：<input type="text" size="20" name="Name"></p>
<p>口令：<input type="password" size="20" name="Code"></p>
<p><input type="submit" name="B1" value="提交"><input
type="reset" name="B2" value="复兴"></p>
</form>
</body>
</html>
下面编写ReadMail.dll
在C++Builder中新建一个基于ISAPI的Web Server Application，手动增加
NMPOP31,PageProducer1。在Unit1.h头文件中界说几个变量：
AnsiString HostName,HostPort,UserName,UserCode;
TStrings *URLData; // 接管HTTP请求通报的参数
bool ConnectFlag;
int EmailOrder;
增加一个路径为/MailList的行动项，其代码如下：
void __fastcall TWebModule1::WebModule1WebActionItem1Action(
TObject *Sender, TWebRequest *Request, TWebResponse *Response,
bool &Handled)
{
//接管HTTP请求通报的参数，从中获取用主机、端口、户名和口令
URLData = NULL;
switch(Request->MethodType)
{case mtPost:
URLData = Request->ContentFields;
break;
case mtGet:
URLData = Request->QueryFields;
break;
}
HostName = URLData->Values["Host"];
HostPort = URLData->Values["Port"];
UserName = URLData->Values["Name"];
UserCode = URLData->Values["Code"];
//下面开始毗连邮件处事器
NMPOP31->AttachFilePath=".";//存储邮件路径为当前路径
NMPOP31->DeleteOnRead=false;//不删除处事器上的副本
NMPOP31->ReportLevel=Status_Basic;//Status的具体水平
NMPOP31->TimeOut=20000;//设定超时
NMPOP31->Host=HostName;
NMPOP31->Port=StrToInt(HostPort);
NMPOP31->UserID=UserName;
NMPOP31->Password=UserCode;
ConnectFlag=true;
NMPOP31->Connect();
//假如毗连乐成，则建造邮件列表的HTML语句
if(ConnectFlag)
{PageProducer1->HTMLDoc->Clear();
PageProducer1->HTMLDoc->Add("<html><body>");
PageProducer1->HTMLDoc->Add("邮件个数"+IntToStr(NMPOP31->MailCount));
if(NMPOP31->MailCount)
for(int i=1;i<=NMPOP31->MailCount;i++)
{PageProducer1->HTMLDoc->Add("<a href=''");
PageProducer1->HTMLDoc->Add("ReadMail?Mx=");
PageProducer1->HTMLDoc->Add(IntToStr(i));
PageProducer1->HTMLDoc->Add("''>");
PageProducer1->HTMLDoc->Add(IntToStr(i));
PageProducer1->HTMLDoc->Add("</a>");}
}
PageProducer1->HTMLDoc->Add("</body></html>");
NMPOP31->Disconnect();}
else
{PageProducer1->HTMLDoc->Clear();
PageProducer1->HTMLDoc->Add("<html><body>");
PageProducer1->HTMLDoc->Add("毗连处事器失败！");
PageProducer1->HTMLDoc->Add("</body></html>");}
//将邮件列表的HTML语句发送给欣赏器
Response->Content = PageProducer1->Content( );
}
//--------------------------------------------------------------
#p#副标题#e#
以上部门措施完成了显示邮件处事器邮件列表的成果。接下来，再增加一个路径为/MailList的行动项，它的成果是显示指定的邮件内容。
#p#分页标题#e#
void __fastcall TWebModule1::WebModule1WebActionItem2Action(
TObject *Sender, TWebRequest *Request, TWebResponse *Response,
bool &Handled)
{
//接管HTTP请求通报的参数，从中获取用户名和口令、欲查察的邮件序号
URLData = NULL;
switch(Request->MethodType)
{case mtPost:
URLData = Request->ContentFields;
break;
case mtGet:
URLData = Request->QueryFields;
break;}
EmailOrder = StrToInt(URLData->Values["Mx"]);
//下面开始毗连邮件处事器
NMPOP31->AttachFilePath=".";//存储邮件路径为当前路径
NMPOP31->DeleteOnRead=false;//不删除处事器上的副本
NMPOP31->ReportLevel=Status_Basic;//Status的具体水平
NMPOP31->TimeOut=20000; //设定超时
NMPOP31->Host=HostName;
NMPOP31->Port=StrToInt(HostPort);
NMPOP31->UserID=UserName;
NMPOP31->Password=UserCode;
ConnectFlag=true;
NMPOP31->Connect();
//假如毗连乐成，打开指定的邮件
if(ConnectFlag)
{PageProducer1->HTMLDoc->Clear();
PageProducer1->HTMLDoc->Add("<html><body>");
PageProducer1->HTMLDoc->Add("第"+ IntToStr(EmailOrder)+ "个邮件内容：");
NMPOP31->GetMailMessage(EmailOrder);
PageProducer1->HTMLDoc->AddStrings(NMPOP31->MailMessage->Head);
PageProducer1->HTMLDoc->AddStrings(NMPOP31->MailMessage->Body);
PageProducer1->HTMLDoc->Add("</body></html>");
NMPOP31->Disconnect(); }
else
{PageProducer1->HTMLDoc->Clear();
PageProducer1->HTMLDoc->Add("<html><body>");
PageProducer1->HTMLDoc->Add("毗连处事器失败！");
PageProducer1->HTMLDoc->Add("</body></html>");}
//将显示指定邮件内容的HTML语句发送给欣赏器
Response->Content = PageProducer1->Content( );
}
//------------------------------------------------------------
最后在NMPOP31的ConnectionFailed事件中插手：
void __fastcall TWebModule1::NMPOP31ConnectionFailed(TObject *Sender)
{
ConnectFlag=false;
}
//------------------------------------------------------------
编译完成后，将生成的DLL文件改名为和HTML文件相对应的名称
（如：ReadMail.dll），放在C:\Inetpub\scripts即可。以上措施在Pwin98+PWS4上通过。另外，本措施尚有不敷之处，好比只能查察内容为纯文本名目标邮件，没有处理惩罚异常的本领。读者感乐趣的话，不妨改造。
