delphi dbgrideh 字段显示为blob_oracle数据库blob格式导出照片小工具

经常会遇到要给数据库中的blob格式数据文件导出为'.jpg'格式的图片。猛然觉得是该有个小工具直接导出照片了...(小工具产生背景)

实验环境：oracle数据库11.2.0.4，win系统(此实验系统之间差别甚微)实验目的：某张表中图片以blob格式存在数据库中，将其导成“.jpg” 格式。

数据库表格式：

实现步骤：

1. 需表中字段有一列为递增字段；此时图片导出将可以以另一列命名----即此场景为：xm.jpg

2. 新建目录并授权；此操作是设置图片导出文件夹。

----首先从数据库中创建目录：当前实验环境下已将dba权限授给scott用户，直接使用scott用户创建了目录。合乎规范的做法是：

使用sys用户或者使用system用户登录：

create direcoty dir as 'E:/photo';----linux系统的话，直接更换路径即可。

grant read,write on directory dir to scott;---此时授权给单个用户即可。或者

grant all on direcotry dir to public;---此授权含义是：将dir目录的所有权限开放给公共角色(此角色是所有的数据库用户都具备)

3.创建存储过程：

此过程为核心内容，看不懂没有关系，会用即可。代码如下：

---

create or replace procedure exphoto(xh varchar2) is

l_file utl_file.file_type;

l_lob blob;

l_offset int:= 1;

l_amount int:= 32767;

l_len int;

l_buffer raw(32767);

x varchar2(100);

begin

select rdphoto into l_lob from photo t where rdid=xh ;

select xm into x from photo where rdid=xh;

l_file:= utl_file.fopen('DIR', x||'.jpg', 'wb', 32767);

l_len:= dbms_lob.getlength(l_lob);

while l_offset< l_len loop

dbms_lob.read(l_lob, l_amount, l_offset, l_buffer);

utl_file.put_raw(l_file, l_buffer, true);

l_offset:= l_offset + l_amount;

end loop;

utl_file.fclose(l_file);

end exphoto;

4.语句调用存储过程导出照片；

declare

cursor cur is

select rdid from photo where rownum <= 10 and rdphoto is not null;

begin

for rec in cur loop

exphoto(rec.rdid);

end loop;

end;

/

效果图：

觉得好的话就给个赞呗，顺便给朋友推荐一下