   insert into t_photo (pno, picture) values (in_pno, empty_blob());
   select picture into b_lob from t_photo where pno = in_pno;
   f_lob := bfilename('dir3', filename);
   len1 := dbms_lob.getlength(f_lob);
   dbms_lob.fileopen(f_lob, dbms_lob.file_readonly);
   dbms_lob.loadfromfile(b_lob, f_lob, len1);
   dbms_lob.fileclose(f_lob);
   commit;
end;
调用过程
begin pro_insert('P6','2222559.jpg');end;
一个完整的存储图片的例子
SQL> CREATE TABLE IMAGE_LOB (
2 T_ID VARCHAR2 (5) NOT NULL,
3 T_IMAGE BLOB NOT NULL
4 );
表已创建。
www.2cto.com
SQL> CREATE OR REPLACE DIRECTORY IMAGES AS 'C:\Inetpub\wwwroot';
目录已创建。
SQL> CREATE OR REPLACE PROCEDURE IMG_INSERT (
2 TID           VARCHAR2,
3 FILENAME      VARCHAR2) AS
4     F_LOB   BFILE;
5     B_LOB   BLOB;
6   BEGIN
7       INSERT INTO IMAGE_LOB (T_ID, T_IMAGE) VALUES (TID,
8 EMPTY_BLOB ()) RETURN T_IMAGE INTO B_LOB;
9       F_LOB:= BFILENAME ('IMAGES', FILENAME);
10       DBMS_LOB.FILEOPEN (F_LOB, DBMS_LOB.FILE_READONLY);
11       DBMS_LOB.LOADFROMFILE (B_LOB, F_LOB,
12 DBMS_LOB.GETLENGTH (F_LOB));
13       DBMS_LOB.FILECLOSE (F_LOB);
14       COMMIT;
15   END;
16 /
过程已创建。

ITPub博客

61

最新文章