使用Oracle实现实时通信

2020-03-09 22:52:39

字体：大中小

来源：转载

供稿：网友

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

最大的网站源码资源下载站，

上一篇：oracle产品服务和技术级别介绍,OrACLE服务

下一篇：Install Oracle10g On RedhatEL AS3 update2 Step-by-