建站學院(LieHuo.Net)文檔 由于Oracle不提供用于實時輸出消息的工具, Oracle數(shù)據(jù)庫開發(fā)者總是要面臨實時監(jiān)視他們的儲備過程執(zhí)行的挑戰(zhàn)。他們必須使用dbms_output.put_line調(diào)用,這個調(diào)用直到過程完成才返回結(jié)果。
在本文中,我想演示如何從Oracle8i數(shù)據(jù)庫直接發(fā)送電子郵件,作為一種實時通信解決方案。這樣我們要監(jiān)視存儲過程就不再需要等待它們完成了,這樣的方法還為開發(fā)者提供了其他的一些好處:
可以在幾分鐘內(nèi)調(diào)試一些很長的批處理過程,而不需要等幾個小時;計算用于指定代碼塊所需的執(zhí)行時間;
這就需要解決一個問題,我們?nèi)绾螐倪\行的存儲過程中輸出消息以便我們可以即時檢查它們,即使我們不在辦公場所?我們的做法是把所有必需的過程與函數(shù)包裝在自定義的包中,然后使用Oracle8i UTL_SMTP包直接地從Oracle數(shù)據(jù)庫中發(fā)送電子郵件。下面我將詳細講解一些這個過程。
Oracle的UTL_SMTP包
在Oracle8i中引入了UTL_SMTP包(SMTP代表Simple Mail Transfer Protocol簡單郵件傳送協(xié)議,使用TCP端口25在客戶機和服務器之間建立通信聯(lián)絡),使開發(fā)者能夠從數(shù)據(jù)庫發(fā)送電子郵件。
只有安裝帶有Java虛擬機(JVM)的8i或更高的版本才能使用UTL_SMTP。 此外還必須把plsql.jar載入數(shù)據(jù)庫中。否則,當調(diào)用UTL_SMTP API來發(fā)送電子郵件的時候我們將得到下面的異常:ORA - 29540 : class oracle/plsql/net/TCPConnection does not exist。
默認的$ORACLE_HOME/javavm/install/initjvm.sql腳本(安裝了JVM)不運行把plsql.jar載入數(shù)據(jù)庫的initplsj.sql腳本。系統(tǒng)用戶或者內(nèi)部用戶可以手工運行$ORACLE_HOME/RDBMS/ADMIN/initplsj.sql腳本以解決這個問題。 如果你沒有可用的腳本,你要么可以從Oracle支持那里得到它,要么可以簡單地直接使用loadjava載入實用程序plsql.jar:
loadjava -user sys/password@database -resolve plsql/jlib/plsql.jar
UTL_SMTP API:
本文的代碼中使用了下列UTL_SMTP包中的API:
OPEN_CONNECTION():打開到簡單郵件傳送協(xié)議服務器的連接。
HELO():執(zhí)行連接之后建立與簡單郵件傳送協(xié)議服務器初始的收發(fā)關系功能,它能識別發(fā)送到服務器的“信使”。
MAIL():初始化與服務器的郵件交換,但是事實上不發(fā)送消息。
RCPT():識別消息的接受者。為了把一條消息發(fā)送到多個接受者,你必須多次調(diào)用這個過程。
DATA():指定電子郵件的內(nèi)容。
QUIT():終止一個SMTP會話并且斷開與服務器的連接。
為了利用應用程序編程接口,把下面的調(diào)用按照給定的順序放入程序中:
調(diào)用 OPEN_CONNECTION
調(diào)用 HELO
調(diào)用 MAIL
調(diào)用 RCPT for each recipient
格式化電子郵件的內(nèi)容然后調(diào)用MAIL
調(diào)用 QUIT
EmailUtils包規(guī)范
EmailUtils包包括下列API:
SetSender/GetSender-設置/取得發(fā)送者
SetRecipient/GetRecipient -設置/取得接受者
SetCcrecipient/GetCcrecipient -設置/取得抄件接受者
SetMailHost/GetMailHost -設置/取得郵件主機
SetSubject/GetSubject -設置/取得主題
Send-發(fā)送郵件
代碼1說明了EmailUtils包的規(guī)范:
以下為引用的內(nèi)容: create or replace package EmailUtils as procedure SetSender(pSender in varchar2); function GetSender return varchar2; procedure SetRecipient(pRecipient in varchar2); function GetRecipient return varchar2; procedure SetCcRecipient(pCcRecipient in varchar2); function GetCcRecipient return varchar2; procedure SetMailHost(pMailHost in varchar2); function GetMailHost return varchar2; procedure SetSubject(pSubject in varchar2); function GetSubject return varchar2; procedure Send(pMessage in varchar2); procedure Send(pSender in varchar2, pRecipient in varchar2, pMailHost in varchar2, pCcRecipient in varchar2 := null, pSubject in varchar2 := null, pMessage in varchar2 := null); end EmailUtils; / |