在Oracle中对Blob类型的写操作的例子

SET  SERVEROUTPUT  ON
DECLARE  
 vs_str  VARCHAR2 ( 100 );
 vb_blob BLOB;
    buff  RAW ( 32000 );
    buffer_size  INTEGER : = 0 ;
    
     -- 追加
    vr_temp_raw  RAW ( 1024 );
 vn_temp_raw_length  INTEGER ;
 vs_from_str  IN   VARCHAR2 ;
 vn_temp  NUMBER ( 10 );
 vn_from_number  IN   NUMBER ;
BEGIN  
  -- 必须先插入一个空的blob
  INSERT   INTO  test_blob_t(f_name,f_blob)   VALUES ( ' zhang ' ,empty_blob());

  SELECT  f_blob  INTO  vb_blob  FROM  test_blob_t  WHERE  f_name  =   ' zhang '   FOR   UPDATE ;
 
  -- 1、写字符串进blob，从第一个位置开始
  -- 将字符串写入raw中
 buff : =  UTL_RAW.CAST_TO_RAW(vs_str);
 buffer_size : =  UTL_RAW.length(buff);
 DBMS_OUTPUT.put_line(buffer_size);
  -- 将raw中的数据从偏移量1开始，buffer_size个字节的数据写到blob中
 DBMS_LOB.write(vb_blob,buffer_size, 1 ,buff);
 
  -- 2、追加字符串到blob中
  -- 将字符串写入raw中
 vr_temp_raw : =  UTL_RAW.CAST_TO_RAW(vs_from_str);
  vn_temp_raw_length : =  UTL_RAW.length(vr_temp_raw);
   -- 将raw中的内容追加到blob中，默认从上次blob的结束位置，写入vn_temp_raw_length个字节
  DBMS_LOB.writeappend(ib_to_blob,vn_temp_raw_length,vr_temp_raw);
  
   -- 3、追加数值到blob中
   -- 转换成十六进制
  vn_temp : =  LPAD( RTRIM ( LTRIM (TO_CHAR(vn_from_number, ' xxxxxxxx ' ))), 8 , ' 0 ' );
  -- 将十六进制的数据写入raw中
  vr_temp_raw : =  HEXTORAW(vn_temp);
  vn_temp_raw_length : =  UTL_RAW.length(vr_temp_raw);
  -- 将raw中的内容追加到blob中，默认从上次blob的结束位置，写入vn_temp_raw_length个字节
  DBMS_LOB.writeappend(ib_to_blob,vn_temp_raw_length,vr_temp_raw);
  
END ;
/