将图片文存储到Oracle的存储过程

2/9/2008来源:Oracle教程人气:8925


  一个存储图片文件的过程,任何开发工具都可以通过调用过程把图片文存储到数据库中。
  
  具体步骤:
  
  Microsoft windows 2000 [Version 5.00.2195]
  
  (C) 版权所有 1985-2000 Microsoft Corp.
  
  C:\Documents and Settings\chanet>cd
  C:\>sqlplus /nolog
  
  SQL*Plus: Release 9.2.0.1.0 - PRodUCtion on 星期三 1月 19 14:46:21 2005
  
  Copyright (c) 1982, 2002, Oracle Corporation. All rights reserved.
  
  SQL> connect chanet/[email protected];
  
  已连接。
  
  SQL> CREATE TABLE IMAGE_LOB (T_ID VARCHAR2 (5) NOT NULL,T_IMAGE BLOB NOT NULL);
  
  表已创建。
  
  SQL> CREATE OR REPLACE DirectorY IMAGES AS 'C:\Oracle'; --图片目录
  
  目录已创建。
  
  SQL> CREATE OR REPLACE PROCEDURE IMG_INSERT (TID VARCHAR2,FILENAME VARCHAR2) AS
  
  2  F_LOB BFILE;
  
  3  B_LOB BLOB;
  
  4 BEGIN
  
  5  INSERT INTO IMAGE_LOB (T_ID, T_IMAGE)
  
  6   VALUES (TID,EMPTY_BLOB ()) RETURN T_IMAGE INTO B_LOB;
  
  7  F_LOB:= BFILENAME ('IMAGES', FILENAME);
  
  8  DBMS_LOB.FILEOPEN (F_LOB, DBMS_LOB.FILE_READONLY);
  
  9  DBMS_LOB.LOADFROMFILE (B_LOB, F_LOB,
  
  10  DBMS_LOB.GETLENGTH (F_LOB));
  
  11  DBMS_LOB.FILECLOSE (F_LOB);
  
  12  COMMIT;
  
  13 END;
  
  14 /
  
  过程已创建。
  
  SQL>-- 示例
  
  SQL> EXEC IMG_INSERT('1','f_TEST.jpg');
  
  PL/SQL 过程已成功完成。