Oracle BLOB类型 用SQL出力txt或jpg文件

1.在Oracle服务器上创建出力文件的路径和设置对应权限

--服务器上cmd运行
sqlplus sys/test@ORA12 as sysdba

--设置目录位置
create or replace directory BLOBDIR as 'E:\BLOBDIR';

--目录设置可以使用的用户
Grant read,write on directory BLOBDIR to sys;
Grant read,write on directory BLOBDIR to TEST;

--设置出力文件的权限给对应用户
GRANT EXECUTE ON utl_file TO TEST;

2.出力的存储过程创建

CREATE OR REPLACE PROCEDURE GET_BLOB_TEST(i_xh VARCHAR2,i_file VARCHAR2) IS
l_file UTL_FILE.FILE_TYPE;
l_buffer RAW(32767);
l_amount BINARY_INTEGER := 32767;
l_pos INTEGER := 1;
l_blob BLOB;
l_blob_len INTEGER;
BEGIN

--这个sql取出对应的blob列，自定义更改。
select col into l_blob from TEST where dateCol = i_xh;

l_blob_len := DBMS_LOB.GETLENGTH(l_blob);

--'BLOBDIR'是第一步创建的文件目录变量。
--i_file是参数的文件名，可以是[test.txt],[test.jpg]后缀名不同会出力不同的文件。
l_file := UTL_FILE.FOPEN('BLOBDIR', i_file, 'WB');

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

3.调用上面存储过程的SQL

begin
  -- 调用存储过程，自定义对应参数。
  get_blob_test(i_xh => '2021/01/26',i_file => 'test.txt');
end;

如果资源学习了，可以点赞支持！