Images into db, what's wrong?

Question

Hi,
I'm still trying to fetch some images into my database, gif or jpeg, but I have some problems. I used the following code but it gives me a compile error. I don't understand why! EXEC does'nt work.
CREATE TABLE MY_IMAGES_DB(
id NUMBER(10) NOT NULL,
name VARCHAR2(50) NOT NULL,
image BLOB NOT NULL
ALTER TABLE IMAGE_CBR.MY_IMAGES_DB ADD (
CONSTRAINT images_pk PRIMARY KEY (id)
ALTER TABLE IMAGE_CBR.MY_IMAGES_DB ADD (
CONSTRAINT images_uk UNIQUE (name)
CREATE SEQUENCE images_seq1;
CREATE OR REPLACE DIRECTORY image_dir AS 'C:\IMAGES';
CREATE OR REPLACE PACKAGE Images_API AS
PROCEDURE Load (p_name IN IMAGE_CBR.MY_IMAGES_DB.name%TYPE);
PROCEDURE Get (p_name IN IMAGE_CBR.MY_IMAGES_DB.name%TYPE,
p_type IN VARCHAR2 DEFAULT 'gif');
PROCEDURE Get_Gif (p_name IN IMAGE_CBR.MY_IMAGES_DB.name%TYPE);
PROCEDURE Get_Jpeg (p_name IN IMAGE_CBR.MY_IMAGES_DB.name%TYPE);
END;
CREATE OR REPLACE PACKAGE BODY Images_API AS
PROCEDURE Load (p_name IN IMAGE_CBR.MY_IMAGES_DB.name%TYPE) IS
v_bfile BFILE;
v_blob BLOB;
BEGIN
INSERT INTO IMAGE_CBR.MY_IMAGES_DB (id, name, image)
VALUES (images_seq1.NEXTVAL, p_name, empty_blob())
RETURN image INTO v_blob;
v_bfile := BFILENAME('image_dir', p_name);
Dbms_Lob.Fileopen(v_bfile, Dbms_Lob.File_Readonly);
Dbms_Lob.Loadfromfile(v_blob, v_bfile, Dbms_Lob.Getlength(v_bfile));
Dbms_Lob.Fileclose(v_bfile);
COMMIT;
EXCEPTION
WHEN OTHERS THEN
ROLLBACK;
RAISE;
END;
PROCEDURE Get (p_name IN IMAGE_CBR.MY_IMAGES_DB.name%TYPE,
p_type IN VARCHAR2 DEFAULT 'gif') IS
v_blob BLOB;
v_amt NUMBER := 30;
v_off NUMBER := 1;
v_raw RAW(4096);
BEGIN
SELECT image
INTO v_blob
FROM IMAGE_CBR.MY_IMAGES_DB
WHERE name = p_name;
Owa_Util.Mime_Header('image/' || p_type);
BEGIN
LOOP
Dbms_Lob.Read(v_blob, v_amt, v_off, v_raw);
Htp.Prn(Utl_Raw.Cast_To_Varchar2(v_raw));
v_off := v_off + v_amt;
v_amt := 4096;
END LOOP;
EXCEPTION
WHEN NO_DATA_FOUND THEN
NULL;
END;
END;
PROCEDURE Get_Gif (p_name IN IMAGE_CBR.MY_IMAGES_DB.name%TYPE) IS
BEGIN
Get (p_name, 'gif');
END;
PROCEDURE Get_Jpeg (p_name IN IMAGE_CBR.MY_IMAGES_DB.name%TYPE) IS
BEGIN
Get (p_name, 'jpeg');
END;
END;
EXEC Images_API.Load('sun201.gif');
Can someone help me?
Thanks

Answer 1

Hi,
I'm still trying to fetch some images into my database, gif or jpeg, but I have some problems. I used the following code but it gives me a compile error. I don't understand why! EXEC does'nt work.
CREATE TABLE MY_IMAGES_DB(
id NUMBER(10) NOT NULL,
name VARCHAR2(50) NOT NULL,
image BLOB NOT NULL
ALTER TABLE IMAGE_CBR.MY_IMAGES_DB ADD (
CONSTRAINT images_pk PRIMARY KEY (id)
ALTER TABLE IMAGE_CBR.MY_IMAGES_DB ADD (
CONSTRAINT images_uk UNIQUE (name)
CREATE SEQUENCE images_seq1;
CREATE OR REPLACE DIRECTORY image_dir AS 'C:\IMAGES';
CREATE OR REPLACE PACKAGE Images_API AS
PROCEDURE Load (p_name IN IMAGE_CBR.MY_IMAGES_DB.name%TYPE);
PROCEDURE Get (p_name IN IMAGE_CBR.MY_IMAGES_DB.name%TYPE,
p_type IN VARCHAR2 DEFAULT 'gif');
PROCEDURE Get_Gif (p_name IN IMAGE_CBR.MY_IMAGES_DB.name%TYPE);
PROCEDURE Get_Jpeg (p_name IN IMAGE_CBR.MY_IMAGES_DB.name%TYPE);
END;
CREATE OR REPLACE PACKAGE BODY Images_API AS
PROCEDURE Load (p_name IN IMAGE_CBR.MY_IMAGES_DB.name%TYPE) IS
v_bfile BFILE;
v_blob BLOB;
BEGIN
INSERT INTO IMAGE_CBR.MY_IMAGES_DB (id, name, image)
VALUES (images_seq1.NEXTVAL, p_name, empty_blob())
RETURN image INTO v_blob;
v_bfile := BFILENAME('image_dir', p_name);
Dbms_Lob.Fileopen(v_bfile, Dbms_Lob.File_Readonly);
Dbms_Lob.Loadfromfile(v_blob, v_bfile, Dbms_Lob.Getlength(v_bfile));
Dbms_Lob.Fileclose(v_bfile);
COMMIT;
EXCEPTION
WHEN OTHERS THEN
ROLLBACK;
RAISE;
END;
PROCEDURE Get (p_name IN IMAGE_CBR.MY_IMAGES_DB.name%TYPE,
p_type IN VARCHAR2 DEFAULT 'gif') IS
v_blob BLOB;
v_amt NUMBER := 30;
v_off NUMBER := 1;
v_raw RAW(4096);
BEGIN
SELECT image
INTO v_blob
FROM IMAGE_CBR.MY_IMAGES_DB
WHERE name = p_name;
Owa_Util.Mime_Header('image/' || p_type);
BEGIN
LOOP
Dbms_Lob.Read(v_blob, v_amt, v_off, v_raw);
Htp.Prn(Utl_Raw.Cast_To_Varchar2(v_raw));
v_off := v_off + v_amt;
v_amt := 4096;
END LOOP;
EXCEPTION
WHEN NO_DATA_FOUND THEN
NULL;
END;
END;
PROCEDURE Get_Gif (p_name IN IMAGE_CBR.MY_IMAGES_DB.name%TYPE) IS
BEGIN
Get (p_name, 'gif');
END;
PROCEDURE Get_Jpeg (p_name IN IMAGE_CBR.MY_IMAGES_DB.name%TYPE) IS
BEGIN
Get (p_name, 'jpeg');
END;
END;
EXEC Images_API.Load('sun201.gif');
Can someone help me?
Thanks