快捷搜索:  as  test  1111  test aNd 8=8  test++aNd+8=8  as++aNd+8=8  as aNd 8=8

好的网赌网址:使用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/TCPConnect好的网赌网址ion 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包,你可以简简单单的把数据写入一个电子邮件中,发送给自己,然后收到它的副本粘贴到自己爱好的文档编辑器中。

另一个版本只有当供给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('DeleteClassif好的网赌网址ications 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;

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

免责声明:以上内容源自网络,版权归原作者所有,如有侵犯您的原创版权请告知,我们将尽快删除相关内容。

您可能还会对下面的文章感兴趣: