45 lines
1.2 KiB
Plaintext
Executable File
45 lines
1.2 KiB
Plaintext
Executable File
create or replace package image_util_pkg
|
|
as
|
|
|
|
/*
|
|
|
|
Purpose: Package handles images
|
|
|
|
Remarks: Based on image parsing code from Anton Scheffer's AS_PDF3 package
|
|
|
|
Who Date Description
|
|
------ ---------- --------------------------------
|
|
MBR 23.06.2012 Created
|
|
|
|
*/
|
|
|
|
g_format_jpg constant varchar2(3) := 'jpg';
|
|
g_format_png constant varchar2(3) := 'png';
|
|
g_format_gif constant varchar2(3) := 'gif';
|
|
|
|
|
|
type t_image_info is record (
|
|
adler32 varchar2(8),
|
|
width pls_integer,
|
|
height pls_integer,
|
|
color_res pls_integer,
|
|
color_tab raw(768),
|
|
greyscale boolean,
|
|
pixels blob,
|
|
type varchar2(5),
|
|
nr_colors pls_integer,
|
|
transparency_index pls_integer
|
|
);
|
|
|
|
-- returns true if blob is image
|
|
function is_image (p_file in blob,
|
|
p_format in varchar2 := null) return boolean;
|
|
|
|
-- get image information
|
|
function get_image_info (p_file in blob) return t_image_info;
|
|
|
|
|
|
end image_util_pkg;
|
|
/
|
|
|