oracle系统包——DBMS_PIPE用法
时间:2016-05-16 17:46 来源:linux.it.net.cn 作者:IT
DBMS_PIPE包用于在同一例程(实例)的不同会话之间进行通信；注意，如果用户要执行包dbms_pipe中的过程和函数,则必须要为用户授权。
sql>conn sys/oracle as sysdba;
sql>grant execute on dbms_pipe to scott;
一、管道：
1)、公有管道：所有数据库用户可访问。
2)、私有管道：只能建立管道的数据库用户可访问。
二、DBMS_PIPE包的过程和函数解析
CREATE_PIPE：用于建立公用管道或私有管道。如果将参数private设置为TRUE，则建立私有管道；如果设置为FALSE，则建立公用管道。
eg：
declare
falg int;
begin
flag:=dbms_pipe.create_pipe('public_pipe',8192,false);
if flag=0 then
dbms_output.put_line('建立公用管道成功');
end if;
end;
/
PACK_MESSAGE：用于将消息写入到本地消息缓冲区
SEND_MESSAGE：用于将本地消息缓冲区中的内容发送到管道
RECEIVE_MESSAGE：用于接收管道消息
NEXT_ITEM_TYPE：用于确定本地消息缓冲区下一项的数据类型。
如果该函数返回0,则表示管道没有任何消息;
如果返回6,则表示下一项的数据类型为number;
如果返回9,则表示下一项的数据类型为varchar2;
如果返回11,则表示下一项的数据类型为rowid;
如果返回12,则表示下一项的数据类型为date;
如果返回23,则表示下一项的数据类型为raw.
UNPACK_MESSAGE：用于将消息缓冲区的内容写入到变量中.
REMOVE_PIPE：用于删除已经建立的管道
PUGER：用于清除管道中的内容
RESET_BUFFER：用于复位管道缓冲区
UNIQUE_SESSION_NAME：用于为特定会话返回惟一的名称,并且名称的最长度为30字节.
案例：
1、创建一个发消息的过程：
CREATE OR REPLACE PROCEDURE SEND_MESSAGE(PIPENAME VARCHAR2,
MESSAGE VARCHAR2) IS
FLAG NUMBER;
BEGIN
FLAG := DBMS_PIPE.CREATE_PIPE(PIPENAME);
IF FLAG = 0 THEN
DBMS_PIPE.PACK_MESSAGE(MESSAGE);
FLAG := DBMS_PIPE.SEND_MESSAGE(PIPENAME);
END IF;
END;
/
2、创建一个接收消息的包
CREATE OR REPLACE PROCEDURE RECEIVE_MESSAGE(PIPENAME VARCHAR2,
MESSAGE OUT VARCHAR2) IS
FLAG NUMBER;
BEGIN
FLAG := DBMS_PIPE.RECEIVE_MESSAGE(PIPENAME);
IF FLAG = 0 THEN
DBMS_PIPE.UNPACK_MESSAGE(MESSAGE);
FLAG := DBMS_PIPE.REMOVE_PIPE(PIPENAME);
END IF;
END;
/
3、运行包
--在一个会话中执行：
exec send_message('pipe','I send message');
--在另一会话中执行：
var message varchar2(200);
exec receive_message('pipe',:message);
print message;
执行结果如下：
PL/SQL procedure successfully completed
message
———
I send message
(责任编辑：IT)
DBMS_PIPE包用于在同一例程(实例)的不同会话之间进行通信；注意，如果用户要执行包dbms_pipe中的过程和函数,则必须要为用户授权。 sql>conn sys/oracle as sysdba; sql>grant execute on dbms_pipe to scott;
一、管道：
二、DBMS_PIPE包的过程和函数解析 declare falg int; begin flag:=dbms_pipe.create_pipe('public_pipe',8192,false); if flag=0 then dbms_output.put_line('建立公用管道成功'); end if; end; /
PACK_MESSAGE：用于将消息写入到本地消息缓冲区
案例： CREATE OR REPLACE PROCEDURE SEND_MESSAGE(PIPENAME VARCHAR2, MESSAGE VARCHAR2) IS FLAG NUMBER; BEGIN FLAG := DBMS_PIPE.CREATE_PIPE(PIPENAME); IF FLAG = 0 THEN DBMS_PIPE.PACK_MESSAGE(MESSAGE); FLAG := DBMS_PIPE.SEND_MESSAGE(PIPENAME); END IF; END; / 2、创建一个接收消息的包 CREATE OR REPLACE PROCEDURE RECEIVE_MESSAGE(PIPENAME VARCHAR2, MESSAGE OUT VARCHAR2) IS FLAG NUMBER; BEGIN FLAG := DBMS_PIPE.RECEIVE_MESSAGE(PIPENAME); IF FLAG = 0 THEN DBMS_PIPE.UNPACK_MESSAGE(MESSAGE); FLAG := DBMS_PIPE.REMOVE_PIPE(PIPENAME); END IF; END; / 3、运行包 --在一个会话中执行： exec send_message('pipe','I send message'); --在另一会话中执行： var message varchar2(200); exec receive_message('pipe',:message); print message;
执行结果如下： (责任编辑：IT) |