如何用Delphi开发简单的WebMail程序

 


在Delphi中新建一个基于ISAPI的Web Server Application，手动增加nmsmtp1,query1,pageproducer1。其中：pageproducer1的htmlfile属性为c:＼.netpub＼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’]+’”’;

文章来源于领测软件测试网 https://www.ltesting.net/