往Oracle数据库插入图形文件blob

create table Image_lob(t_id varchar2(5),t_image blob); create or replace directory images as

create table Image_lob(t_id varchar2(5),t_image blob);

create or replace directory images as 'E:\image';

SELECT * FROM Image_lob;

create or replace procedure ima_insert(tid varchar2, filename varchar2,v_path varchar2) as

f_lob bfile;--文件类型

b_lob blob;

v_sql  varchar2(4000);

begin

 -- v_path := '''d:\temp\pic''';

  v_sql := 'create or replace directory IMAGES_BAK  as '||v_path; --路径必须是大小写，Oracle对这个是敏感的

  dbms_output.put_line(v_sql);

  execute immediate v_sql;

  insert into image_lob(t_id,t_image) values(tid,empty_blob())return t_image into b_lob;

  --插入空的blob

  f_lob := bfilename('IMAGES_BAK',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;

  

  declare

  begin

    ima_insert('2','1.jpg','''E:\image''');  --这里是三个 '

    end;

，