知识大全如何用Delphi开发简单的WebMail程序

Posted 2022-07-21 知

篇首语：有志不在年高，无志空长百岁。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全如何用Delphi开发简单的WebMail程序相关的知识，希望对你有一定的参考价值。

如何用Delphi开发简单的WebMail程序 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

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

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

　　dl 的内容如下

　　　　<>　　　　<head><title>发送邮件系统</title></head>　　　　<body>　　　　<h >发送邮件系统</h >　　　　　　　　<p>请输入您的用户名及密码</p>　　　　<form method= post action= /scripts/SendMail >　　　　<p>用户名<input type= text length= name= username >　　　　密码 < input type= password length= name= password ></p>　　　　　　　　<p><input type= submit value= 确定 >　　　　<input type= reset value= 清除 ></p>　　　　</form>　　　　</body>　　　　</> 　　qd 文件内容如下

　　　　<><head><title>填表</title></head>　　　　<body>　　　　<form method= post action= feedback >　　　　<p>请填入接收邮件地址:toaddress:　　　　<input type= text length= name= toaddress ></p>　　　　<p>请填入主题<input type= text length= name= subject ></p>　　　　<p>内容 </p>　　　　<p><input type= textarea length= width= name= body ></p>　　　　<p><input type= submit value= 确定 >　　　　<input type= reset value= 清除 ></p>　　　　</form >　　　　</body >　　　　</ > 　　在Delphi中新建一个基于ISAPI的Web Server Application 手动增加nmsmtp query pageproducer 其中 pageproducer 的file属性为c:＼inetpub＼ root＼qd nmsmtp 的host(发送邮件服务器的地址)在这里为smtp netease port: 全局变量为 sername:string;flag:boolean

　　增加一个路径为feedback的动作项其代码如下

　　　　　Var　　　　　Count:integer;　　　　S:string;　　　　　Begin　　　　Query close;　　　　Query 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 ]+ ;　　　　Query sql add(S);　　　　Query open;　　　　If query count= then response content:=　　　　 <><head><title>　　　　</title>　　　　<body>用户名密码不正确请重新输入</body>　　　　</> 　　　　Else 　　　　Username:=request contentfields values[ username ];　　　　Response content:=pageproducer content;　　　　End; 　　再增加一个路径为Sendmail的动作项它的程序代码如下

　　　　Var body:string;　　　　Begin　　　　Flag:=true;　　　　body:=request contentfields values[ body ];　　　　Pageproducer doc clear;　　　　Pageproducer doc add( < >< body > );　　　　Nmsmtp postmessage clear;　　　　Nmsmtp postmessage fromaddress:=username+ @netease ;　　　　Nmsmtp postmessage from:=username;　　　　Nmsmtp postmessage body add(body);　　　　Nmsmtp postmessage toaddress add(request contentfields values[ toaddress ]);　　　　Nmsmtp postmessage subject:=request contentfields values[ subject ] 　　　　Nmsmtp connect;　　　　If flag=true then 　　　　begin　　　　Nmsmtp sendmail;　　　　nmsmtp disconntent;　　　　end　　　　pageproducer doc add( </body></> );　　　　response content:=pageproducer content;　　　　end; 　　增加nmsmtp 的OnConnect事件添加如下代码

cha138/Article/program/Delphi/201311/24974

知识大全 如何用Delphi开发简单的WebMail程序

知识大全如何用Delphi开发简单的WebMail程序