Bill lankenau (displaying & uploading files)

Question

bill lankenau
you mentioned an artical on how to build an form component to store blobs and display them the link you gave no longer exists... I was wondering if you could give me an alternative location

Answer 1

Hi,
In order to upload a blob you can use a simple form based on a table that has a blob field(be sure to specify the mime type when you upload the image.
To show the image from database, you can use a package that is described in the following code(note number 68016.1 from metalink):
img package:
Create or Replace PACKAGE ILOUG.IMG
as
PROCEDURE select_img_table;
PROCEDURE retreive_img_data(no varchar2);
end;
package body:
Create or Replace PACKAGE BODY ILOUG.IMG
AS
PROCEDURE select_img_table AS
CURSOR c1 IS SELECT man_id,man_name FROM iloug.iloug_management;
BEGIN
htp.htmlopen;
htp.bodyopen;
FOR i IN c1 LOOP
htp.print(TO_CHAR(i.man_id));
htp.print(i.man_name);
htp.img('pls/iloug/img.retreive_img_data?no='| |to_char(i.man_id));
htp.bodyclose;
htp.htmlclose;
END LOOP;
END select_img_table;
PROCEDURE retreive_img_data(no varchar2) AS
Lob_field BLOB;
buffer RAW(32767);
offset BINARY_INTEGER:=1;
buffer_size NUMBER:=32767;
BEGIN
SELECT man_image INTO lob_field FROM iloug_management WHERE man_id=no;
OWA_UTIL.MIME_HEADER('image/gif');
LOOP
DBMS_LOB.READ(lob_field,buffer_size,offset,buffer);
htp.prn(UTL_RAW.CAST_TO_VARCHAR2(buffer));
offset:=offset+buffer_size;
END LOOP;
EXCEPTION
WHEN NO_DATA_FOUND THEN
null;
END retreive_img_data;
END img;rem: in the htp.img tag, the path i use for the image contains a DAD name that i call "iloug", you should create a new DAD(different from portal30), because the image cannot be displayed using "portal30" DAD.
Good luck
Esther
null