Reads an image of the given type from the given file and displays it in the Oracle Forms image item.
PROCEDURE READ_IMAGE_FILE
(file_name VARCHAR2,
file_type VARCHAR2,
item_id ITEM);
PROCEDURE READ_IMAGE_FILE
(file_name VARCHAR2,
file_type VARCHAR2,
item_name VARCHAR2);
Built-in Type unrestricted procedure
Enter Query Mode yes
Oracle Forms does not support multi-page TIFF.
/* Read an image from the filesystem into an image item on the
** form. In this example, the scanned picture identification
** for each employee is NOT saved to the database, but is
** stored on the filesystem. An employee's photo is a TIFF
** image stored in a file named <Userid>.TIF Each employee's
** Userid is unique.
** Trigger: Post-Query
*/
DECLARE
tiff_image_dir VARCHAR2(80) := '/usr/staff/photos/';
photo_filename VARCHAR2(80);
BEGIN
/*
** Set the message level high so we can gracefully handle
** an error reading the file if it occurs
*/
:System.Message_Level := '25';
/*
** After fetching an employee record, take the employee's
** Userid and concatenate the '.TIF' extension to derive
** the filename from which to load the TIFF image. The EMP
** record has a non-database image item named 'EMP_PHOTO'
** into which we read the image.
*/
photo_filename := tiff_image_dir||LOWER(:emp.userid)||'.tif';
/*
** For example 'photo_filename' might look like:
**
** /usr/staff/photos/jgetty.tif
** ------
**
** Now, read in the appropriate image.
*/
READ_IMAGE_FILE(photo_filename, 'TIFF', 'emp.emp_photo');
IF NOT FORM_SUCCESS THEN
MESSAGE('This employee does not have a photo on file.');
END IF;
:SYSTEM.MESSAGE_LEVEL := '0';
END;