使用PL/SQL从数据库中读取BLOB对象

王朝mssql·作者佚名  2008-05-31
窄屏简体版  字體: |||超大  

1.确认现有对象

SQL col fdesc for a30

SQL select fid,fname,fdesc from eygle_blob;

FID FNAMEFDESC

---------- -------------------------------------------------- ------------------------------

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

2l_fileUTL_FILE.FILE_TYPE;

3l_bufferRAW(32767);

4l_amountBINARY_INTEGER := 32767;

5l_pos INTEGER := 1;

6l_blobBLOB;

7l_blob_lenINTEGER;

8BEGIN

9SELECT FPIC

10INTOl_blob

11FROMeygle_blob

12WHEREFNAME = piname;

13

14l_blob_len := DBMS_LOB.GETLENGTH(l_blob);

15l_file := UTL_FILE.FOPEN('BLOBDIR',poname,'wb', 32767);

16

17WHILE l_pos < l_blob_len LOOP

18DBMS_LOB.READ (l_blob, l_amount, l_pos, l_buffer);

19UTL_FILE.PUT_RAW(l_file, l_buffer, TRUE);

20l_pos := l_pos + l_amount;

21END LOOP;

22

23UTL_FILE.FCLOSE(l_file);

24

25EXCEPTION

26WHEN OTHERS THEN

27IF UTL_FILE.IS_OPEN(l_file) THEN

28UTL_FILE.FCLOSE(l_file);

29END IF;

30RAISE;

31END;

32/

Procedure created.

4.取出数据

SQL host ls -l d:\oradata\Pic

total 7618

-rwxrwxrwa 1 gqgai None2131553 Apr 19 10:12 DaoYing.jpg

-rwxrwxrwa 1 gqgai None1768198 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 AdministratorsSYSTEM1768198 Apr 26 07:16 01.jpg

-rwxrwxrwa 1 gqgai None2131553 Apr 19 10:12 DaoYing.jpg

-rwxrwxrwa 1 gqgai None1768198 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 AdministratorsSYSTEM1768198 Apr 26 07:16 01.jpg

-rwxrwxrwa 1 AdministratorsSYSTEM2131553 Apr 26 07:19 02.jpg

-rwxrwxrwa 1 gqgai None2131553 Apr 19 10:12 DaoYing.jpg

-rwxrwxrwa 1 gqgai None1768198 Apr 19 10:12 ShaoLin.jpg

right"(出处:清风软件下载学院)

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航