CSDN博客

img iamfancy

用 C++BUILDER 实现 POP3 电子邮件的接收

发表于2001/9/22 22:50:00  720人阅读

分类: C++ Builder

通过对 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();

为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事件编写代码

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服务器名,你就可以接收到你的电子邮件了,怎么样?试一试吧。

-=--=--=--=--=--=--=--=--=--=--=--=--=--=--=--=--=-
             //
  __________/LB/___   OUTINN
 /  _[]_   /____/  /
/_________/| () |/__/ http://outinn.yeah.net/
 |  ____ /-| __ |-/|  Welcome to visit OUTINN!
 |__|==|___| || |__|
 -=--=--=- |_||_| =-  Fancy, outinn@china.com
0 0

相关博文

我的热门文章

img
取 消
img