日期:2014-05-17 浏览次数:21025 次
create or replace directory IMAGES as 'd:\pic';
create or replace procedure insertPic(idPin in integer,
picPin varchar2 --文件名 如 abc.jpg
) as
f_lob bfile; --文件类型
v_picPin blob;
begin
insert into picture
(id, pic)
values
(idPin, empty_blob()) return pic into v_picPin; --插入空的blob
f_lob := bfilename('IMAGES', picPin); --获取指定目录下的文件
dbms_lob.fileopen(f_lob, dbms_lob.file_readonly); --以只读的方式打开文件
dbms_lob.loadfromfile(v_picPin, f_lob, dbms_lob.getlength(f_lob)); --传递对象
dbms_lob.fileclose(f_lob); --关闭原始文件
commit;
end;