使用Oracle實現實時通信

2024-08-29 13:29:09

字體：大中小

來源：轉載

供稿：網友

　　由于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/[email protected] -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('[email protected]');
emailutils.setrecipient('[email protected]');
emailutils.setccrecipient('[email protected]');
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包,你可以簡簡單單的把數據寫入一個電子郵件中，發送給自己，然后收到它的副本粘貼到自己喜歡的文檔編輯器中。

最大的網站源碼資源下載站，

上一篇：Install Oracle10g On RedhatEL AS3 up&#100;ate2 Step-by-

下一篇：oracle產品服務和技術級別介紹,OrACLE服務