由于Oracle不提供用于實(shí)時(shí)輸出消息的工具, Oracle數(shù)據(jù)庫(kù)開(kāi)發(fā)者總是要面臨實(shí)時(shí)監(jiān)視他們的儲(chǔ)備過(guò)程執(zhí)行的挑戰(zhàn)。他們必須使用dbms_output.put_line調(diào)用，這個(gè)調(diào)用直到過(guò)程完成才返回結(jié)果。 在本文中，我想演示如何從Oracle8i數(shù)據(jù)庫(kù)直接發(fā)送電子郵件，作為一種實(shí)時(shí)通信解決方案。這樣我們要監(jiān)視存儲(chǔ)過(guò)程就不再需要等待它們完成了，這樣的方法還為開(kāi)發(fā)者提供了其他的一些好處： 可以在幾分鐘內(nèi)調(diào)試一些很長(zhǎng)的批處理過(guò)程，而不需要等幾個(gè)小時(shí)； 計(jì)算用于指定代碼塊所需的執(zhí)行時(shí)間。 這就需要解決一個(gè)問(wèn)題，我們?nèi)绾螐倪\(yùn)行的存儲(chǔ)過(guò)程中輸出消息以便我們可以即時(shí)檢查它們，即使我們不在辦公場(chǎng)所？我們的做法是把所有必需的過(guò)程與函數(shù)包裝在自定義的包中，然后使用Oracle8i UTL_SMTP包直接地從Oracle數(shù)據(jù)庫(kù)中發(fā)送電子郵件。下面我將具體講解一些這個(gè)過(guò)程。 Oracle的UTL_SMTP包 在Oracle8i中引入了UTL_SMTP包（SMTP代表Simple Mail Transfer Protocol簡(jiǎn)單郵件傳送協(xié)議，使用TCP端口25在客戶(hù)機(jī)和服務(wù)器之間建立通信聯(lián)絡(luò))，使開(kāi)發(fā)者能夠從數(shù)據(jù)庫(kù)發(fā)送電子郵件。 只有安裝帶有Java虛擬機(jī)(JVM)的8i或更高的版本才能使用UTL_SMTP。 此外還必須把plsql.jar載入數(shù)據(jù)庫(kù)中。否則，當(dāng)調(diào)用UTL_SMTP API來(lái)發(fā)送電子郵件的時(shí)候我們將得到下面的異常：ORA - 29540 : class oracle/plsql/net/TCPConnection does not exist。 默認(rèn)的$ORACLE_HOME/javavm/install/initjvm.sql腳本（安裝了JVM）不運(yùn)行把plsql.jar載入數(shù)據(jù)庫(kù)的initplsj.sql腳本。系統(tǒng)用戶(hù)或者內(nèi)部用戶(hù)可以手工運(yùn)行$ORACLE_HOME/RDBMS/ADMIN/initplsj.sql腳本以解決這個(gè)問(wèn)題。 假如你沒(méi)有可用的腳本，你要么可以從Oracle支持那里得到它，要么可以簡(jiǎn)單地直接使用loadjava載入實(shí)用程序plsql.jar： loadjava -user sys/passWord@database -resolve plsql/jlib/plsql.jarUTL_SMTP API:本文的代碼中使用了下列UTL_SMTP包中的API： OPEN_CONNECTION()：打開(kāi)到簡(jiǎn)單郵件傳送協(xié)議服務(wù)器的連接。 HELO()：執(zhí)行連接之后建立與簡(jiǎn)單郵件傳送協(xié)議服務(wù)器初始的收發(fā)關(guān)系功能，它能識(shí)別發(fā)送到服務(wù)器的“信使”。 MAIL()：初始化與服務(wù)器的郵件交換，但是事實(shí)上不發(fā)送消息。 RCPT()：識(shí)別消息的接受者。為了把一條消息發(fā)送到多個(gè)接受者，你必須多次調(diào)用這個(gè)過(guò)程。 DATA()：指定電子郵件的內(nèi)容。 QUIT()：終止一個(gè)SMTP會(huì)話并且斷開(kāi)與服務(wù)器的連接。 為了利用應(yīng)用程序編程接口，把下面的調(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-設(shè)置/取得發(fā)送者； SetRecipient/GetRecipient -設(shè)置/取得接受者； SetCcrecipient/GetCcrecipient -設(shè)置/取得抄件接受者； SetMailHost/GetMailHost -設(shè)置/取得郵件主機(jī)； SetSubject/GetSubject -設(shè)置/取得主題； Send-發(fā)送郵件。 代碼1說(shuō)明了EmailUtils包的規(guī)范： create or replace package EmailUtils asprocedure SetSender(pSender in varchar2);function GetSenderreturn varchar2;procedure SetRecipient(pRecipient in varchar2);function GetRecipientreturn varchar2;procedure SetCcRecipient(pCcRecipient in varchar2);function GetCcRecipientreturn varchar2;procedure SetMailHost(pMailHost in varchar2);function GetMailHostreturn varchar2;procedure SetSubject(pSubject in varchar2);function GetSubjectreturn 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;/可以看出，Send過(guò)程是重載過(guò)程：包規(guī)范中包括這個(gè)過(guò)程的兩個(gè)版本。 一個(gè)版本當(dāng)至少三個(gè)強(qiáng)制性參數(shù)要規(guī)定的時(shí)候引用，pSender，pRecipient和pMailHost： procedure Send(pSender in varchar2,pRecipient in varchar2,pMailHost in varchar2, pCcRecipient in varchar2 := null, pSubject in varchar2 := null, pMessage in varchar2 := null);　 另一個(gè)版本只有當(dāng)提供pMessage參數(shù)值時(shí)執(zhí)行： procedure Send(pMessage in varchar2);第二個(gè)版本是用作調(diào)試的版本。 所有的電子郵件消息共用同樣的發(fā)送者、接受者、郵件主機(jī)、抄送接受者和主題信息，這些都是我在會(huì)話的開(kāi)始的時(shí)候設(shè)置好的。 下面是一個(gè)PL/SQL程序塊的例子： beginEmailUtils.SetSender('[email protected]');EmailUtils.SetRecipient('[email protected]');EmailUtils.SetCcRecipient('[email protected]');EmailUtils.SetMailHost('MyServer.MyCompany.com');EmailUtils.SetSubject('DeleteClassifications procedure: Run 1');end;/一個(gè)實(shí)際的電子郵件消息將在每個(gè)Send過(guò)程調(diào)用中被指定。 我們可以把所用的EmailUtils.Send()調(diào)用插入到我們調(diào)試的代碼中，我們以前為了得到同樣的調(diào)試結(jié)果使用的是DBMS_OUTPUT.PUT_LINE()調(diào)用。: vMessage := 'Point 1.' utl_tcp.crlf 'Rows processed: ' to_char(vRows) utl_tcp.crlf 'Elapsed time: ' vTime;EmailUtils.Send(vMessage);vMessage := 'Point 3.' utl_tcp.crlf 'Rows processed: ' to_char(vRows) utl_tcp.crlf 'Elapsed time: ' vTime;EmailUtils.Send(vMessage);代碼2顯示帶有重載Send過(guò)程的EmailUtils規(guī)格。 我們可以看到，Send過(guò)程的代碼相當(dāng)簡(jiǎn)單。UTL_SMTP包不提供用于格式化消息內(nèi)容的應(yīng)用編程接口。 而是由用戶(hù)負(fù)責(zé)格式化消息。 這就是為什么下列程序塊要被包含到每個(gè)Send過(guò)程中以便格式化電子郵件的頭部。 vMessage := 'Date: ' to_char(sysdate, 'fmDy, DD Mon YYYY fxHH24:MI:SS') utl_tcp.crlf 'From: ' pSender utl_tcp.crlf 'Subject: ' pSubject utl_tcp.crlf 'To: ' pRecipient utl_tcp.crlf;同時(shí),假如消息長(zhǎng)度超過(guò)2000字符的話，你可能得到一個(gè)錯(cuò)誤( ORA - 06502 : PL/SQL : numeric or value error)。 所以為了避免出現(xiàn)這個(gè)錯(cuò)誤，我們使用下面的程序塊,不答應(yīng)消息超過(guò)2000個(gè)字符： if length(vMessage) > 2000thenvMessage := substr(vMessage, 1, 2000); end if;假如需要發(fā)送帶有超過(guò)2000字的電子郵件，那么可以使用另三個(gè)UTL_SMTP應(yīng)用程序編程接口，提供比DATA()過(guò)程更加精細(xì)的控制。 首先, OPEN_DATA()發(fā)送數(shù)據(jù)命令。 然后WRITE_DATA()添加數(shù)據(jù)到你要發(fā)送的字符串中。 你可以調(diào)用WRITE_DATA()任意多次，這樣你就可以一次寫(xiě)2000個(gè)字符以克服字?jǐn)?shù)的限制。 最后, CLOSE_DATA()通過(guò)發(fā)送一個(gè)封裝在CRLF中的終止周期結(jié)束電子郵件消息。 實(shí)時(shí)消息使你的生活更加舒適 從數(shù)據(jù)庫(kù)發(fā)送電子郵件就是那么輕易。 一旦你試用這個(gè)簡(jiǎn)單的操作，我相信你會(huì)發(fā)現(xiàn)它很有用，便于你的數(shù)據(jù)庫(kù)操作,例如調(diào)試、遠(yuǎn)程的數(shù)據(jù)庫(kù)監(jiān)控和輸出數(shù)據(jù)庫(kù)數(shù)據(jù)。 每個(gè)數(shù)據(jù)庫(kù)開(kāi)發(fā)者都有在代碼中使用大量的DBMS_OUTPUT調(diào)用的調(diào)試經(jīng)歷。 在開(kāi)始一個(gè)SQL * Plus會(huì)話之后,輸入SET SERVEROUTPUT ON然后運(yùn)行這個(gè)過(guò)程。 放進(jìn)DBMS_OUTPUT.PUT_LINE調(diào)用的消息顯示在屏幕上--但是只有在過(guò)程完成以后才能顯示出來(lái)。 這個(gè)過(guò)程極端地麻煩，尤其在調(diào)試長(zhǎng)的批處理時(shí)通常是要運(yùn)行整晚。 你可以等待10到12小時(shí)僅僅是為了查出錯(cuò)誤的代碼，然后修改，再去等待下一個(gè)10到12個(gè)小時(shí)？ 然而，假如你有訪問(wèn)消息的實(shí)時(shí)的辦法，那么你可以在頭5到10分鐘內(nèi)捕捉到問(wèn)題。 DBMS_OUTPUT包也有其他的缺點(diǎn)。 例如,它不接受可變的布爾類(lèi)型以及它有255字符每行的限制（假如你想輸出一個(gè)長(zhǎng)的消息的話，那么你會(huì)得到這個(gè)異常：ORA - 20000 : ORU - 10028 : line length overflow, limit of 255 bytes per line）。 把它的缺點(diǎn)全部列出這已經(jīng)超出本文的范圍了，但是重要結(jié)論就是DBMS_OUTPUT包不許數(shù)據(jù)庫(kù)開(kāi)發(fā)者實(shí)時(shí)的看到消息。 談到服務(wù)器上的OS文件，你會(huì)不會(huì)喜歡把選定的數(shù)據(jù)從服務(wù)器中輸出到一個(gè)Excel電子表格呢？ 一個(gè)辦法就是使用Oracle的UTL_FILE包,它提供了一個(gè)標(biāo)準(zhǔn)OS流文檔輸入/輸出的限制級(jí)版本。 然而, PL/SQL程序只能訪問(wèn)在初始化文件INIT.ORA的UTL_FILE_DIR參數(shù)規(guī)定的目錄。 這個(gè)參數(shù)大多數(shù)情況下是空的。為了使這個(gè)目錄可用來(lái)進(jìn)行文件訪問(wèn)，必須請(qǐng)數(shù)據(jù)庫(kù)治理者修改初始化文件。 這有些麻煩。使用EmailUtils包,你可以簡(jiǎn)簡(jiǎn)單單的把數(shù)據(jù)寫(xiě)入一個(gè)電子郵件中，發(fā)送給自己，然后收到它的副本粘貼到自己喜歡的文檔編輯器中。