--创建一张测试表
create table test2
(
tid int primary key,
tname varchar2(20),
tcontent blob --数据类型为blob
)
--创建普通序列号
create sequence sequ_test2
--写入图片
declare
tempimg blob;--定义临时变量存放数据
tempdir bfile := bfilename('TEST_DIR','Koala.jpg');--非常重要：所有数据都是大写存放的
begin
insert into test2 values (sequ_test2.nextval,'Koala.jpg',empty_blob())
returning tcontent into tempimg;
--使用内置的包，给tempimg写入数据
dbms_lob.fileopen(tempdir);--打开指定文件
dbms_lob.loadfromfile(tempimg,tempdir,dbms_lob.getlength(tempdir));
dbms_lob.fileclose(tempdir);--关闭文件
dbms_output.put_line('恭喜你，终于成功了！！！');
commit;
end ;
--写入音乐
declare
tempimg blob;--定义临时变量存放数据
tempdir bfile := bfilename('TEST_DIR','Kalimba.mp3');--非常重要：所有数据都是大写存放的
begin
insert into test2 values (sequ_test2.nextval,'Kalimba.mp3',empty_blob()) returning tcontent into tempimg;
--使用内置的包，给tempimg写入数据
dbms_lob.fileopen(tempdir);--打开指定文件
dbms_lob.loadfromfile(tempimg,tempdir,dbms_lob.getlength(tempdir));
dbms_lob.fileclose(tempdir);--关闭文件
dbms_output.put_line('恭喜你，终于成功了！！！');
commit;
end ;
--将Blob对象，写成磁盘文件
declare
l_file utl_file.file_type;--定义写入磁盘文件的类型和格式
l_buffer raw(32767);--定义缓冲区大小
l_amount binary_integer := 3276; --每次位移个数
l_pos int :=1;--开始位置
l_blob blob;--临时数据存放
l_blob_len int;--总长度 begin
select tcontent into l_blob from test2 where tid=2;
--将数据库中的数据，存放在blob变量中
--获取blob文件的长度
l_blob_len := dbms_lob.getlength(l_blob);
--准备写入磁盘文件
l_file := utl_file.fopen('TEST_DIR','xxx.mp3','wb');
--写入数据
while l_pos<l_blob_len loop
dbms_lob.read(l_blob,l_amount,l_pos,l_buffer);
utl_file.put_raw(l_file,l_buffer,true);
l_pos := l_pos + l_amount;
end loop;
utl_file.fclose(l_file);
dbms_output.put_line('恭喜，恭喜。。。。文件写成功！');
end;