64 lines
1.7 KiB
Markdown
64 lines
1.7 KiB
Markdown
# XLIB_JASPERREPORTS_IMG
|
|
|
|
## Package Specification
|
|
|
|
```sql
|
|
PACKAGE XLIB_JASPERREPORTS_IMG AS
|
|
/*
|
|
$Id: xlib_jasperreports_img.pks 71 2017-10-15 16:25:51Z dietmar.aust $
|
|
*/
|
|
----------------------------------------------------------------------------
|
|
-- get_image: retrieves a report image from the server
|
|
----------------------------------------------------------------------------
|
|
PROCEDURE get_image (p_url in varchar2, p_image IN VARCHAR2);
|
|
|
|
procedure test;
|
|
|
|
|
|
END XLIB_JASPERREPORTS_IMG;```
|
|
|
|
## Package Body
|
|
|
|
```sql
|
|
package body xlib_jasperreports_img as
|
|
/*
|
|
$Id: xlib_jasperreports_img.pkb 71 2017-10-15 16:25:51Z dietmar.aust $
|
|
*/
|
|
m_module constant varchar2 (100) := $$plsql_unit;
|
|
|
|
|
|
----------------------------------------------------------------------------
|
|
-- get_image: retrieves a report image from the server
|
|
----------------------------------------------------------------------------
|
|
procedure get_image (p_url in varchar2, p_image in varchar2)
|
|
is
|
|
l_url varchar2 (32767);
|
|
l_proc VARCHAR2 (100) := m_module || '.GET_IMAGE';
|
|
begin
|
|
|
|
-------------------------------------------------------
|
|
-- construct URL
|
|
-------------------------------------------------------
|
|
l_url := p_url;
|
|
-- use image servlet
|
|
l_url := l_url || '_image?image=' || p_image;
|
|
-- use images directory /report_tmp/
|
|
--l_url := l_url || '_tmp/' || p_image;
|
|
|
|
-------------------------------------------------------
|
|
-- call J2EE server
|
|
-------------------------------------------------------
|
|
xlog(l_proc, l_url);
|
|
xlib_http.display_url_raw (p_url => l_url);
|
|
|
|
end;
|
|
|
|
procedure test
|
|
is
|
|
begin
|
|
htp.p('test');
|
|
end;
|
|
|
|
|
|
END XLIB_JASPERREPORTS_IMG;```
|