将存儲圖檔的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 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;
--(2)建立導出檔案存放路徑
create or replace directory BLOBDIR as '/tmp/jpg';
--(3)批量導出圖檔SQL語句塊
declare
cursor cur is
select s.id
from TMU_TMEDMS.T_TMEDMS_TM_BASE_INFO t,
TMU_TMEDMS.T_TMEDMS_TM_SCAN_FILES S
where t.flow_type_code = 'TMZC'
and t.file_type_code = 'ZCSQ'
AND T.APP_NUM >= '15823555'
AND T.APP_NUM <= '15827984'
AND substr(t.barcode, 0, 5) = 'B1011'
AND T.ID = S.DOC_ID
AND S.DOC_TYPE_CODE = 'TMIM';
begin
for rec in cur loop
TMU_TMEDMS.GET_PIC_BLOB(rec.id);
INSERT INTO record (id) VALUES (rec.id);
commit;
end loop;
end;