How to use Procedure in form 6I to add piture in Table

Question

Hi i create a Table which is
create table demo
( id        int primary key,
  theBlob    blob
/and Create a directory
create or replace directory my_files as 'c:\Shah';I add a picture in database through this code
declare
    l_blob    blob;
    l_bfile    bfile;
begin
    insert into demo values ( 1, empty_blob() )
    returning theBlob into l_blob;
    l_bfile := bfilename( 'MY_FILES', 'water.gif' );
    dbms_lob.fileopen( l_bfile );
    dbms_lob.loadfromfile( l_blob, l_bfile,
                               dbms_lob.getlength( l_bfile ) );
    dbms_lob.fileclose( l_bfile );
end;
/its add successfully and show me in Form 6I and Report 6I but i want to add picture in database through Form 6I
So i create a Procedure_body
with this code But its give me error
The folder is Read_only i check the folder its not read only but still same error
Any other idea how to add picture through form
Regards
Shahzaib ismail

Answer 1

If you want to save only pictures in BLOB column, you can do it directly in forms, without using a procedure
When you create a block based on a table, BLOB column is automatically displayed as <image>.
Use following code to select the image you want to save.
declare
filename VARCHAR2(256);
begin
filename := GET_FILE_NAME(File_Filter=> 'All Files (*.*)|*.*|');
READ_IMAGE_FILE(filename, 'ANY', 'BLOCK_NAME.COLUMN_NAME');
end;
When you will commit the data in form. your image will be saved automatically.
Hope it helps