如何用Delphi開(kāi)發(fā)簡(jiǎn)單的WebMail程序

WebMail是指在網(wǎng)頁(yè)中實(shí)現(xiàn)郵件的發(fā)送。使用Delphi開(kāi)發(fā)Web Server程序是非常簡(jiǎn)單的，Delphi中提供了大量的元件和對(duì)象。下面通過(guò)一個(gè)例子來(lái)介紹如何利用Delphi開(kāi)發(fā)一個(gè)響應(yīng)用戶輸入的ISAPI的WebMail程序。為了簡(jiǎn)單，程序沒(méi)有對(duì)傳送的數(shù)據(jù)提供保密。
    首先，在Web服務(wù)器端安裝數(shù)據(jù)庫(kù)引擎dbe,并設(shè)置好數(shù)據(jù)庫(kù)別名：yh,指向一個(gè)包含用戶名和用戶密碼的數(shù)據(jù)庫(kù)文件user.db。接著建立兩個(gè)HTML文件，名字分別為：dl.html,qd.html，放在Web服務(wù)器的缺省目錄下(如：c：＼inetpub＼wwwroot)。
    dl.html的內(nèi)容如下：
    
    
    
    發(fā)送郵件系統(tǒng)
    請(qǐng)輸入您的用戶名及密碼
    

    用戶名
    密碼：< input type="password" length=10 name="password" >
    
    
    

    
    
    qd.html文件內(nèi)容如下：
    
    
    

    請(qǐng)?zhí)钊虢邮锗]件地址:toaddress:
    
    請(qǐng)?zhí)钊胫黝}
    內(nèi)容：
        =40 name=”body”>
    
    
    

    
    
    在Delphi中新建一個(gè)基于ISAPI的Web Server Application，手動(dòng)增加nmsmtp1,query1,pageproducer1。其中：pageproducer1的htmlfile屬性為c:＼inetpub＼www.root＼qd.html。nmsmtp1的host(發(fā)送郵件服務(wù)器的地址)在這里為smtp.netease.com.，port:25。全局變量為：sername:string;flag:boolean。