如何用Delphi開發(fā)簡單的WebMail程序

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

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

    
    
    qd.html文件內容如下：
    
    
    

    請?zhí)钊虢邮锗]件地址:toaddress:
    
    請?zhí)钊胫黝}
    內容：
        =40 name=”body”>
    
    
    

    
    
    在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。