29 lines
1016 B
SQL
Executable File
29 lines
1016 B
SQL
Executable File
-- check if given file is actually an image
|
|
|
|
declare
|
|
l_is_image boolean;
|
|
begin
|
|
debug_pkg.debug_on;
|
|
l_is_image := image_util_pkg.is_image (file_util_pkg.get_blob_from_file('DEVTEST_TEMP_DIR', 'some_image.jpg'));
|
|
debug_pkg.print('result (should be true)', l_is_image);
|
|
l_is_image := image_util_pkg.is_image (file_util_pkg.get_blob_from_file('DEVTEST_TEMP_DIR', 'some_text_file.txt'));
|
|
debug_pkg.print('result (should be false)', l_is_image);
|
|
l_is_image := image_util_pkg.is_image (file_util_pkg.get_blob_from_file('DEVTEST_TEMP_DIR', 'image74.png'), p_format => image_util_pkg.g_format_gif);
|
|
debug_pkg.print('result (should be false)', l_is_image);
|
|
end;
|
|
|
|
|
|
-- get image info
|
|
|
|
declare
|
|
l_info image_util_pkg.t_image_info;
|
|
begin
|
|
debug_pkg.debug_on;
|
|
l_info := image_util_pkg.get_image_info (file_util_pkg.get_blob_from_file('DEVTEST_TEMP_DIR', 'some_image.jpg'));
|
|
debug_pkg.printf('type = %1, height = %2, width = %3', l_info.type, l_info.height, l_info.width);
|
|
end;
|
|
|
|
|
|
|
|
|