READ_IMAGE_FILE in Oracle Forms6.0, Code added

Question

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

Answer 1

Sorry, I have no clue as to that might cause this.
but maybe this will help others understanding your 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;good luck!
Message was edited by:
Remco Goris