说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

Delphi4开发WEBMAIL程序

HTML文档下载 WORD文档下载 PDF文档下载
Delphi4开发WEBMAIL程序

通常,实现WEBMAIL采用mailto.exe的CGI、在HTML文件中写入“< form action="mailto:电子邮箱地址" method=post >”语句或者调用WINDOWS API函数。采用WINDOWS API 和在HTML文件中写入“< form action="mailto:电子邮箱地址" method=post >”语句都要求用户的浏览器装入EXCHANGE、OUTLOOKEXPRESS、或OUTLOOK等软件,而且还有一些浏览器不支持MAILTO语句。而采用CGI的形式实现WEBMAIL对用户的浏览器没有要求,但效率不高。CGI技术正在逐渐被ISAPI/NSAPI技术所取代。本文就来讨论一下采用ISAPI技术实现WEBMAIL。

使用Delphi 4开发Web Server程序是非常简单的,Delphi 4中提供了大量的元件和对象,支持Web Server程序的开发。 下面通过一个例子来介绍如何利用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/xsmd" >

< 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的property: htmlfile:c:\inetpub\www.root\qd.html。nmsmtp1的 property:host(发送邮件服务器的地址。)在这里为smtp.netease.com.。port:25。 全局变量为: sername:string;flag:boolean;

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

procedure TWebModule1.WebModule1WebActionItem1

Action(Sender: TObject;

Request: TWebRequest; Response:

TWebResponse; var Handled: Boolean);

Var Count:integer;

S:string;

Begin

Query1.close;

Query1.sql.clear;

S:=’select count(username) from

user.db where username=”’;

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 的动作项,

它的程序代码如下:

procedure TWebModule1.WebModule1Web

ActionItem2Action(Sender: TObject;

Request: TWebRequest; Response:

TWebResponse; var Handled: Boolean);

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的事件如下:

procedure TWebModule1.NMSMTP1Connect(Sender: TObject);

begin

pageproducer1.htmldoc.add

('< p >已经和发送邮件服务器连接< /p >');

end;

procedure TWebModule1.NMSMTP1Connection

Failed(Sender: TObject);

begin

flag:=false;

pageproducer1.htmldoc.add

('< p >连接失败< /P >');

end;

procedure TWebModule1.NMSMTP1ConnectionRequired

(var Handled: Boolean);

begin

pageproducer1.htmldoc.add('< p >要求进行连接< /p >');

end;

procedure TWebModule1.NMSMTP1Failure(Sender: TObject);

begin

pageproducer1.htmldoc.add('< p >发送邮件失败< /p >');

flag:=false;

end;

procedure TWebModule1.NMSMTP1Header

Incomplete(var handled: Boolean;

hiType: Integer);

begin

pageproducer1.htmldoc.add('< p >head不完整< /p >');

flag:=false;

end;

procedure TWebModule1.NMSMTP1InvalidHost

(var Handled: Boolean);

begin

pageproducer1.htmldoc.add('< p >

发送邮件服务器地址无效< /p >');

flag:=false;

end;

procedure TWebModule1.NMSMTP1RecipientNot

Found(Recipient: String);

begin

pageproducer1.htmldoc.add

('< p >接受邮件地址不正确< /p >');

flag:=false;

end;

procedure TWebModule1.NMSMTP1Success(

Sender: TObject);

begin

pageproducer1.htmldoc.add('< p >

成功发送邮件< /p >');

end; 

将project存为sendmail.dpr,编译后放到WEB服务器的可执行文件路径下(如:c:\intpub\scripts)

即可响应HTML文件dl.htm的用户输入,并且如果用户的用户名及密码正确则可进入发送邮件的页面,用户填写接受邮件地址及主题、内容后即可发送邮件。此程序在NT SERVER上调试通过。

【专访】敏捷专家吴穹:敏捷测试的行业应用与实战解析 英特尔中国研究院最新成果亮相 展示智能衣服瓷杯机器人等创新作品 Node.js 打造实时多人游戏框架 深圳微信开发者大会购票企业特征分析 上门汽车服务“e保养”完成A轮500万美元融资 Docker之父Solomon Hykes谈项目开发的初衷和挑战 浪潮是如何实现单日5000台x86服务器交付互联网的? Bootstrap 3.3.0发布 版本4不再支持IE8 漏洞预警:FTP曝严重远程执行漏洞 影响多个版本Unix 【简讯】W3C小组宣布HTML5标准制定完成 AMD发布GPUPerfAPI 2.14,GPU性能检测更Easy! 开放能力升级——微信公众号登陆授权开启公测! 百度最“智能”的新型推荐技术——智能因子分解机 消灭Bug!18款最佳的问题跟踪管理应用程序 Google Analytics为什么会这么快 【MDCC 2014】Xamarin深入体验营——开发实战大揭秘 【MDCC 2014】电信技术专场:运营商与开发者如何合作共赢 【MDCC 2014】高德LBS大赛闭幕式暨颁奖典礼:下一个50亿应用花落谁家? MDCC 2014移动开发者大会开幕:全生态系统齐聚 开发者成主角 蓝港互动有限公司董事长&amp;amp;首席执行官王峰:移动互联网泛娱乐化趋势 多盟联合创始人&amp;amp;总裁张鹤:多盟DSPAN助力开发者高效变现 创新工场联合创始人汪华:移动互联网时代的跃迁式增长 阿里巴巴集团UC移动事业群总裁俞永福:AMAP Inside——更专业、更开放 《程序员+》移动应用上线 启动“2014 MDCC十大人气应用/产品评选活动” 微软开发体验与平台合作事业部大中华区DX部门总经理Srikanth Raju:基于云的跨平台开发 Facebook平台工程合作部亚太区总经理张博:通过Facebook构建下一代移动应用 Vungle工程副总裁Wayne Chan:移动视频广告的未来 友盟副总裁焦岳:2014移动互联网行业趋势&amp;amp;大数据的行业价值与运营支持 联发科技创意实验室副总裁Marc Naddell:以小博大的可穿戴方案 用友软件股份有限公司高级副总裁谢志华:企业互联网移动化触手可及 【MDCC 2014】英雄会晚宴——厉兵秣马,再上征程 有关“隐藏”,“覆盖”的一些问题: 如何把A库中A表原样复制到B库中去? 怎样取得鼠标点击DataGrid控件时是哪一行,哪一列呢?(C#) ISA 2K发布多个WEB 服务器问题,(我都要疯了)高分求救 这个问题怎么办?? (ADO OPEN) Up 有分! 母亲生日,你觉得送什么礼物为好? 用c++ 写的 hello 程序在unix g++ 编译通过后,运行出错 如下几个初级问题要问,高手们请进-> SQLSERVER高手进来聊聊........ 怎样用代码实现两台电脑之间的文件传输? 哪位知道Microsoft Firewall Client 的下载地址? 关于RECORDset的问题,求教 如何在web页面使用 Windows 窗体控件,最好有例子! 使用DOM的XMLHttpRequest对象来发送xml请求,但当返回的响应带有中文时候,在PDA上无法正常显示,我使用MultiByteToWideChar也没用。有人 请问在窗口中放置控件时,PB是否有靠近格线对齐的功能。如果有,在哪设置? DELPHI中FASTNET组件使用方法 请问在SELECT查询中怎样娶得行号? 在一般的类中如何得到当前文档的指针? 巨菜问题:重装xp后grub启动菜单消失,怎么办? FIP上传问题,非常着急,在线等,解决就结贴, 用javaScript打开窗口后,原窗口的gif动画不动了 FindWindow的用法 反正没几个人能回答,发来玩玩。 在当前文档中如何实现刷新操作? 构造sql语句时,表名或字段有可能是sql的保留字段,如何解决? 小弟急需文件操作和线程管理方面方法技巧的资料,望各位英雄赐教 怎么将power point打包成exe 如何恢复execl中vba的密码 怎样在ISA中设置带宽限制? 如何实现数据库的更新?? 搜胡首页是<<美英百架战机空袭伊拉克 攻伊序幕已拉开>>,但... string 读取的问题。 正在看c++primer的请看(高手当然也能看拉) 有哪位高手用过bcp_exec导入数据吗? vb数据库安全问题 大学新生师弟师妹们很快要来报告了,大家能不能帮我想想一些迎新的宣传标语? 数据窗口中dddw下拉前触发的事件是哪一个(使用pbm_dwndropdown无效)? 有关的vs.net的简单问题! 下周可能要去勞動局!矛盾激化! 博士,硕士,教授等请进,关于前途的问题: 如果明天csdn也被封了,我们还能做什么???? 请问SQL SERVER区分大小写吗 关于lcc-win32 winme下如何调整显示器的刷新率 大家练练手,征集下面这个小程序的算法!!!(很有趣的阿!!) 消失的古代王朝---亚述 Web services 的应用。 关于EXCEL中,连接到其他文件的删除问题 30 分 大侠们,怎么打包BDE,在线等待,急 关于VB的报表打印问题 请教:如何判断Varient变量是否为空? 奥运五环为什么红色代表美洲,蓝色代表欧洲请看清楚问题. “我就是抄下来的”怎么翻译成英语 求缘是天意 份在人为的英文翻译! 减法运算的意义是什么? 英语翻译:缘分怎么说?有例子更好. 这是一种缘份!让我们祝他们生日快乐!英语翻译 有理数减法的定义 1.I'm going to go to Hainan(同义句转换) 2.Are you going to go swimming.(同义句转换) tomorrow we are going to go to Hainan .中的tomorrow应该在前还是在后,为什么? 关于中国历史上所签署的各个不平等条约的时间,地点,原因,以及影响在中国18世纪中后期到辛亥革命时签署的所有条约都对中国造成了很大的影响,那么他们的时间,地点,原因,影响分别是什么 高中地理人教版必修一考题.识图题.等压线分布图. 池塘里的莲池塘里的莲,托着荷叶的是_______,顶着荷花的是,莲真正的茎是横卧在污泥里的_________,藕内布满的细丝是______组织 有哪个兄弟知道,测量喷塑漆层附着力的工具是什么啊?以前见过,不知道叫什么名字,类似螺纹塞规的样子. 英语翻译刚开始进公司的时候,我协助经理组建销售部门,我的主要工作是收集市场信息,走访相关企业,了解市场供求信息,并写市场分析报告.之后我开始负责公司项目推广工作,主要是定期召开 广州话 距噶 一定量的Na2CO3和NaHCO3的混合物跟足量的盐酸反应,共耗酸0.8摩,生成CO20.5摩,求Na2CO3`NaHCO3的质量各多 ‘升’字的英文翻译? 广州话噶口语“几啦”是什么意思? 吸盘式挂钩只能挂在玻璃上的原因 铁元素在食品中生理功能 广州话噶口语“几啦”是什么意思! 为什么NaHCO3 ,Na2CO3与酸反应时,NaHCO3反应的更剧烈? 影响Fe吸收的主要因素有哪些? 英文短语“注意安全” 这幅图你能看到几个字?听说最多的能看到18个字. 这个用系统命名法怎么念?为什么不念做3,5-二甲基-5-乙基庚烷? 交通安全的英语短语不要闯红灯.... 求一张写着字的图片.上面写着一句话的就是张爱玲的那一句"明明不相干的,也会在心中拐好几个弯想到你"把图片贴出来或者把网址交出来~额.是手写的. 系统命名法问题2-二甲基戊烷对吗?是不是应该写成2,2-二甲基戊烷 I'm going to go to middle school this September.(变成一般疑问句)按要求完成句子 如果这幅图旁边要配上一句话或一个词,大家认为配什么好一些?最好是偏现代些的,不要太长,一句话或一个词,也可以是小说动漫电影各种各种的语录什么的,也可以是原创的,只要合适意境, 关于系统命名法的问题命名时-CH2C(CH3)3和-CH(CH3)CHCH3哪个在前面?前一个更大,后一个取代基的取代基更靠前打错了,是-C(CH3)2CH2CH3和-CH2CH(CH3)CH3 英文翻译 梅菜笋丝 图像PS,一句话前面加几个字,急帮PS一下,把请你吃哈根达斯改成请全班吃哈根达斯,急 噶的读音 “笋”的英语单词是什么? 准噶尔盆地和塔里木盆地的成因是什么? 噶的读音为 英语翻译hull 是指果实类的壳吧能用在这里修饰笋的壳吗?请大家给点在国际贸易中,关于笋壳的常用词汇吧 "你是指"笋壳鱼"吗?应该是"blue code"如果我没记错的话..." 不好意思不是的,我的 几个字或者一句话加上一个美女的图,叫什么像这个 准噶尔盆地 怎么读 英语翻译纯鲜榨雪梨汁纯鲜榨凉瓜雪梨汁纯鲜榨苹果甘笋汁纯鲜榨西芹甘笋汁柠七可乐煲姜鲜奶加蛋橙汁西米露麦片鲜奶什果宾治薄荷宾治薄荷七喜红豆冰什果西米露柠蜜西洋菜蜜西柚汁柠 奥运五环中的绿环代表的是澳洲还是大洋洲?越详细越好,最好把国际规定也弄上来. 类是于街霸里的哈都跟 午休噶 一类的发音还有什么 哈都跟 和 午休噶 是什么意识? 结婚和笋用英文怎么写 三个不平等条约的签订对近代中国社会性质的影响是什么 什么是铁制剂 四川盆地和塔里木盆地的差异有哪些?从民居,服饰,饮食,文化等方面来考虑 电磁吸盘吸在玻璃上为什么要排干空气 促进离子铁吸收的因素有哪些? 四川盆地和塔里木盆地区别地形特点,气候类型,干湿状况,温度带,主要河流及特征,主要农作物 ps中ctrl+shift+6什么意思? 已知有一芳香烃结构式为CxHy,怎么由它得到y≤2x-6?我想知道为什么y要小于等于2x-6 四川盆地及塔里木盆地自然环境要素的异同自然环境要素包括气候,土壤,地形,水文,植被. ps里ctrl+a+c+v是什么意思? 芳香烃的结构式是否一定的画苯环,谢C6H5. 四川盆地和塔里木盆地分别是在什么温度带 有理数减法概念谁能给我一些有理数减法的概念,越多越好, 英语翻译274.It is not unusual for you to work for an organization that has a multicultural workforce. 相遇是缘 学着去珍惜所以的缘份.的英文翻译
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘