计算机网络实验―基于SMTP发送邮件.docVIP

计算机网络实验―基于SMTP发送邮件 班 级 ： 电气16班 姓 名： 马 丽 军 学 号 ：完成时间 ： 2004年5月26日 指导教师 ： 薛 涛 日期：2004年5月27日 目 录 一、实验任务…………………………………………3 二、实验环境…………………………………………3 三、设计思路 …………………………………………4 四、实验过程 ………………………………………… 5 五、实验故障与排除…………………………………15 六、个人总结…………………………………………16 附录……………………………………………………16 一、实验任务 现在电子邮件的应用越来越广泛，它逐渐被人们所接受使用，因为它具有方便快捷，经济的优点。而发送邮件的形式有借助与IE或者OutLook，而本人经常IE，不过这还要先打开IE浏览器，再进入邮箱进行操作，很麻烦，所以在做网络实验的过程中本人决定开发一个电子邮件发送程序，它可以借助SMTP服务器来发送邮件。因此，我制作了一个便于发送邮件的基于smtp的程序如图： 二、实验环境 1.????? Pentium 166/128M内存 2.????? Windows 95/98/2000/Me/Xp操作系统 基于SMTP协议 显示环境为800×600分辨率，16位增强色 delphi6.0 三、设计思路 说明：因为delphi的很多程序是已经在组件中封装好了的，只需要调用就可以了。 先是设定NMSMTP组件中要进行连接的SMTP服务器名，服务器的端口号，以及登陆用户等，再利用NMSMTP组件的Conect方法尝试连接。在进行连接过程中，可能会出现连接失败等一些错误，这里对此进行了跟踪，用来提示用户，连接是否有效。 接着开始利用NMSMTP组件指定接收方的地址，用户名，邮件主题，发送方，附件等，开始对指定的SMTP服务器进行邮件发送，由于在发送过程中可能会出现一些异常， 这里利用NMSMTh组件对在发送过程中出现的异常进行捕捉，同时反馈给用户。 为了能使邮件发送成功，在发送过程中要把邮件所包含的邮件头信息去掉，该属性的定义过程为： property FinalHeader: TExStringList; 这里调用它的一个Clear方法用于清空邮件的头信息。 利用NMSMTh组件的OnAuthenticationFailed事件来处理需要验证的SMTP服务器，该事件在 Delphi 6．0中定义如下： property onAuthentlcatlonFalled：THandlerEvent； 这里的ThmdlerE此止对象定义如下： THandl erEvent＝procedure（var Handled：Boolean）of object； 这里的Handled参数用于标识是否进行相应的处理。 四、实验过程 1 建立一个新工程 (1)启动 Delphi 6．0，在 IDE环境下单击工具栏上的【New】按钮，打开【New Items】对话框，然后单击【New】选项卡，这时出现了 Delphi 6．0默认的新建选项列表，选择Applicpon项，如图所示： （2）单击【OK】按钮，则创建了一个新的应用程序，如图所示。 （3）现在开始构建这个发送E－mal程序的主要窗体结构，为了能使用户可以随意指定符合自己需要的SMTP服务器，这里提供了一个下拉文本框，用户可以根据自己的需要选定。用户指定好发送方和邮件主题等信息后，就可以利用该程序发送邮件了，这里所需要的组件都是由 Delphi 6．0提供的，添加过程为：向应用程序主窗体中依次添加一个Memo组件，六个Edit组件，一个Animat组件，一个OpenDialog组件，一个NMSMTP组件，一个GroupBox组件，两个Pannel组件，一个StatusBar组件，八个Label组件和两个SpeedButton组件，具体位置如图所示 2设置窗口属性 （1）TForm (2)TSpeedButton (3)Tlabel 其他的label4---label8同理设置。 （3）TButton (4)TEdit 其他同理。 （5）TgroupBox (6)Tmemo (7)TAnimate (8)Tcom