往Oracle資料庫插入圖形檔案blob

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;