使用Oracle来实现实时通信的过程

核心提示： 可以看出，Send过程是重载过程：包规范中包括这个过程的两个版本，使用Oracle来实现实时通信的过程(3)， 一个版本当至少三个强制性参数要规定的时候引用，pSender， 下面是一个PL/SQL程序块的例子：begin EmailUtils.SetSender('WayneZ@

可以看出，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);