往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;