IDC资讯中心
摘要：本文通过实例介绍了在oracle数据库中通过dbms_lob包使用和维护lob数据类型的基本方法。
关键词：oracle dbms_lob lob 维护
中图分类号：tp31
1、引言
随着社会的发展，在现代信息系统的开发中，需要存储的已不仅仅是简单的文字信息，同时还包括一些图片和音像资料或者是超长的文本。比如开发一套旅游信息系统，每一个景点都有丰富的图片、音像资料和大量的文字介绍。这就要求后台数据库要有存储这些数据的能力。oracle公司在其oracle8i中通过提供lob字段实现了该功能。
为了便于读者的理解，我们先介绍一些基本的概念：
在oracle数据库中，lob（large objects—大对象）是用来存储大量的二进制和文本数据的一种数据类型（一个lob字段可存储可多达4gb的数据）。目前，它又分为两种类型：内部lob和外部lob。内部lob将数据以字节流的形式存储在数据库的内部。因而，内部lob的许多操作都可以参与事务，也可以像处理普通数据一样对其进行备份和恢复操作。oracle8i支持三种类型的内部lob：blob（二进制数据）、clob（单字节字符数据）、nclob（多字节国家字符数据）。其中clob和nclob类型适用于存储超长的文本数据，blob字段适用于存储大量的二进制数据，如图像、视频、音频等。目前，oracle8i只支持一种外部lob类型，即bfile类型。在数据库内，该类型仅存储数据在操作系统中的位置信息，而数据的实体以外部文件的形式存在于操作系统的文件系统中。因而，该类型所表示的数据是只读的，不参与事务。该类型可帮助用户管理大量的由外部程序访问的文件。
为了方便下文的叙述，我们假定使用如下语句在数据库中创建了一张表。
create table view_sites_info
(
site_id number(3),
audio blob default empty_blob(),
document clob default empty_clob(),
video_file bfile default null,
constraint pk_tab_view_sites_info primary key (site_id)
);
2、lob的使用和维护
oracl提供了多种使用和维护lob的方式，如使用pl/sql dbms_lob包、调用oci（oracle call interface）、使用proc * c/c++、使用jdbc等。其中最为方便有效的是使用pl/sql调用dbms_lob包，本文就将介绍该方法。
在oracle中，存储在lob中数据称为lob的值，如使用select 对某一lob字段进行选择，则返回的不是lob的值，而是该lob字段的定位器（可以理解为指向lob值的指针）。如执行如下的sql语句：
delcare
audio_info blob；
bengin
select audio into audio_info from view_sites_info
where site_id=100;
end;
/
存储在audio_info变量中的就是lob定位器，而不是lob的值。而要对某一lob的值进行访问和维护操作，必需通过其定位器来进行。dbms_lob包中提供的所有函数和过程都以lob定位器作为参数。
2.1内部lob
dbms_lob包中主要提供了以下几个过程供用户对内部lob字段进行维护。
append（） 将源lob中的内容加到目的lob中
copy（） 从源lob中复制数据到目的lob
erase（） 删除lob中全部或部分内容
trim（） 将lob值减少到指定的长度
write（） 向lob 中写入数据
compare（） 比较两个同种数据类型的lob的部分或全部值是否相同
getlength（） 获取lob的长度
read（） 从lob中读出数据
下面我们以最为常用的读和写为例详细介绍这些过程的用法。
首先介绍一下写过程。该过程的语法为：
procedure write (
lob_loc in out blob,
amount in binary_integer,
offset in integer,
buffer in raw);
procedure write (
lob_loc in out clob character set any_cs,
amount in binary_integer,
offset in integer,
buffer in varchar2 character set lob_loc%charset);
各参数的含义为：
lob_loc：要写入的lob定位器
amount：写入lob中的字节数
offset：指定开始操作的偏移量
buffer： 指定写操作的缓冲区
下面的代码就是运用该过程向lob字段写入数据的示例。
declare
lobloc clob;
buffer varchar2(2000);
amount number := 20;
offset number := 1;
begin
–初始化要写入的数据
buffer := this is a writing example;
amount := length(buffer);
select document into lobloc — 获取定位器并锁定行
from view_sites_info
where site_id = 100 for update;
dbms_lob.write(lobloc,amount,1,buffer);
commit;
end;
/
需要特别指出的是：
i. 在调用写过程前一定要使用select语句检索到定位器且用 for update 子句锁定行，否则不能更新lob；
ii. 写过程从offset指定的位置开始，向lob中写入长度为amount的数据，原lob中在这个范围内的任何数据都将被覆盖。
iii. 缓冲区的最大容量为32767字节，因此在写入大量数据时需多次调用该过程。
下面再来介绍一下读过程：
该过程的语法为：
procedure read (
lob_loc in blob,
amount in out binary_integer,
offset in integer,
buffer out raw);
procedure read (
lob_loc in clob character set any_cs,
amount in out binary_integer,
offset in integer,
buffer out varchar2 character set lob_loc%charset);
各参数的含义为：
lob_loc：要读取的lob定位器
amount：要读取的字节数
offset：开始读取操作的偏移量
buffer： 存储读操作结果的缓冲区
下面的代码演示了如何使用该过程读取lob字段中的数据：
declare
lobloc clob;
buffer varchar2(2000);
amount number := 2;
offset number := 6;
begin
select document into lobloc –获取定位器
from lob_store
where lob_id = 100;
dbms_lob.read(lobloc,amount,offset,buffer);–读取数据到缓冲区
dbms_output.put_line(buffer);–显示缓冲区中的数据
commit;
end;
/
代码执行完毕后，将输出如下信息：
is
