如何通过utl_tcp实现聊天的功能

Question

如何通过utl_tcp实现聊天的功能
CREATE OR REPLACE PROCEDURE tcp_test IS  conn   utl_tcp.connection;
  swrite varchar2(1000);
  i_cnt  integer;BEGIN  conn := utl_tcp.open_connection('192.168.1.212',
                                  1000); --建立连接     swrite := utl_tcp.write_text(conn,
                               'hello world’); --套接字写入     utl_tcp.close_connection(conn); --关闭连接   END;以上是一个存储过程，我拿它作为 tcp通讯的客户端测试成功了，但是如何利用utl_tcp或其他方法实现tcp通讯的服务端呢，服务端有个难点，就是它要一直开着不关闭。
我现在做设备通讯程序，如何让数据库能够和设备自由通讯，真的非常方便；
但是，现在通过写存储过程的方法 utl_tcp.open_connection只是个生命周期很短的临时变量；
我需要无论是客户端模式还是服务端模式，都要通讯不断；好像oracle实现不了啊，如果oracle只能实现瞬间连接tcp,而且仅仅是客户端模式，那么它的功能太弱了。希望就oracle的tcp问题，大家能做个深入的探讨！
http://www.itpub.net/viewthread.php?tid=953916&highlight=%2Bqingyun

Answer 1

　　关注　　我连客户端模式都实现不了，发现只能连接web端口。可能是自己写的服务端有问题，楼主有无测试的服务端代码？参考一下。