- 1PS提示：因为图层已锁定，无法编辑图层的处理方法
- 2Adobe Illustrator CS5 序列号大全
- 3picacg苹果版怎么找不到|picacg ios版是不是下架了介绍
- 4ACDsee注册码免费分享（含ACDsee18、ACDsee10等版本）
- 5苹果iphone自动时间不准确的多种校正方法
- 6PDF浏览器能看3D文件吗？PDF浏览器看3D文件图文详细教程
- 7Potato(马铃薯聊天)怎么注册不了|Potato不能注册处理方法介绍
- 8Potato(土豆聊天)怎么换头像|Potato app更改头像方法介绍
- 9ipad版office如何激活? office365激活的图文说明教程
- 10最新的Adobe Illustrator CS4序列号大全
- 11Mac怎么通过设置VPN来登录youtube等国外网站
- 12眼萌app怎么色弱测试 眼萌app色弱测试图文说明教程
[摘要]文/北京 张维 WebMail是指在网页中实现邮件的发送。使用Delphi开发Web Server程序是非常简单的，Delphi中提供了大量的元件和对象。下面通过一个例子来介绍如何利用Delphi开发一个响应用户输入的ISAPI的WebMail程序。为了简单，程序没有对传送的数据提供保密。 ...
文/北京 张维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。
增加一个路径为feedback的动作项，其代码如下：
Var
Count:integer;
S:string;
Begin
Query1.close;
Query1.sql.clear;
S:=’select count(username) from user.dbswheresusername=”’;
S:=s+request.contentfields.values[‘username’]+’”’;
S:=s+’and password=”’;
S:=s+request.contentfields.values[‘psword’]+’”’;
Query1.sql.add(S);
Query1.open;
If query1.count=0 then response.content:=
’<html><head><title>
</title>
<body>用户名、密码不正确，请重新输入</body>
</html>’
Else
Username:=request.contentfields.values[‘username’];
Response.content:=pageproducer1.content;
End;
再增加一个路径为Sendmail的动作项，它的程序代码如下：
Var body:string;
Begin
Flag:=true;
body:=request.contentfields.values[‘body’];
Pageproducer1.htmldoc.clear;
Pageproducer1.htmldoc.add(‘< html >< body >’);
Nmsmtp1.postmessage.clear;
Nmsmtp1.postmessage.fromaddress:=username+’@netease.com’;
Nmsmtp1.postmessage.from:=username;
Nmsmtp1.postmessage.body.add(body);
Nmsmtp1.postmessage.toaddress.add(request.contentfields.values[‘toaddress’]);
Nmsmtp1.postmessage.subject:=request.contentfields.values[‘subject’]；
Nmsmtp1.connect;
If flag=true then
begin
Nmsmtp1.sendmail;
nmsmtp1.disconntent;
end
pageproducer1.htmldoc.add(‘</body></html>’);
response.content:=pageproducer1.content;
end;
增加nmsmtp1的OnConnect事件添加如下代码：
pageproducer1.htmldoc.add('<p>已经和发送邮件服务器连接</p>');
在NMSMTP1的Connection事件添加如下代码：
flag:=false;
pageproducer1.htmldoc.add('<p>连接失败</P>');
将project存为sendmail.dpr，编译后放到Web服务器的可执行文件路径下(如：c:＼intpub＼scripts),即可响应HTML文件dl.htm的用户输入，并且如果用户的用户名及密码正确，则可进入发送邮件的页面。用户填写接受邮件地址及主题、内容后，即可发送邮件。此程序在NT Server上调试通过。
推荐资讯 总人气榜
最新教程 本月人气
- 1浅谈Asp.net多层架构中的变量引用与传递
- 22栏分页显示（附显示的形式前页，后页）
- 3使用DB2look 重新创建优化器访问计划(4)
- 4Java+XML学习Step by step（3）
- 5使用ASP完成对表的分页浏览（下）
- 6图形显示方式屏幕的保存与恢复
- 72种统计当前在线人数的方法
- 8写了个Telnet Server
- 9获得当前进程的下文
- 10使用ASP完成对表的分页浏览（上）
- 11Zend Studio 3.0试用手记
- 12VB填充IE上的输入框并提交
- 1uc浏览器去广告图文说明教程：uc浏览器广告过滤技巧使用方法_绿茶安卓网
- 2字符串根据多个字符进行分割的一种方法
- 3使用c#制作容易的留言板(1)
- 43星s5电信版支持4g吗？3星galaxy s5电信版支持4g网络吗？
- 5nubia x6电信版什么时候上市？中兴nubia x6电信版上市时间
- 6华为p7移动版什么时候上市？华为p7手机移动版上市时间
- 7联想黄金斗士s8预约图文说明教程(附联想s8预约网址)
- 8联想黄金斗士s8加持版与规范版的区别有哪一些？s8加持版/规范版区别
- 9美颜相机声音如何关？美颜相机关声音方法_绿茶安卓网
- 10陌陌如何举报？陌陌举报好友图文说明教程_绿茶安卓网
- 11陌陌群聊如何@别人？陌陌群聊@别人方法_绿茶安卓网
- 123星s4手势感应如何用？3星Galaxy s4手势感应视频图文说明教程
