oracle 存储过程导出图片,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;

  • 1
    点赞
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值