1. 创建目录,后面导出文件会导到这里,如果是linux,就是linux的磁盘地址
create or replace directory MY_DIR as '/home/blob';
2. 导出blob为文件 (需要修改的地方已经标注出来了)
declare l_file UTL_FILE.FILE_TYPE; l_buffer RAW(32767); l_amount BINARY_INTEGER := 32767; l_pos INTEGER := 1; l_blob_len INTEGER; cursor cur is /*查询需要导出的文件*/ select rownum id,CONTENT_ as t_blob,'文件名' as t_name from BASE_UPLOADFILEBLOB WHERE PATH_ like '%jasper' ; /*修改: CONTENT_是大字段,t_name是文件名称,建议使用英文,或者数据库里面查出的数据*/ /*修改: from后面是表,where后面是条件根据自己需要配置,符合条件的都会被导出来*/ rec number(5) := 1; BEGIN DBMS_OUTPUT.ENABLE(1000000000); for rec in cur loop DBMS_OUTPUT.put_line('rec: ' || rec.id); l_blob_len := DBMS_LOB.GETLENGTH(rec.t_blob); --修改: '.jasper'是文件后缀名,如果是图片,修改成'.jpg' l_file := UTL_FILE.FOPEN('MY_DIR', rec.id||'_'||rec.t_name || '.jasper', 'WB', 32767); --说明:重新初始化位置 l_pos:= 1; WHILE l_pos < l_blob_len LOOP --说明:重新初始化大小 l_amount := 32767; DBMS_LOB.READ(rec.t_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); end loop; END; --where PATH_='/_MDMFILE/jasper/wlReport.jasper'