• 欢迎访问搞代码网站,推荐使用最新版火狐浏览器和Chrome浏览器访问本网站!
  • 如果您觉得本站非常有看点,那么赶紧使用Ctrl+D 收藏搞代码吧

用Delphi开发简单的WebMail程序_Delphi

Delphi 搞代码 3年前 (2018-08-09) 183次浏览 已收录 0个评论

文/北京 张维

  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>

http://www.gaodaima.com/?p=65972用Delphi开发简单的WebMail程序_Delphi

  <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:[email protected];

  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上调试通过。

欢迎大家阅读《用Delphi开发简单的WebMail程序_Delphi》,跪求各位点评,若觉得好的话请收藏本文,by 搞代码


喜欢 (0)
[搞代码]
分享 (0)
发表我的评论
取消评论

表情 贴图 加粗 删除线 居中 斜体 签到

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址