Skip to Main Content

Oracle Forms

Announcement

For appeals, questions and feedback about Oracle Forums, please email oracle-forums-moderators_us@oracle.com. Technical questions should be asked in the appropriate category. Thank you!

READ_IMAGE_FILE in Oracle Forms6.0, Code added

364677May 24 2006 — edited May 24 2006
Hi,

I have two tif files one is compressed in Lempel-Ziv and another is not. Now READ_IMAGE_FILE does not read the image compresses in Lempel-Ziv file but does read the other tiff files. Also the size of the tiff file with Lempel-Ziv compression greater than 1084KB while the others are 60 to 65 KB.
The operating system being used is Windows2000.

When Button Pressed has the following code

DECLARE

a NUMBER;
b VARCHAR2(2000);
filename VARCHAR2(256);
v_dirname varchar2(255);
v_filename varchar2(255);

BEGIN

GO_BLOCK('CONTROL');
GO_BLOCK('SCANNED_IMAGES');
/*
a := Imaging_DImgScan.OpenScanner(:item('CONTROL.ocx').interface);
a := Imaging_DImgScan.ResetScanner(:item('CONTROL.ocx').interface);
a := Imaging_DImgScan.StartScan(:item('CONTROL.ocx').interface);
b := Imaging_DImgScan.DestimageControl(:item('CONTROL.ocx').interface);
Imaging_DImgScan.DestimageControl(:item('CONTROL.ocx').interface,b);
a := Imaging_DImgScan.CloseScanner(:item('CONTROL.ocx').interface);

GO_BLOCK('SCANNED_IMAGES');

:SYSTEM.MESSAGE_LEVEL := 25;
*/
--filename := GET_FILE_NAME(FILE_FILTER='TIFF');
v_dirname := 'C:\';

v_filename := get_file_name(v_dirname,NULL,'tiff files(*.tif)|*.tif|');
IF v_filename is not null THEN
read_image_file(v_filename,'ANY', 'SCANNED_IMAGES.IMAGE_DATA');
end if;
:global.pagecount := '1';
IF NOT FORM_SUCCESS THEN
--a := Imaging_DImgScan.CloseScanner(:item('CONTROL.ocx').interface);
message(' There was a scanning error. ');
message(' There was a scanning error. ');
:SYSTEM.MESSAGE_LEVEL := 0;
RETURN;
END IF;

:SYSTEM.MESSAGE_LEVEL := 0;

IF :SCANNED_DOCUMENTS.zoom_amount IS NOT NULL THEN

Image_Zoom('SCANNED_IMAGES.image_data', ZOOM_PERCENT, :scanned_documents.zoom_amount);

END IF;


:scanned_images.page_count := to_number(:GLOBAL.PAGECOUNT);
:scanned_images.description := 1;
:scanned_images.page_number := 1;

EXCEPTION

WHEN OTHERS THEN

a := Imaging_DImgScan.CloseScanner(:item('CONTROL.ocx').interface);
message(' Scanner Not Available ');
message(' Scanner Not Available ');

END;


Can anybody help?

Thanks
Comments
Locked Post
New comments cannot be posted to this locked post.
Post Details
Locked on Jun 21 2006
Added on May 24 2006
2 comments
541 views