使用以下代码可以插入BLOB类型的图片或pdf文档到Oracle数据库中：

* 博客文章部分截图及内容来自于学习的书本及相应培训课程以及网络其他博客，仅做学习讨论之用，不做商业用途。
* 如有侵权，马上联系我，我立马删除对应链接。
* @author Alan
* @Email no008@foxmail.com

drop table IMAGE_LOB;

CREATE TABLE IMAGE_LOB (

   T_ID VARCHAR2 (5) NOT NULL,

   T_IMAGE BLOB NOT NULL

   );

    

--插入blob文件 

CREATE OR REPLACE DIRECTORY IMAGES AS '/home/oracle/';

CREATE OR REPLACE NONEDITIONABLE PROCEDURE IMG_INSERT(TID      VARCHAR2,

                                                      FILENAME VARCHAR2) AS

    F_LOB BFILE;

    B_LOB BLOB;

BEGIN

    INSERT INTO IMAGE_LOB

        (T_ID, T_IMAGE)

    VALUES

        (TID, EMPTY_BLOB()) RETURN T_IMAGE INTO B_LOB;

    F_LOB := BFILENAME('IMAGES', FILENAME);

    DBMS_LOB.FILEOPEN(F_LOB, DBMS_LOB.FILE_READONLY);

    DBMS_LOB.LOADFROMFILE(B_LOB, F_LOB, DBMS_LOB.GETLENGTH(F_LOB));

    DBMS_LOB.FILECLOSE(F_LOB);

    COMMIT;

END;

 /

BEGIN

    IMG_INSERT('1','1.jpg');

    IMG_INSERT('2','2.jpg');

    IMG_INSERT('3','1.pdf');

 END;

/

select length(t_image) from image_lob; --可以查看该字段占用的空间大小

SELECT * FROM image_lob;

----------- 导出blob文件

DECLARE

    l_file   utl_file.file_type;

    --l_lob    BLOB;

    l_offset INT := 1;

    l_amount INT := 32767;

    l_len    INT;

    l_buffer RAW(32767);

BEGIN

    FOR cur IN (SELECT t_image,t.t_id FROM image_lob t) LOOP

         

                l_file := utl_file.fopen('IMAGES', cur.t_id||'.jpg', 'wb', 32767);

        l_len  := dbms_lob.getlength(cur.t_image);

                l_offset := 1;  

                 

        WHILE l_offset < l_len LOOP

            dbms_lob.read(cur.t_image, l_amount, l_offset, l_buffer);

            utl_file.put_raw(l_file, l_buffer, TRUE);

            l_offset := l_offset + l_amount;

        END LOOP;

                 

        utl_file.fclose(l_file);

                 

    END LOOP;

END;

/