在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;
/