前言

主要介绍使用Oracle函数包dbms_lob如何将图片存到数据库里面。关于函数的更多用法可以阅读官方文档(https://docs.oracle.com/cd/E11882_01/timesten.112/e21645/d_lob.htm#TTPLP600)

建立测试表

prompt
prompt Creating table T_PIC_1
prompt =============================
prompt
create table T_PIC_1
(
  ID           NUMBER(10) not null,
  ZP             BLOB
)
;
comment on table T_PIC_1
  is '测试数据表';
comment on column T_PIC_1.ID
  is '照片唯一ID ';
comment on column T_PIC_1.ZP
  is '照片';

-- alter table T_PIC_1 add constraint PK_T_PIC_1 primary key (ID);

prompt
prompt Creating sequence SEQ_T_PIC_1
prompt ================================
prompt
create sequence SEQ_T_PIC_1
minvalue 1
maxvalue 9999999999999999999999999999
start with 1
increment by 1
cache 200;

图片路径

[oracle@db-Bbo8Jg1B zp]$ pwd
/home/oracle/zp
[oracle@db-Bbo8Jg1B zp]$ ls -lrt
-rw-r--r-- 1 root root 42775 Jun  2 13:56 20200602135647.jpg
-rw-r--r-- 1 root root 44189 Jun  2 13:59 20200602135648.jpg

建立逻辑目录

SQL> create or replace directory IMAGES as '/home/oracle/zp';

SQL> grant read,write on directory IMAGES to u_test1;

入库方式

特定命名规则循环入库

[oracle@db-Bbo8Jg1B ~]$ cd /home/oracle/zp/
[oracle@db-Bbo8Jg1B zp]$ i=0;for img in *.jpg;do ((i++));mv "$img" ${i}.jpg;done
[oracle@db-Bbo8Jg1B zp]$ ls -l
-rw-r--r-- 1 oracle oinstall 42775 Jun  2 13:56 1.jpg
-rw-r--r-- 1 oracle oinstall 44189 Jun  2 13:59 2.jpg

[oracle@db-Bbo8Jg1B zp]$ sqlplus u_test1/u_test1

declare
  l_blob  blob;
  l_bfile bfile;
begin
  for i in 1 .. 2 loop
    -- 确认好表与表字段
    insert into T_PIC_1
      (ID, ZP)
    values
      (i, empty_blob())
    returning ZP into l_blob;
    -- 照片的命名必须为规则的从1到10w,如:10.jpg , IMAGES代表逻辑目录名称
    l_bfile := bfilename('IMAGES', i || '.jpg');
    dbms_lob.fileopen(l_bfile);
    dbms_lob.loadfromfile(l_blob, l_bfile, dbms_lob.getlength(l_bfile));
    dbms_lob.fileclose(l_bfile);
  end loop;
  commit; -- 可自行调整为单次commit或者批量commit
end;
/

可以使用PLSQL去查看下表：

使用存储过程的方式入库

CREATE OR REPLACE PROCEDURE IMG_INSERT_ACS(FILENAME VARCHAR2) AS
  F_LOB BFILE;
  B_LOB BLOB;
BEGIN
  INSERT /*+ append */
  INTO T_PIC_1
    (ID, ZP)
  VALUES
  -- ID通过调用序列SEQ_T_PIC_1取唯一自增值,IMAGES代表逻辑目录名称
    (seq_T_PIC_1.nextval, EMPTY_BLOB()) RETURN ZP 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
  -- Call the procedure
  img_insert_acs(filename => '1.jpg');
end;
/

再去通过PLSQL查看表：