使用Oracle實現實時通信

 由于Oracle不提供用于實時輸出消息的工具, Oracle數據庫開發者總是要面臨實時監視他們的儲備過程執行的挑戰。他們必須使用dbms_output.put_line調用，這個調用直到過程完成才返回結果。
　　在本文中，我想演示如何從Oracle8i數據庫直接發送電子郵件，作為一種實時通信解決方案。這樣我們要監視存儲過程就不再需要等待它們完成了，這樣的方法還為開發者提供了其他的一些好處：
      . 可以在幾分鐘內調試一些很長的批處理過程，而不需要等幾個小時；
　　　. 計算用于指定代碼塊所需的執行時間；
　　這就需要解決一個問題，我們如何從運行的存儲過程中輸出消息以便我們可以即時檢查它們，即使我們不在辦公場所？我們的做法是把所有必需的過程與函數包裝在自定義的包中，然后使用Oracle8i UTL_SMTP包直接地從Oracle數據庫中發送電子郵件。下面我將詳細講解一些這個過程。
　　Oracle的UTL_SMTP包
　　在Oracle8i中引入了UTL_SMTP包（SMTP代表Simple Mail Transfer Protocol簡單郵件傳送協議，使用TCP端口25在客戶機和服務器之間建立通信聯絡)，使開發者能夠從數據庫發送電子郵件。 
　　只有安裝帶有Java虛擬機(JVM)的8i或更高的版本才能使用UTL_SMTP。 此外還必須把plsql.jar載入數據庫中。否則，當調用UTL_SMTP API來發送電子郵件的時候我們將得到下面的異常：ORA - 29540 : class oracle/plsql/net/TCPConnection does not exist。
　　默認的$ORACLE_HOME/javavm/install/initjvm.sql腳本（安裝了JVM）不運行把plsql.jar載入數據庫的initplsj.sql腳本。系統用戶或者內部用戶可以手工運行$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()：打開到簡單郵件傳送協議服務器的連接。 
　　　HELO()：執行連接之后建立與簡單郵件傳送協議服務器初始的收發關系功能，它能識別發送到服務器的“信使”。 
　　　MAIL()：初始化與服務器的郵件交換，但是事實上不發送消息。 
　　　RCPT()：識別消息的接受者。為了把一條消息發送到多個接受者，你必須多次調用這個過程。 
　　　DATA()：指定電子郵件的內容。 
　　　QUIT()：終止一個SMTP會話并且斷開與服務器的連接。 
　　為了利用應用程序編程接口，把下面的調用按照給定的順序放入程序中： 
　　　調用 OPEN_CONNECTION 
　　　調用 HELO 
　　　調用 MAIL 
　　　調用 RCPT for each recipient 
　　　格式化電子郵件的內容然后調用MAIL 
　　　調用 QUIT 
　　EmailUtils包規范
　　 EmailUtils包包括下列API： 
　　　SetSender/GetSender-設置/取得發送者 
　　　SetRecipient/GetRecipient -設置/取得接受者 
　　　SetCcrecipient/GetCcrecipient -設置/取得抄件接受者 
　　　SetMailHost/GetMailHost -設置/取得郵件主機 
　　　SetSubject/GetSubject -設置/取得主題 
　　　Send-發送郵件 
　　代碼1說明了EmailUtils包的規范：
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;
/
        可以看出，Send過程是重載過程：包規范中包括這個過程的兩個版本。 一個版本當至少三個強制性參數要規定的時候引用，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); 
　    另一個版本只有當提供pMessage參數值時執行： 
            procedure Send(pMessage in varchar2);
　　第二個版本是用作調試的版本。 所有的電子郵件消息共用同樣的發送者、接受者、郵件主機、抄送接受者和主題信息，這些都是我在會話的開始的時候設置好的。 下面是一個PL/SQL程序塊的例子： 
begin
EmailUtils.SetSender(’WayneZ@MyCompany.com’);
EmailUtils.SetRecipient(’waynezheng@vip.sina.com’);
EmailUtils.SetCcRecipient(’WayneZ@MyCompany.com’);
EmailUtils.SetMailHost(’MyServer.MyCompany.com’);
EmailUtils.SetSubject(’DeleteClassifications procedure: Run 1’);
end;
/
 
    一個實際的電子郵件消息將在每個Send過程調用中被指定。 我們可以把所用的EmailUtils.Send()調用插入到我們調試的代碼中，我們以前為了得到同樣的調試結果使用的是DBMS_OUTPUT.PUT_LINE()調用。: 
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過程的EmailUtils規格。 我們可以看到，Send過程的代碼相當簡單。 UTL_SMTP包不提供用于格式化消息內容的應用編程接口。 而是由用戶負責格式化消息。 這就是為什么下列程序塊要被包含到每個Send過程中以便格式化電子郵件的頭部。 
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; 

　　同時,如果消息長度超過2000字符的話，你可能得到一個錯誤( ORA - 06502 : PL/SQL : numeric or value error)。 所以為了避免出現這個錯誤，我們使用下面的程序塊,不允許消息超過2000個字符：
if length(vMessage) > 2000
then
vMessage := substr(vMessage, 1, 2000); 
end if; 

　　如果需要發送帶有超過2000字的電子郵件，那么可以使用另三個UTL_SMTP應用程序編程接口，提供比DATA()過程更加精細的控制。 首先, OPEN_DATA()發送數據命令。 然后WRITE_DATA()添加數據到你要發送的字符串中。 你可以調用WRITE_DATA()任意多次，這樣你就可以一次寫2000個字符以克服字數的限制。 最后, CLOSE_DATA()通過發送一個封裝在CRLF中的終止周期結束電子郵件消息。 
　　實時消息使你的生活更加舒適
　　從數據庫發送電子郵件就是那么容易。 一旦你試用這個簡單的操作，我相信你會發現它很有用，便于你的數據庫操作,例如調試、遠程的數據庫監控和輸出數據庫數據。 
　　每個數據庫開發者都有在代碼中使用大量的DBMS_OUTPUT調用的調試經歷。 在開始一個SQL * Plus會話之后,輸入SET SERVEROUTPUT ON然后運行這個過程。 放進DBMS_OUTPUT.PUT_LINE調用的消息顯示在屏幕上--但是只有在過程完成以后才能顯示出來。 這個過程極端地麻煩，尤其在調試長的批處理時通常是要運行整晚。 你可以等待10到12小時僅僅是為了查出錯誤的代碼，然后修改，再去等待下一個10到12個小時？ 然而，如果你有訪問消息的實時的辦法，那么你可以在頭5到10分鐘內捕捉到問題。 
　　DBMS_OUTPUT包也有其他的缺點。 例如,它不接受可變的布爾類型以及它有255字符每行的限制（如果你想輸出一個長的消息的話，那么你會得到這個異常：ORA - 20000 : ORU - 10028 : line length overflow, limit of 255 bytes per line）。 把它的缺點全部列出這已經超出本文的范圍了，但是重要結論就是DBMS_OUTPUT包不許數據庫開發者實時的看到消息。 
　　談到服務器上的OS文件，你會不會喜歡把選定的數據從服務器中輸出到一個Excel電子表格呢？ 一個辦法就是使用Oracle的UTL_FILE包,它提供了一個標準OS流文檔輸入/輸出的限制級版本。 然而, PL/SQL程序只能訪問在初始化文件INIT.ORA的UTL_FILE_DIR參數規定的目錄。 這個參數大多數情況下是空的。為了使這個目錄可用來進行文件訪問，必須請數據庫管理者修改初始化文件。 這有些麻煩。使用EmailUtils包,你可以簡簡單單的把數據寫入一個電子郵件中，發送給自己，然后收到它的副本粘貼到自己喜歡的文檔編輯器中。

　　

原文轉自：http://www.kjueaiud.com