Oracle中将Blob存储的图片批量导出到文件夹

操作系统以Windows为例，Linux可自行对目录进行更改

1、以管理员用户登陆设置可操作目录

--说明：建议以SYS账户直接登录，将权限授予需导出图像文件的用户（如test）

--CREATE DIRECTORY privilege is granted only to SYS and SYSTEM by default.

create or replace directory BLOBDIR as 'D:\PIC';--D:\PIC文件夹必须首先在操作系统中创建

grant read,write on directory BLOBDIR to test;--test为需导出图像文件用户

GRANT EXECUTE ON utl_file TO test;

 

select * from ALL_DIRECTORIES;--查看目录是否已创建成功

 

 

2、普通用户登陆,编写存储过程

--以需导出图像文件用户test账户登录

--以下为导出表picture的前5张图片示例：

--表picture的示例数据：

--=====================

--ID PDATA

--p1 BLOB格式图片

--p2 BLOB格式图片

--p3 BLOB格式图片

--p4 BLOB格式图片

--p5 BLOB格式图片

--.. ..

--=====================

--i_xh为变量

CREATE OR REPLACE PROCEDURE GET_PIC_BLOB(i_xh VARCHAR2) IS

l_file UTL_FILE.FILE_TYPE;

l_buffer RAW(32767);

--注：若图片非常大，需定义为LONG RAW(32760),最大可支持2G字节的数据

l_amount BINARY_INTEGER := 32767;

l_pos INTEGER := 1;

l_blob BLOB;

l_blob_len INTEGER;

 

BEGIN

select pdata into l_blob from picture where id=i_xh;--将PDATA数据写入l_blob变量

l_blob_len := DBMS_LOB.GETLENGTH(l_blob);

l_file := UTL_FILE.FOPEN('BLOBDIR', i_xh || '.jpg', 'WB', l_blob_len);

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);

 

EXCEPTION

 

--WHEN NO_DATA_FOUND THEN

--DBMS_OUTPUT.put_line('no data : ' || i_xh);

WHEN OTHERS THEN

IF UTL_FILE.IS_OPEN(l_file) THEN

UTL_FILE.FCLOSE(l_file);

RAISE;

END IF;

END GET_PIC_BLOB;

 

 

3、编写PL/SQL 块,循环执行该存储过程

declare

cursor cur is

select id from picture where rownum <= 5; --导出前5张

begin

for rec in cur loop

GET_PIC_BLOB(rec.id);

end loop;

end;