环境说明：
照片：存放在生产库中的用户 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,[email protected] 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中，
然后再执行第三个存储过程。