Oracle数据库中，使用存储过程将BLOB字段批量导成JPG格式

    环境说明：

　　照片：存放在生产库中的用户 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中，

　　然后再执行第三个存储过程。