许多的应用程序都是基于 TCP/IP 协议的，UTL_TCP 包的功能是提供一个可以与外部的 TCP/IP 服务器通讯，并能够进行基本的收发数据的功能。
31.1 相关方法
- AVAILABLE
当前能够读取的连接字符数(最大不超过 96 字节)。
语法如下：
FUNCTION AVAILABLE(
C IN OUT CONNECTION,
TIMEOUT IN INT DEFAULT 0
)RETURN INT;
参数详解
- c 一个 open_connection 打开的、有效的 connection。
- timeout 如果没有数据，则在制定的 timeout 时间返回。
返回值
当前获取的一个 TCP/iP 连接字节数。
- CLOSE_ALL_CONNECTION
关闭所有的连接。
语法如下：
PROCEDURE CLOSE_ALL_CONNECTION();
- CLOSE_ALL_CONNECTIONS
关闭所有的连接，用法同 CLOSE_ALL_CONNECTION()。
语法如下：
PROCEDURE CLOSE_ALL_CONNECTIONS();
- CLOSE_CONNECTION
关闭指定的连接。
语法如下：
PROCEDURE CLOSE_CONNECTION (
C IN OUT CONNECTION
);
- GET_RAW
读取指定长度（二进制的数据）的数据。
语法如下：
FUNCTION GET_RAW (
C IN OUT CONNECTION,
LEN IN INT DEFAULT 1,
PEEK IN BOOLEAN DEFAULT FALSE
)RETURN VARBINARY;
参数详解
- C 一个 open_connection 打开的、有效的 connection。
- LEN 要收到的数据的长度，默认值 1。
- PEEK 该选项为 true，则指只是查看队列的数据，不会从队列中删除，下次还能够读到；为 false，则会删除队列中的数据。默认为 FALSE。
返回值
读取到的二进制数据。
- OPEN_CONNECTION
打开一个连接到外部服务器的连接。
语法如下：
FUNCTION OPEN_CONNECTION(
REMOTE_HOST IN VARCHAR2,
REMOTE_PORT IN INT,
LOCAL_HOST IN VARCHAR2 DEFAULT NULL,
LOCAL_PORT IN INT DEFAULT NULL,
CHARSET IN VARCHAR2 DEFAULT NULL,
NEWLINE IN VARCHAR2 DEFAULT CRLF,
TX_TIMEOUT IN INT DEFAULT NULL
) RETURN CONNECTION;
参数详解
- remote_host 远程主库的名字，或者 ip 地址。
- remote_port 远程主库的端口。
- local_hos t 本地主库的名字（一般不用设置）。
- local_port 本地主库的端口（一般不用设置）。
- charse t 用于编码转换的在线字符集。
- newline 换行符序列，用于将文本行转换为在线字符集。
- tx_timeout 尝试链接到远程主库的等待时间。
返回值
一个连接到指定外部服务器的链接。
- READ_RAW
以二进制形式读取一行数据。
语法如下：
FUNCTION READ_RAW (
C IN OUT CONNECTION,
DATA OUT VARBINARY,
LEN IN INT DEFAULT 1,
PEEK IN BOOLEAN DEFAULT FALSE
) RETURN INT;
参数详解
- c 一个 open_connection 打开的、有效的 connection。
- data 用于存放读到的数据。
- len 要收到的数据的长度，默认值 1。
- peek 该选项为 true，则指只是查看队列的数据，不会从队列中删除，下次还能够读到；为 false，则会删除队列中的数据。默认为 FALSE。
返回值
收到的数据的字节长度。
- WRITE_RAW
发送一行二进制数据。
语法如下：
FUNCTION WRITE_RAW(
C IN OUT CONNECTION,
DATA IN VARBINARY,
LEN IN INT DEFAULT NULL
) RETURN INT;
参数详解
- c 一个 open_connection 打开的、有效的 connection。
- data 存放要发送的数据。
- len 要发送数据的长度。
返回值
发送的二进制数据的字节长度。只有成功发送才会有返回值。
- WRITE_LINE
将文本行转换为在线字符集，并发送至连接的服务器。函数 OPEN_CONNECTION 中设置的换行符序列 NEWLINE 会在消息传输之前附加到消息中。
语法如下：
FUNCTION WRITE_LINE(
C IN OUT CONNECTION,
DATA IN VARCHAR2 DEFAULT NULL
) RETURN INT;
参数详解
- c 一个 open_connection 打开的、有效的 connection。
- data 存放要发送的数据。
返回值
实际写入的字符数。
- WRITE_TEXT
将文本行转换为在线字符集，并发送至连接的服务器。
语法如下：
FUNCTION WRITE_TEXT(
C IN OUT CONNECTION,
DATA IN VARCHAR2,
LEN INT DEFAULT NULL
) RETURN INT;
参数详解
- c 一个 open_connection 打开的、有效的 connection。
- data 存放要发送的数据。
- len 要发送数据的长度。
返回值
实际写入的字符数。
- GET_LINE
读取一行数据。
语法如下：
FUNCTION GET_LINE(
C IN OUT CONNECTION,
REMOVE_CRLF IN BOOLEAN DEFAULT FALSE,
PEEK IN BOOLEAN DEFAULT FALSE
) RETURN VARCHAR2;
参数详解
- c 一个 open_connection 打开的、有效的 connection。
- REMOVE_CRLF 用于表示是否需要移除接收数据尾部的换行符，默认为 FALSE。
- peek 该选项为 TRUE，则指只是查看队列的数据，不会从队列中删除，下次还能够读到；为 FALSE，则会删除队列中的数据。默认为 FALSE。
返回值
读取到的一行数据。
- READ_TEXT
读取一行数据。
语法如下：
FUNCTION READ_TEXT(
C IN OUT CONNECTION,
DATA IN OUT VARCHAR2,
LEN IN INT DEFAULT 1,
PEEK IN BOOLEAN DEFAULT FALSE
) RETURN INT;
参数详解
- c 一个 open_connection 打开的、有效的 connection。
- DATA 用于存放接收到的字符数据。
- LEN 用于指定希望接收数据的长度，默认为 1。
- peek 该选项为 true，则指只是查看队列的数据，不会从队列中删除，下次还能够读到；为 false，则会删除队列中的数据。默认为 false。
返回值
实际接收到的数据长度。
- FLUSH
立刻将缓冲区中数据发送。
语法如下：
PROCEDURE FLUSH(
C IN OUT CONNECTION
);
参数详解
- c 一个 open_connection 打开的、有效的 connection。
31.2 举例说明
使用包内的过程和函数之前，如果还未创建过系统包，请先调用系统过程创建系统包。
SP_CREATE_SYSTEM_PACKAGES (1,'UTL_TCP');
SET SERVEROUTPUT ON; //PRINT需要设置这条语句，才能打印出消息
例 UTL_TCP 包示例。
declare
host varchar(128);
port int;
ret int;
len int;
data varbinary(512);
show varbinary(128);
c utl_tcp.connection;
begin
host := '192.168.0.212';
port := 25;
c := utl_tcp.open_connection(host,port);
ret := utl_tcp.write_raw(c,rawtohex('wxh\@dameng.shanghai'),50);
print ret;
len := 48;
ret := utl_tcp.available(c,0);
print ret;
show := utl_tcp.get_raw(c,len);
print show; -- ' 220 192.168.0.212 ESMTP '的二进制流
ret := utl_tcp.read_raw(c,data,len);
utl_tcp.close_connection(c);
end;
/
结果如下：
24
25
323230203139322E3136382E302E3231322045534D54500D0A
