OraclePL从数据库中如何读取BLOB字段

以下的文章主要介绍的是OraclePL与SQL从数据库中如何读取BLOB字段的实际操作步骤，如果你对其相关的实际操作有兴趣了解的话，以下的文章将会给你提供相关的知识。希望你会有所收获。

1.确认对象存在

 
 
 

  
  
  
SQL> col fdesc for a30  
  
  
  
SQL> select fid,fname,fdesc from eygle_blob; 
 
 
 

FID FNAME FDESC

1 ShaoLin.jpg 少林寺-易经经

2 DaoYing.jpg 倒映

2.创建存储Directory

 
 
 

  
  
  
SQL> connect / as sysdba  
  
  
  
Connected.  
  
  
  
SQL> create or replace directory BLOBDIR as 'D:\oradata\Pic';  
  
  
  
Directory created.  
  
  
  
SQL> 
  
  
  
SQL> grant read,write on directory BLOBDIR to eygle;  
  
  
  
Grant succeeded.  
  
  
  
SQL> 
  
  
  
 
 
 
 

3.创建存储过程

 
 
 

  
  
  
SQL> connect eygle/eygle  
  
  
  
Connected.  
  
  
  
SQL> 
  
  
  
SQL> CREATE OR REPLACE PROCEDURE eygle_dump_blob (piname varchar2,poname varchar2) IS  
  
  
  
l_file UTL_FILE.FILE_TYPE;  
  
  
  
l_buffer RAW(32767);  
  
  
  
l_amount BINARY_INTEGER := 32767;  
  
  
  
l_pos INTEGER := 1;  
  
  
  
l_blob BLOB;  
  
  
  
l_blob_len INTEGER;  
  
  
  
BEGIN  
  
  
  
SELECT FPIC  
  
  
  
INTO l_blob  
  
  
  
FROM eygle_blob  
  
  
  
WHERE FNAME = piname;  
  
  
  
l_blob_len := DBMS_LOB.GETLENGTH(l_blob);  
  
  
  
l_file := UTL_FILE.FOPEN('BLOBDIR',poname,'wb', 32767);  
  
  
  
WHILE l_pos < l_blob_len LOOP  
  
  
  
DBMS_LOB.READ (l_blob, l_amount, l_pos, l_buffer);  
  
  
  
UTL_FILE.PUT_RAW(l_file, l_buffer, TRUE);  
  
  
  
l_pos := l_pos + l_amount;  
  
  
  
END LOOP;  
  
  
  
UTL_FILE.FCLOSE(l_file);  
  
  
  
EXCEPTION  
  
  
  
WHEN OTHERS THEN  
  
  
  
IF UTL_FILE.IS_OPEN(l_file) THEN  
  
  
  
UTL_FILE.FCLOSE(l_file);  
  
  
  
END IF;  
  
  
  
RAISE;  
  
  
  
END;  
  
  
  
/  
  
  
  
Procedure created.  
 
 
 

4.取出字段数据

 
 
 

  
  
  
SQL> host ls -l d:\oradata\Pic  
  
  
  
total 7618  
  
  
  
-rwxrwxrwa 1 gqgai None 2131553 Apr 19 10:12 DaoYing.jpg  
  
  
  
-rwxrwxrwa 1 gqgai None 1768198 Apr 19 10:12 ShaoLin.jpg  
  
  
  
SQL> exec eygle_dump_blob('ShaoLin.jpg','01.jpg')  
  
  
  
PL/SQL procedure successfully completed.  
  
  
  
SQL> host ls -l d:\oradata\Pic  
  
  
  
total 11072  
  
  
  
-rwxrwxrwa 1 Administrators SYSTEM 1768198 Apr 26 07:16 01.jpg  
  
  
  
-rwxrwxrwa 1 gqgai None 2131553 Apr 19 10:12 DaoYing.jpg  
  
  
  
-rwxrwxrwa 1 gqgai None 1768198 Apr 19 10:12 ShaoLin.jpg  
  
  
  
SQL> 
  
  
  
SQL> exec eygle_dump_blob('DaoYing.jpg','02.jpg')  
  
  
  
PL/SQL procedure successfully completed.  
  
  
  
SQL> host ls -l d:\oradata\Pic  
  
  
  
total 15236  
  
  
  
-rwxrwxrwa 1 Administrators SYSTEM 1768198 Apr 26 07:16 01.jpg  
  
  
  
-rwxrwxrwa 1 Administrators SYSTEM 2131553 Apr 26 07:19 02.jpg  
  
  
  
-rwxrwxrwa 1 gqgai None 2131553 Apr 19 10:12 DaoYing.jpg  
  
  
  
-rwxrwxrwa 1 gqgai None 1768198 Apr 19 10:12 ShaoLin.jpg  
 
 
 

以上的相关内容就是对OraclePL与SQL从数据库中读取BLOB字段的介绍，望你能有所收获。

文章出自:http://www.programbbs.com/doc/4255.htm

网页标题：OraclePL从数据库中如何读取BLOB字段
转载来源：http://www.shufengxianlan.com/qtweb/news20/362370.html

网站建设、网络推广公司-创新互联，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

广告

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源： 创新互联