Oracle的Lob大对象操作

--创建有大对象字段的一张表
create table test001
(
      fname varchar2(50),
      content blob
)

select * from dba_users;

select * from test001

--(一)..准备插入大对象
--1. 创建文件存放目录（让Oracle管理，该目录）
create or replace directory test_dir
       as
'e:\Pictures';

--2.可以将该目录授权给其他用户访问
grant read,write on directory test_dir to scott;

--(二).准备将大对象，存放在test001表中
declare
      tempimg blob;--定义临时变量存放数据
      tempdir bfile := bfilename('TEST_DIR','Azul.jpg');--非常重要：所有数据都是大写存放的
begin      
      insert into test001 values ('first.jpg',empty_blob()) returning content 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 ;

select * from test001

select * from dba_directories


--将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 content into l_blob from test001; --将数据库中的数据，存放在blob变量中
       
       --获取blob文件的长度
       l_blob_len := dbms_lob.getlength(l_blob);
       
       --准备写入磁盘文件
       l_file := utl_file.fopen('TEST_DIR','HHAHAHAHAHAHAHAHAAHA.JPG','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;


/*
文本大对象的写入和读取（clob）。
*/
--写入文本文件第一种方式
declare
      tempimg clob;--定义临时变量存放数据
      tempdir bfile := bfilename('TEST_DIR','DIV3.html');--非常重要：所有数据都是大写存放的
      amount int:=dbms_lob.getlength(tempdir);
      src_offset int:=1;
      dest_offset int:=1;
      csid int:=0;
      lc int:=0;
      warning int;
begin      
      insert into test002 values ('第四个文本文件',empty_clob()) returning content into tempimg;
      
      --使用内置的包，给tempimg写入数据
      dbms_lob.fileopen(tempdir);--打开指定文件
      
      dbms_lob.loadclobfromfile(tempimg,tempdir,amount,dest_offset,src_offset,csid,lc,warning);
      
      dbms_lob.fileclose(tempdir);--关闭文件
      
      dbms_output.put_line('恭喜你，终于成功了！！！');
      
      commit;
end ;

--写入文本文件第二种方式（通过异常判断文件结束的）
declare
    filecontent clob;
    input_file utl_file.file_type;
    buffer varchar2(2000);
    l_pos int := 1;
    amount int;
begin
    insert into test002 values ('第二个文本数据',empty_clob()) returning content into filecontent;
    --打开磁盘文件
    input_file := utl_file.fopen('TEST_DIR','DIV3.html','r');
    
    loop                  
         utl_file.get_line(input_file,buffer);
         
         --获取每次读取的长度
         amount:=length(buffer);--每次写入的字符长度
         
         exit when amount<=0;
         
         dbms_lob.write(filecontent,amount,l_pos,buffer);
         
         l_pos:=l_pos+amount;
         
    end loop;
    
    utl_file.fclose(input_file);
    
    dbms_output.put_line('文件写入完毕！');

exception 
    when no_data_found then
    dbms_output.put_line('数据已经读取完毕了！');
    utl_file.fclose(input_file);
end;


select * from test002




--读取表中的数据，到文件
declare
    src clob;
    outfile utl_file.file_type;
    length integer;
    buffer varchar2(8000);
begin
    select content into src from test002 where fname='第四个文本文件';
    
    length := dbms_lob.getlength(src);
    
    dbms_lob.read(src,length,1,buffer);
    
    --打开磁盘文件
    outfile := utl_file.fopen('TEST_DIR','hahahahhahahahah.html','w',8000);
    
    utl_file.put(outfile,buffer);--写入数据
    
    utl_file.fclose(outfile); --关闭指针
    
    dbms_output.put_line('文件已经写入完毕！');
end;