| 网站首页 | 文章中心 | 电子书下载 | 矢量图库 | 视频教程 | 素材下载 | 程序代码下载 | JS代码 | 论坛 | 
常用软件类：
 |杀毒安全 |联络聊天 |网络软件 |多媒体类 |系统工具 |图形图像 |系统工具 |应用软件 |行业软件
开发设计类：
 |动画制作 |图像处理 |3D设计 |操作系统 |站长学院 |网络相关 |WEB设计 |数据库类 |程序开发
Delphi开发简单的WebMail程序
作者：佚名    文章来源：网络    点击数：    更新时间：2006-12-2
　

WebMail是指在网页中实现邮件的发送。使用Delphi开发Web Server程序是非常简单的，Delphi中提供了大量的元件和对象。下面通过一个例子来介绍如何利用Delphi开发一个响应用户输入的ISAPI的WebMail程序。为了简单，程序没有对传送的数据提供保密。

首先，在Web服务器端安装数据库引擎dbe,并设置好数据库别名：yh,指向一个包含用户名和用户密码的数据库文件user.db。接着建立两个HTML文件，名字分别为：dl.html,qd.html，放在Web服务器的缺省目录下(如：c：＼inetpub＼wwwroot)。

dl.html的内容如下： 

　　<html>

　　<head><title>发送邮件系统</title></head>

　　<body>

　　<h1>发送邮件系统</h1>

　　<p>请输入您的用户名及密码</p>

　　<form method=”post”action="/scripts/SendMail">

　　<p>用户名<input type="text" length=10 name="username">

　　密码：< input type="password" length=10 name="password" ></p>

　　<p><input type="submit" value="确定">

　　<input type="reset" value="清除"></p>

　　</form>

　　</body>

　　</html>

qd.html文件内容如下： 

　　<html><head><title>填表</title></head>

　　<body>

　　<form method=”post”action="feedback">

　　<p>请填入接收邮件地址:toaddress:

　　<input type=”text”length=20 name=”toaddress”></p>

　　<p>请填入主题<input type="text" length=20 name="subject"></p>

　　<p>内容：</p>

　　<p><input type=“textarea”length=40 width

　　=40 name=”body”></p>

　　<p><input type="submit" value="确定">

　　<input type="reset" value="清除"></p>

　　</form >

　　</body >

　　</html >

在Delphi中新建一个基于ISAPI的Web Server Application，手动增加nmsmtp1,query1,pageproducer1。其中：pageproducer1的htmlfile属性为c:＼inetpub＼www.root＼qd.html。nmsmtp1的host(发送邮件服务器的地址)在这里为smtp.netease.com.，port:25。全局变量为：sername:string;flag:boolean。

[1] [2] 下一页


相关文章