oracle 导出blob,Oracle 批量导出Blob文件

将存储图片的BLOB字段批量导出

--(1)生成图片存储过程

CREATE OR REPLACE PROCEDURE TMU_TMEDMS.GET_PIC_BLOB(i_xh 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;

I_doc      varchar2(50);

BEGIN

select s.content,s.doc_id into l_blob,I_doc from TMU_TMEDMS.T_TMEDMS_TM_SCAN_FILES s where s.id=i_xh;

l_blob_len := DBMS_LOB.GETLENGTH(l_blob);

l_file     := UTL_FILE.FOPEN('BLOBDIR', I_doc || '.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 TH