dbms_pipe（管道用法）

1、再一个session中建立管道

 

set  serveroutput  on ;
declare
v_statpipe1  integer ;
v_statpipe2  integer ;
v_pubchar  varchar2 ( 100 ): = ' This is a text string ' ;
v_pubdate date : =  sysdate;
v_pubnum  number  : = 109 ;

begin
v_statpipe1 : =  dbms_pipe.create_pipe( ' myprivatepipe ' );

if  v_statpipe1 = 0   then
dbms_pipe.pack_message( ' privateline1 ' );
dbms_pipe.pack_message( ' privateline2 ' );
v_statpipe1 : = dbms_pipe.send_message( ' myprivatepipe ' );
end   if ;

dbms_pipe.pack_message(v_pubchar);
dbms_pipe.pack_message(v_pubdate);
dbms_pipe.pack_message(v_pubnum);
-- pub pipe
v_statpipe2 : =  dbms_pipe.send_message( ' mypublicpipe ' );
dbms_output.put_line( ' the status of your private pipe is  ' || v_statpipe1);
dbms_output.put_line( ' the status of your public pipe is  ' || v_statpipe2);
end ;
/

 2、再另外一个session中收取管道中的消息

 

set  serveroutput  on ;
declare
v_statpipe1  integer ;
v_statpipe2  integer ;
v_holdtype  integer ;
v_holdchar  varchar2 ( 100 );
v_holddate date;
v_holdnum  number ;
begin
v_statpipe1 : =  dbms_pipe.receive_message( ' myprivatepipe ' , 15 );
dbms_pipe.unpack_message(v_holdchar);
dbms_output.put_line(v_holdchar);
dbms_pipe.unpack_message(v_holdchar);
dbms_output.put_line(v_holdchar);

-- public pipe
v_statpipe2 : =  dbms_pipe.receive_message( ' mypublicpipe ' , 10 );
loop
v_holdtype : =  dbms_pipe.next_item_type;
if  v_holdtype = 0   then   exit ;
elsif v_holdtype = 6   then  dbms_pipe.unpack_message(v_holdnum);
elsif v_holdtype = 9   then  dbms_pipe.unpack_message(v_holdchar);
elsif v_holdtype = 12   then  dbms_pipe.unpack_message(v_holddate);
end   if ;
end  loop;

dbms_output.put_line(v_holddate || '    ' || v_holdnum || '    ' || v_holdchar);
end ;
/

pipe相关的另外一个函数就是 remove_pipe（）；

status:=dbms_pipe.remove_pipe('myprivatepipe');
status:=dbms_pipe.remove_pipe('mypublicpipe');