CREATE OR REPLACE PACKAGE display$image
IS
PROCEDURE gif(
p_image_pk IN images.image_pk%TYPE );
PROCEDURE test_image;
END display$image;
/
CREATE OR REPLACE PACKAGE BODY display$image
IS
PROCEDURE gif(
p_image_pk IN images.image_pk%TYPE )
IS
l_img_blob BLOB;
BEGIN
OWA_UTIL.mime_header( 'image/gif', FALSE );
SELECT image_blob
INTO l_img_blob
FROM images
WHERE blb_seq = p_image_pk;
HTP.p( 'Content-Length: ' || DBMS_LOB.getlength( l_img_blob ));
HTP.p( 'Expires: Thu, 29 Oct 2000 17:04:19 GMT' );
HTP.p( 'Pragma: no-cache' );
HTP.p( 'Cache-Control: no-cache' );
OWA_UTIL.http_header_close;
wpg_docload.download_file( l_img_blob );
END;
PROCEDURE test_image
IS
BEGIN
HTP.htmlopen;
HTP.bodyopen;
HTP.tableopen( cborder => 1 );
HTP.tablerowopen;
HTP.p( cbuf => '[TD]<img src=display$image.gif?p_image_pk=1279>' );
HTP.p( cbuf => '[/TD]' );
HTP.tablerowclose;
HTP.tableclose;
HTP.bodyclose;
HTP.htmlclose;
END;
END display$image;