用C++BUILDER实现POP3电子邮件的吸收
副标题#e#
通过对C＋＋BUILDER的组件配置,我们可以建设一个本身的POP3电子邮件吸收措施。
一、成立一个工程文件
二、成立一个新的表单,配置它的caption属性为Getmail,在上面安排一个TpageControl控件,单击右键建设三个TabSheet(1，2，3)。在TabSheet1上安排四个Edit(1，2，3，4)控件并排除它们的Text属性及两个Botton(1，2),个中Edit1用以输入POP3处事器的名称；Edit2用以配置会见端标语,我们配置它为110,并将它的Text属性设为110；Edit3用以输入用户名；Edit4用以输进口令。设Botton1的caption为“毗连”,Botton2的caption为“断开毗连”。在TabSheet2上安排五个Edit(5，6，7，8，9)控件、两个Memo控件和三个Botton(3，4，5)，Edit5用来显示邮件的编号；Edit6、Edit7、Edit8和Edit9别离用来显示邮件的发送者、邮件的主题、巨细及ID号；Memo1用来显示邮件的正文；Memo2用来显示邮件头；Botton3、Botton4、Botton5的caption属性别离配置为“删除”、“邮件”和“邮件信息”。在TabSheet3上安排两个Botton和一个Memo控件，个中Botton6的caption属性为“邮件列表”；Botton7的caption为“排除列表”；Memo的用途自然为显示邮件列表。在表单的底部安排一个StatusBar控件用以显示事情状态。最后，最重要的是在表单上安排一个NMPOP3控件，在这个措施里，它是我们与POP3处事器通讯的焦点。
三、编写代码
为Botton1的OnClick事件编写代码:
NMPOP31－〉AttachFilePath = ″.″; //设定邮件的存储目次
NMPOP31－〉DeleteOnRead = false; //读完邮件后是否删除
NMPOP31－〉ReportLevel = Status_Basic; //节制OnStatus事件和Status属性陈诉的资料的数量
NMPOP31－〉TimeOut = 20000; //配置超时的时间
NMPOP31－〉Host = Edit1－〉Text; //配置pop3处事器的主机名
NMPOP31－〉Port = StrToInt(Edit2－〉Text); //配置pop3处事器的端标语
NMPOP31－〉UserID = Edit3－〉Text; //取得用户名
NMPOP31－〉Password = Edit4－〉Text; //获得口令
NMPOP31－〉Connect(); //开始毗连
Label10－〉Caption = ″＃ of Messages: ″＋IntToStr(NMPOP31－〉MailCount); //显示邮件的数量
为Botton2的OnClick事件编写代码:
NMPOP31－〉Disconnect(); //使之可以或许与处事器断开毗连
为Botton3的OnClick事件编写代码,当点击它时可以删除邮件:
NMPOP31－〉DeleteMailMessage(StrToInt(Edit5－〉Text));
为Botton4的OnClick事件编写代码,当点击它时显示整个邮件:
NMPOP31－〉GetMailMessage(StrToInt(Edit5－〉Text));
Edit6－〉Text = NMPOP31－〉MailMessage－〉From; //通过MailMessage的From属性获得发信人
Edit7－〉Text = NMPOP31－〉MailMessage－〉Subject; //通过MailMessage的Subjecet属性获得主题
Edit9－〉Text = NMPOP31－〉MailMessage－〉MessageId; //通过MailMessage的MessageIds属性获得Id
Memo2－〉Lines－〉Assign(NMPOP31－〉MailMessage－〉Head);
Memo1－〉Lines－〉Assign(NMPOP31－〉MailMessage－〉Body);
if (NMPOP31－〉MailMessage－〉Attachments－〉Text != ″″)
ShowMessage(″Attachments:\n″＋NMPOP31－〉MailMessage－〉Attachments－〉Text);
为Botton5的OnClick事件编写代码,点击它时将在Memo中显示邮件的提要信息:
NMPOP31－〉GetSummary(StrToInt(Edit5－〉Text));
Edit6－〉Text = NMPOP31－〉Summary－〉From;
Edit7－〉Text = NMPOP31－〉Summary－〉Subject;
Edit8－〉Text = IntToStr(NMPOP31－〉Summary－〉Bytes);
Edit9－〉Text = NMPOP31－〉Summary－〉MessageId;
为Botton6的OnClick事件编写代码,点击它时将在Memo3中显示邮件列表:
NMPOP31－〉List(); //获得邮件的数量和巨细的列表
为Botton7的OnClick事件编写代码,点击它时将排除Memo3中的邮件列表:
Memo3－〉Clear();
#p#副标题#e#
为NMPOP3的事件编写代码
1. 为它的OnConnect事件编写代码
StatusBar1－〉SimpleText = ″Connected″; //毗连后在状态栏显示已毗连
2. 为它的OnConnectionFailed事件编写代码
ShowMessage(″Connection Failed″); //若毗连失败则陈诉
3. 为它的OnConnectionRequired事件编写代码
AnsiString BoxCaption;
AnsiString BoxMsg;
BoxCaption = ″请求毗连″;
BoxMsg = ″请求毗连,毗连吗?″;
if (MessageBox(0, ＆BoxMsg[1], ＆BoxCaption[1], MB_YESNO ＋ MB_ICONEXCLAMATION) == IDYES)
{ handled = TRUE;
Form1－〉Button1Click(this);
}
4.为它的OnDisconnect事件编写代码
if (StatusBar1 != 0)
StatusBar1－〉SimpleText = ″Disconnected″; //断开毗连后在状态栏显示已断开
5. 为它的OnFailuer事件编写代码
ShowMessage(″操纵失败!″);
6. 为它的OnHostResovled事件编写代码
StatusBar1－〉SimpleText = ″Host Resolved″;
7.为它的OnInvailidHost事件编写代码
#p#分页标题#e#
AnsiString NewHost;
if (InputQuery(″犯科主机名!″, ″请从头输入新的主机名″,NewHost))
{ NMPOP31－〉Host = NewHost;
handled = true;
}
8. 为它的OnList事件编写代码
if (Msg 〈 2)
{ Memo3－〉Clear();
Memo3－〉Lines－〉Add(″Message Number / Message Size″);
}
Memo3－〉Lines－〉Add(IntToStr(Msg)＋″/ ″＋IntToStr(Size));
9. 为它的OnListPacketRecvd事件编写代码
StatusBar1－〉SimpleText = IntToStr(NMPOP31－〉BytesRecvd)＋″ bytesof ″＋IntToStr(NMPOP31－〉BytesTotal)＋″ Received″;
10. 为它的OnReset事件编写代码
ShowMessage(″重置删除符号″);
11. 为它的OnRetrieveEnd事件编写代码
Form1－〉Cursor = crDefault;
StatusBar1－〉SimpleText = ″规复完成″;
12. 为它的OnRetrieveStart事件编写代码
Form1－〉Cursor =crHourGlass;
StatusBar1－〉SimpleText = ″规复开始″;
13. 为它的OnStatus事件编写代码
if (StatusBar1 != 0)
StatusBar1－〉SimpleText = Status;
14. 为它的OnSuccess事件编写代码
StatusBar1－〉SimpleText = ″操纵乐成″。
至此,我们的电子邮件措施就完成了,编译运行后,输入你的pop3处事器名,你就可以吸收到你的电子邮件了,怎么样?试一试吧。
