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

测试环境: Win2000 + Oracle92

        一个存储图片文件的过程，任何开发工具都可以通过调用过程把图片文存储到数据库中。
详细步骤：
Microsoft Windows 2000 [Version 5.00.2195]

(C) 版权所有 1985-2000 Microsoft Corp.

 

C:\Documents and Settings\ch.net>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/chanet@oradb;

已连接。

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 过程已成功完成。

 

原文转自：http://www.ltesting.net