六月婷婷综合激情-六月婷婷综合-六月婷婷在线观看-六月婷婷在线-亚洲黄色在线网站-亚洲黄色在线观看网站

明輝手游網(wǎng)中心：是一個免費提供流行視頻軟件教程、在線學習分享的學習平臺！

用Delphi開發(fā)容易的WebMail程序

發(fā)表時間：2024-02-21 來源：明輝站整理相關軟件相關文章人氣：

[摘要]文/北京 張維　　WebMail是指在網(wǎng)頁中實現(xiàn)郵件的發(fā)送。使用Delphi開發(fā)Web Server程序是非常簡單的，Delphi中提供了大量的元件和對象。下面通過一個例子來介紹如何利用Delphi開發(fā)一個響應用戶輸入的ISAPI的WebMail程序。為了簡單，程序沒有對傳送的數(shù)據(jù)提供保密。 　　...
文/北京 張維

　　WebMail是指在網(wǎng)頁中實現(xiàn)郵件的發(fā)送。使用Delphi開發(fā)Web Server程序是非常簡單的，Delphi中提供了大量的元件和對象。下面通過一個例子來介紹如何利用Delphi開發(fā)一個響應用戶輸入的ISAPI的WebMail程序。為了簡單，程序沒有對傳送的數(shù)據(jù)提供保密。


　　首先，在Web服務器端安裝數(shù)據(jù)庫引擎dbe,并設置好數(shù)據(jù)庫別名：yh,指向一個包含用戶名和用戶密碼的數(shù)據(jù)庫文件user.db。接著建立兩個HTML文件，名字分別為：dl.html,qd.html，放在Web服務器的缺省目錄下(如：c：＼inetpub＼wwwroot)。

　　dl.html的內容如下：

　　<html>

　　<head><title>發(fā)送郵件系統(tǒng)</title></head>

　　<body>

　　<h1>發(fā)送郵件系統(tǒng)</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>請?zhí)钊虢邮锗]件地址:toaddress:

　　<input type=”text”length=20 name=”toaddress”></p>

　　<p>請?zhí)钊胫黝}<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(發(fā)送郵件服務器的地址)在這里為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>已經(jīng)和發(fā)送郵件服務器連接</p>');

　　在NMSMTP1的Connection事件添加如下代碼：

　　flag:=false;

　　pageproducer1.htmldoc.add('<p>連接失敗</P>');

　　將project存為sendmail.dpr，編譯后放到Web服務器的可執(zhí)行文件路徑下(如：c:＼intpub＼scripts),即可響應HTML文件dl.htm的用戶輸入，并且如果用戶的用戶名及密碼正確，則可進入發(fā)送郵件的頁面。用戶填寫接受郵件地址及主題、內容后，即可發(fā)送郵件。此程序在NT Server上調試通過。
主站蜘蛛池模板： 日韩影片2| 一级女性全黄久久生活片免费 | 亚洲国产成人久久一区www妖精 | 四虎影院在线免费播放 | 做性视频 | 小黄鸭b站视频 | 伊人免费视频二 | 四虎在线最新永久免费播放 | 亚洲国产日韩在线观看 | 日本一区免费在线 | 天堂√中文在线 | 五月开心六月伊人色婷婷 | 色噜噜在线观看 | 中文字幕日韩专区精品系列 | 亚洲日本天堂在线 | 青青操在线视频 | 自怕偷自怕亚洲精品 | 日本免费观看日本高清视频 | 日本视频三区 | 亚洲欧美v| 亚州免费一级毛片 | 最新中文字幕免费视频 | 日本aⅴ在线 | 青草青草伊人精品视频 | 亚洲一区二区三区四区在线 | 亚洲一区二区三区播放在线 | 一级做a爰片欧美aaaa | 一级做a爰片久久毛片图片 一级做a爰片久久毛片人呢 | 午夜精品国产 | 日韩欧美成人乱码一在线 | 日韩精品亚洲人成在线播放 | 日本福利网站 | 午夜久久网 | 天天色天天草 | 日本成年人免费看 | 欧美午夜精品 | 日日a.v拍夜夜添久久免费 | 日韩精品一区二区三区免费视频 | 日韩在线资源 | 日本大学生免费一级一片 | 青草视频app |