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包,你可以简简单单的把数据写入一个电子邮件中，发送给自己，然后收到它的副本粘贴到自己喜欢的文档编辑器中。

PL/SQL是基于Oracle的一个主流应用程序编程语言，它的特点是将SQL语句与过程化程序开发语言相结合，以实现更为复杂的商业逻辑。本文主要就其中多进程通信进行讨论。

　 　显然，多进程技术是用来提高应用的并发性，进而提高整个系统的执行效率，那么如何在PL/SQL中实现多进程的通信呢？其实，PL/SQL其设计的初衷 主要是增强SQL语句的功能，而没有考虑到其他编程语言的高级功能，所以在PL/SQL中实现多进程通信只能借助于Oracle提供的两个开发 包：DBMS_PIPE和DBMS_ALERT。

　　1． DBMS_PIPE

　　该包提供多进程之间管道通信的方法，比如连接到同一个数据库的两个独立会话之间可以通过管道进行通信，另外也可以在存储过程和Pro*C之间进行通信，这样就大大地增强了PL/SQL的处理能力。该包主要提供两对函数：

　　pack_message(v_msg varchar2)-----将v_msg信息打包放入到缓冲器中，准备发送；

　　send_message(v_pipename varchar2)-----发送名为v_pipename的管道的缓冲器；

　　unpack_message(v_msg varchar2)-----将信息解析到v_msg中；

　　receive_message(v_pipename varchar2)----接受名为v_pipename的管道的缓冲器；

　　其执行的原理是：首先建立有名管道（这点熟悉unix很清楚），管道的发送端和接受端都有相应的缓冲器进行接受和发送处理，要注意的是，文本信息必须打包来发送，通过解析来读取信息。

　　为了理解前面的描述，下面列举一个两个会话之间通信的实例：

　　发送进程：

　　declare
v_pipename varchar2(30):='pipe1';
v_status integer;
begin
dbms_pipe.pack_message(' hello,this is sending process!');
v_status:=dbms_pipe.send_message(v_pipename);
if v_status !=0 then
dbms_output.put_line('error!');
end if;
end;
/

　　接受进程：

　　declare
v_pipename varchar2(30):='pipe1';
v_status integer;
v_msg varchar2(20);
begin
v_status:=dbms_pipe.receive_message(v_pipename);
if v_status !=0 then
dbms_output.put_line('error');
end if;
dbms_pipe.unpack_message(v_msg);
dbms_output.put_line(v_msg);
end;
/

　　2． DBMS_ALERT

　 　与DBMS_PIPE类似，DBMS_ALERT可以实现多个进程（会话）之间的通信。其基本的执行过程为：首先建立一个报警通道，然后通过报警通道来 发送报警信号；在接收端需要先注册该报警通道，对该通道进行监听，然后等待报警信号的到来。下面是该包中的主要函数说明：

　　dbms_alert.signal(报警管道名,待发送消息)---发送报警信息；

　　dbms_alert.register（报警管道名）------注册报警管道；

　　dbms_alert.waitone（报警管道名,接受消息值，返回状态值）-------对报警管道进行监听，等待消息的到来；

　　同样，这里也给出使用DBMS_ALERT的一个实例：

　　发送进程：

　　declare
v_alertName varchar2(30):='alert1';
begin
dbms_alert.signal(v_alertName,' hello,this is sending process!');
commit;
end;
/

　　接受进程：

　　declare
v_alertName varchar2(30):='alert1';
v_status integer;
v_msg varchar2(20);
begin
dbms_alert.register(v_alertName);
dbms_alert.waitone(v_alertName,v_msg,v_status);
if v_status !=0 then
dbms_output.put_line('error');
end if;
dbms_output.put_line(v_msg);
end;
/

　　3． 若干说明

　　DBMS_PIPE和DBMS_ALERT这两个包都可以进行多进程间的通信，但两者任然是有一些区别：

　　1) 报警信号是同步的。报警信号直到会话发出Commit时才被发出；如果它所处的事务回滚，则该信号就不发送了。但是管道信号是异步的，而且其通信过程不受事务提交和回滚的影响。

　　2)　沿着管道进行传递的消息只能被一个进程进行处理，其消息的接收方式是拷贝后删除，但是报警信号可以被多个进程所获得，即消息的接收方式仅仅是拷贝。

　　3) 管道消息不仅可以传递文本信息，还可以传递其他信息，比如对象等，这一好处得益于其对消息的打包预处理；而报警消息只能是文本，不能是其他类型。

　　4． 小结

　　近年来，虽然多进程应用有逐渐被多线程应用取代的趋势，但是多进程仍然有其适用的空间，希望读者通过本文初浅的介绍，对基于PL/SQL的多进程通信这一技术有一个初步的认识，这样为以后深入的开发打下一定的基础。

[@more@]

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/18921899/viewspace-1017480/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/18921899/viewspace-1017480/