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

明輝手游網(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上調試通過。
主站蜘蛛池模板： 亚洲第一区精品日韩在线播放 | 亚洲成a人片在线不卡 | 无码免费一区二区三区免费播放 | 中文字幕在线不卡 | 中文字幕女教师julia视频 | 色拍拍综合网 | 欧美特黄一级大黄录像 | 亚洲欧美激情综合第一区 | 日产日韩亚洲欧美综合搜索 | 日韩一区二区中文字幕 | 午夜亚洲国产精品福利 | 中文字幕第9页 | 永久免费mv网站入口 | 天天综合视频 | 青青热久免费精品视频网站 | 怡春院日本一区二区久久 | 伊人男人天堂 | 色婷婷亚洲十月十月色天 | 日本在线观看免费高清 | 青娱乐国产在线视频 | 五月婷中文字幕 | 欧美在线观看第一页 | 五月婷婷六月合 | 青青娱乐 | 日韩一级片在线播放 | 婷婷夜夜躁天天躁人人躁 | 日韩特黄特色大片免费视频 | 天干天干天啪啪夜爽爽色 | 亚洲福利秒拍一区二区 | 在线另类| 亚洲欧美a| 亚洲国产精品成人综合色在线婷婷 | 青青青爽视频在线观看 | 色哟哟色院91精品网站 | 五月婷婷色丁香 | 亚洲日本欧美在线 | 日本一区二区不卡视频 | 三级理论手机在线观看视频 | 五月婷婷 六月丁香 | 无颜之月第05集免费观看 - 83屋 | 亚洲视频在线免费播放 |