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