Script to Load file from Directory to Blob column

create or replace PROCEDURE load_file(

    pi_id  IN INTEGER,

    pfname IN
VARCHAR2)

IS

  SRC_FILE bfile;

  dst_file BLOB:=
EMPTY_BLOB();

  lgh_file
BINARY_INTEGER;

BEGIN

  src_file :=
bfilename(‘dir’, pfname);

  INSERT

  INTO image_store

   
(id_pk,fname,image)

    VALUES

   
(pi_id,pfname,EMPTY_BLOB())

  RETURNING image

  INTO dst_file;

 
DBMS_LOB.OPEN(src_file, dbms_lob.file_readonly);

  lgh_file :=
dbms_lob.getlength(src_file);

 
DBMS_LOB.LOADFROMFILE(DST_FILE, SRC_FILE, LGH_FILE);

 
–DBMS_LOB.FREETEMPORARY(dst_file);– ADDED BY RAJAN

  COMMIT;

 
dbms_lob.close(src_file);

END load_file;