HOW TO WRITE ,SAVE A FILE IN BLOB COLUMN

Question

Hi,
I have to write a simple utl file and store it in a column of blob data tye..i hav written a piece of code..it shows invalid path as error..please kindly help me
create or replace
procedure simp_file as
fhandler                    utl_file.file_type;
f_dir                    VARCHAR2(100);
f_file                    VARCHAR2(100);
BEGIN
f_dir := 'C:/utl/';
f_file := 'Kings.txt';
     BEGIN
          fhandler := utl_file.fopen(f_dir,f_file,'a');
     EXCEPTION
     WHEN utl_file.invalid_path THEN
          f_dir := 'C:/utl/';
          fhandler := utl_file.fopen(f_dir,f_file,'a');
     END;
     utl_file.new_line(fhandler,1);
utl_file.putf(fhandler,'hi');      
utl_file.fclose(fhandler);
EXCEPTION
WHEN UTL_FILE.INVALID_PATH THEN
IF (utl_file.is_open(fhandler)) THEN
utl_file.fclose(fhandler);
END IF;
raise_application_error(-20101, 'Invalid path');
END simp_file;

Answer 1

May be..
SQL> CREATE TABLE test_blob (id INTEGER,blob_col BLOB);
Table created.
SQL> DECLARE
  2    file_handle UTL_FILE.file_type;
  3    v_fname     VARCHAR2(20) := 'mytest.txt';
  4    buffer      VARCHAR2(32767);
  5  BEGIN
  6    file_handle := UTL_FILE.fopen('TEST_DIR', v_fname, 'W');
  7    buffer      := 'This is first line';
  8    UTL_FILE.put_line(file_handle, buffer, TRUE);
  9    buffer := 'This is second line';
10    UTL_FILE.put_line(file_handle, buffer, TRUE);
11    buffer := 'This is third line';
12    UTL_FILE.put_line(file_handle, buffer, TRUE);
13    UTL_FILE.fclose(file_handle);
14  END;
15  /
PL/SQL procedure successfully completed.
SQL> DECLARE
  2    v_src_loc BFILE := BFILENAME('TEST_DIR', 'mytest.txt');
  3    v_amount  INTEGER;
  4    v_b       BLOB;
  5  BEGIN
  6    DBMS_LOB.OPEN(v_src_loc, DBMS_LOB.LOB_READONLY);
  7    v_amount := DBMS_LOB.GETLENGTH(v_src_loc);
  8    INSERT INTO test_blob
  9    VALUES
10      (1, EMPTY_BLOB())
11    RETURNING blob_col INTO v_b;
12    DBMS_LOB.LOADFROMFILE(v_b, v_src_loc, v_amount);
13    DBMS_LOB.CLOSE(v_src_loc);
14  END;
15  /
PL/SQL procedure successfully completed.
SQL> commit;
Commit complete.Then display
SQL> DECLARE
  2      v_lob_loc BLOB;
  3      CURSOR cur IS
  4         SELECT id, blob_col FROM test_blob;
  5       v_rec test_blob%ROWTYPE;
  6     BEGIN
  7       OPEN cur;
  8       LOOP
  9         FETCH cur
10          INTO v_rec;
11        v_lob_loc := v_rec.blob_col;
12         DBMS_OUTPUT.PUT_LINE('The length is: ' ||
13                              DBMS_LOB.GETLENGTH(v_lob_loc));
14         DBMS_OUTPUT.PUT_LINE('The ID is: ' || v_rec.id);
15         DBMS_OUTPUT.PUT_LINE('The blob is read: ' ||
16                              UTL_RAW.CAST_TO_VARCHAR2(DBMS_LOB.SUBSTR(v_lob_loc,
17                                                                       200,
18                                                                       1)));
19         EXIT WHEN cur%NOTFOUND;
20       END LOOP;
21       CLOSE cur;
22   END;
23  /
The length is: 61
The ID is: 1
The blob is read: This is first line
This is second line
This is third line
The length is: 61
The ID is: 1
The blob is read: This is first line
This is second line
This is third line
PL/SQL procedure successfully completed.