Images in webforms from jar file

Question

In a headstart generated forms (designer 6 headstart 5.0.3) i have a lot of image items
(unbound items with the hint <IM>my_image.gif</IM>
It's a WebForms application.
I use jar archive file for images. But i see no any image in runtime.
The problem is: in qms$block.init_image_item (qmslib50.pll) is call to read_image_file whit 3 parameters
image_name => 'my_image.gif'
image_type => 'GIF' = substr(l_image_file,instr(l_image_file,'.')+1);
item_name => 'block.my_image_item'
It works on the web too but only if images are in the file system.
If images are in the jar file it don't works.
image_type for the web have to be 'URL' and
image_name my_image (without gif)
What i have to do?
How can i generate form with image_name (without extension) and image_type='URL'?
If it's impossible may be do you have a version of qms$block.init_image_item (for web :-) )
or do i have to change this procedure myself?
Kind regards,
Roman Farber
null

Answer 1

procedure init_image_item
is
-- purpose: If the hint text contains the name of an image file,
-- enclosed between <IM> and </IM> tags, the image file is
-- is applied to the next item (which is the image item).
-- Procedure is customized for web.
-- Procedure will first looking for an image in archive jar file.
-- If image is not found in jar file we are going to looking for
-- an image in the file syatem.
l_image_file varchar2(50);
l_image_item varchar2(100);
l_image_type varchar2(10);
l_path varchar2(300);
l_path_specified boolean := false;
-- Only for web
l_image_name varchar2(50);
begin
l_image_file := qms$item.get_tagged_hint_info(l_cur_item,'<IM>','</IM>');
if l_image_file is null
then
return;
end if;
-- image file may be stored in forms parameter or global.
-- In both cases the image file should start with a colon
if instr(l_image_file,':') = 1
then
l_image_file := name_in(substr(l_image_file,2));
end if;
l_image_item := l_cur_block&#0124; &#0124;'.'&#0124; &#0124;get_item_property(l_cur_item_id,nextitem);
-- check if the next item is really an image item
if get_item_property(l_image_item,item_type) <> 'IMAGE'
then
return;
end if;
-----====================================================
-- For Web Forms, Looking for the image in jar archive file
-- if file is not found (or it's not the application archive jar file )
-- then go to the file system.
SYNCHRONIZE;
-- Name of image without extension.
l_image_name := substr(l_image_file,1,instr(l_image_file,'.')-1);
-- message('l_image_name = '&#0124; &#0124;l_image_name);pause;
-- Suppress error FRM-47109, cannot locate image file
-- We need to suppress this message because the image files
-- might be located in one of the FORMS50_PATH directories
qms$forms_errors.add_suppress_message('FRM-47109');
read_image_file(l_image_name,'URL',l_image_item);
SYNCHRONIZE;
if not form_success
then
-- message('form not succes');pause;
qms$errors.show_debug_info('Image '&#0124; &#0124;l_image_file&#0124; &#0124;
': not found in jar archive file now looking for in file system' );
qms$forms_errors.delete_suppress_message('FRM-47109');
else
-- message('form wel succes');pause;
qms$forms_errors.delete_suppress_message('FRM-47109');
return;
end if;
-- End of looking for the image in jar archive file
-----====================================================
-- file system
l_image_type := substr(l_image_file,instr(l_image_file,'.')+1);
Tool_env.getvar('HEADSTART\IMAGEFILE_PATH', l_path);
if l_path is not null
then
if get_application_property(operating_system) like 'MSWINDOWS%'
or get_application_property(operating_system) = 'WIN32COMMON'
then
if l_path not like ('%\')
then
l_path := l_path&#0124; &#0124;'\';
end if;
end if;
-- Suppress error FRM-47109, cannot locate image file
-- We need to suppress this message because the image files
-- might be located in one of the FORMS50_PATH directories
qms$forms_errors.add_suppress_message('FRM-47109');
read_image_file(l_path&#0124; &#0124;l_image_file,l_image_type,l_image_item);
if not form_success
then
qms$errors.show_debug_info('Image '&#0124; &#0124;l_image_file&#0124; &#0124;': not found on path '&#0124; &#0124;l_path
&#0124; &#0124;', now looking in FORM50_PATH directories' );
qms$forms_errors.delete_suppress_message('FRM-47109');
-- Try to read the image file again, without the path name
-- Forms will automatically search through all directories in the FORMS50_PATH
read_image_file(l_image_file,l_image_type,l_image_item);
qms$errors.show_debug_info('Item '&#0124; &#0124;l_image_item&#0124; &#0124;': read image '&#0124; &#0124;l_image_file);
else
qms$forms_errors.delete_suppress_message('FRM-47109');
qms$errors.show_debug_info('Item '&#0124; &#0124;l_image_item&#0124; &#0124;': read image '&#0124; &#0124;l_path&#0124; &#0124;l_image_file);
end if;
else
read_image_file(l_image_file,l_image_type,l imageitem);
qms$errors.show_debug_info('Item '&#0124; &#0124;l_image_item&#0124; &#0124;': read image '&#0124; &#0124;l_image_file);
end if;
exception
when form_trigger_failure then raise;
when others then qms$errors.unhandled_exception('qms$block.init_image_item');
end init_image_item;