環境說明：

　　照片：存放在生產庫中的用戶 picmgr 中，數據庫版本為ORACLE10g；

　　目的：將照片導到本地路徑 D:\image ，存儲格式為 jpg 。

第一步：在本地安裝oracle11g database 版本

　　註意：oracle版本無所謂，10g、11g都可以，

　　　　　關鍵得是 database 版本。

　　創建一個dba用戶，用戶名為 tonytonytony（用戶名隨你起） 。

　　使用用戶 tonytonytony 創建 一個directory（image_dir）、

　　一個表（GET_IMAGE），以及 DatabaseLink（DBLINKPIC）。

　　create or replace directory image_dir as ‘D:\image‘;

　　--創建用於暫時存放照片數據的表
　　create table GET_IMAGE
　　(
　　num　　　NUMBER,
　　xm　　　 VARCHAR2(50),
　　sfzh 　 VARCHAR2(18),
　　filename VARCHAR2(100),
　　picture BLOB
　　);

第二步：數據準備及照片導出

　　create or replace procedure pro01_auto_reload_data is
　　begin
　　delete GET_IMAGE;　　--清空表信息
　　commit;
　　 insert into GET_IMAGE(Xm,Sfzh,Filename,Picture)

　　 　　select a.xm,a.sfzh,a.sfzh||‘_‘||a.xm||‘.jpg‘,b.picture

　　　　 from table01 a,table_pictures@DBLINKPIC b

　　　　 where a.xm=b.xm and a.sfzh=b.sfzh;
　　commit;
　　update GET_IMAGE set num=rownum;
　　commit;
　　update GET_IMAGE set picture = null where length(picture)>‘32767‘;　　

　　 --照片大小超出範圍，則置為空，這些照片需要手工另存。
　　commit;
　　end pro01_auto_reload_data;

　　--第二個存儲過程

　　create or replace procedure pro02_auto_download_image(i_num in number,i_count in number) is
　　v_file UTL_FILE.file_type;

　　v_blob BLOB;
　　v_amount BINARY_INTEGER := 32767;
　　v_pos INTEGER := 1;
　　v_buffer RAW(32767);

　　v_blob_lenth INTEGER;
　　v_filename varchar2(50);

　　v_num INTEGER;
　　v_count INTEGER;

　　begin
　　v_num := i_num;
　　v_count := i_count;
　　while v_num <= v_count loop
　　select a.filename into v_filename from GET_IMAGE a where a.num = v_num;
　　select a.picture into v_blob from GET_IMAGE a where a.num = v_num;
　　v_blob_lenth := DBMS_LOB.getlength(v_blob);
　　v_file := UTL_FILE.fopen(‘IMAGE_DIR‘,v_filename,‘WB‘,v_blob_lenth);
　　while v_pos < v_blob_lenth loop
　　 dbms_lob.read(v_blob,v_amount,v_pos,v_buffer);
　　UTL_FILE.put_raw(v_file,v_buffer,TRUE);
　　v_pos := v_pos + v_amount;
　　end loop;
　　 v_num := v_num + 1;
　　 v_pos := 1;
　　 UTL_FILE.fclose(v_file);
　　 end loop;
　　end pro02_auto_download_image;

　　這第二個存儲過程，已經可以導照片了，但是在使用時，發現如果一次導6、7張照片，

　　速度便會變的很慢，為了獲得最高的效率，我希望每次只導出一張。

　　因此我又寫了第三個存儲過程。

第三步：實現批量導出

　　create or replace procedure pro03_auto_run_one_by_one is

　　v_begin INTEGER := 1;
　　v_end INTEGER := 1;
　　v_count INTEGER;

　　begin
　　--pro01_auto_reload_data;
　　select count(*) into v_count from GET_IMAGE;
　　while v_begin <= v_count loop
　　 pro02_auto_download_image(v_begin,v_end);
　　 v_begin := v_begin + 1;
　　 v_end := v_end + 1;
　　 end loop;
　　end pro03_auto_run_one_by_one;

　　--註意：若導出的照片大小為0KB，則需要手工做另存的操作了。

　　使用的方法就是，先執行第一個存儲過程，將照片信息轉存到本地數據庫的表GET_IMAGE中，

　　然後再執行第三個存儲過程。

Oracle數據庫中，使用存儲過程將BLOB字段批量導成JPG格式