Problems with moving files to ora directory UTL_FILE.PUT_RAW - ORA-29285

Question

hi,
i'm using apex 4.1
i have a procedure which moves my file from apex_application_files to ORA directory.
if i choose a text file or small word document which is 1kb, it works. but if i have pdf file (85kb) or word document (16kb) it gives me ORA-29285: file write error
what's my problem?
PROCEDURE put_file_to_server (p_filename IN VARCHAR2,p_cert_type IN VARCHAR2,p_cert_pk IN NUMBER)
AS
l_file UTL_FILE.file_type;
l_blob_len INTEGER;
l_pos INTEGER := 1;
l_amount BINARY_INTEGER := 32767;
l_buffer RAW (32767);
v_new_filename VARCHAR2(100);
v_bfile BFILE ;
BEGIN
-- delete from apex_application_files;
--Neuen Dateinamen generieren
v_new_filename := p_cert_type||'_'||p_cert_pk;
v_bfile := BFILENAME (v_directory, v_new_filename);
--Datei erstellen
l_file := UTL_FILE.fopen(v_directory,v_new_filename,'w');
IF DBMS_LOB.FILEEXISTS (v_bfile) = 1 THEN
cert_log_pkg.m(p_module => 'CERT_FILE_PKG.PUT_FILE_TO_SERVER',p_msg => 'File exists');
FOR rec IN (select blob_content lblob from apex_application_files where rownum = 1)
LOOP
l_blob_len := DBMS_LOB.getlength(rec.lblob);
cert_log_pkg.m(p_module => 'CERT_FILE_PKG.PUT_FILE_TO_SERVER',p_msg => 'Filesize is '||l_blob_len);
WHILE l_pos < l_blob_len LOOP
DBMS_LOB.read (rec.lblob, l_amount, l_pos, l_buffer);
UTL_FILE.put_raw (l_file, l_buffer, FALSE);
l_pos := l_pos + l_amount;
END LOOP;
COMMIT;
END LOOP;
--Datei schließen
UTL_FILE.fclose(l_file);
else
cert_log_pkg.m(p_module => 'CERT_FILE_PKG.PUT_FILE_TO_SERVER',p_msg => 'Datei doesn't exist');
end if;
EXCEPTION
WHEN OTHERS
THEN
-- Close the file if something goes wrong.
IF UTL_FILE.is_open (l_file) THEN
UTL_FILE.fclose (l_file);
END IF;
delete from apex_application_files;
RAISE;
delete from apex_application_files;
END put_file_to_server;

Answer 1

Sorry but din't test this...Can you give it a try and see if this works?
PROCEDURE put_file_to_server(
    p_filename  IN VARCHAR2,
    p_cert_type IN VARCHAR2,
    p_cert_pk   IN NUMBER)
AS
  l_file UTL_FILE.file_type;
  l_blob_len INTEGER;
  l_pos      INTEGER      := 1;
  l_amount BINARY_INTEGER := 32767;
  l_buffer RAW (32767);
  v_new_filename VARCHAR2(100);
  v_bfile BFILE ;
  vblob BLOB;
  vstart NUMBER := 1;
  my_vr RAW(32000);
  bytelen NUMBER := 32000;
  LEN     NUMBER;
BEGIN
  -- delete from apex_application_files;
  --Neuen Dateinamen generieren
  v_new_filename := p_cert_type||'_'||p_cert_pk;
  v_bfile        := BFILENAME (v_directory, v_new_filename);
  --Datei erstellen
  --l_file                          := UTL_FILE.fopen(v_directory,v_new_filename,'w');
  l_file                          := UTL_FILE.fopen(v_directory,v_new_filename, 'WB', 32760);
  IF DBMS_LOB.FILEEXISTS (v_bfile) = 1 THEN
    cert_log_pkg.m(p_module => 'CERT_FILE_PKG.PUT_FILE_TO_SERVER',p_msg => 'File exists');
    FOR rec IN
    (SELECT blob_content lblob,
      LENGTH(blob_content) LEN
    FROM apex_application_files
    WHERE rownum = 1
    LOOP
      cert_log_pkg.m(p_module => 'CERT_FILE_PKG.PUT_FILE_TO_SERVER',p_msg => 'Filesize is '|| LEN);
      IF LEN < 32760 THEN
        utl_file.put_raw(l_file,lblob);
        utl_file.fflush(l_file);
      ELSE -- write in pieces
        vstart      := 1;
        WHILE vstart < LEN
        LOOP
          dbms_lob.read(vblob,bytelen,vstart,my_vr);
          utl_file.put_raw(l_file,my_vr);
          utl_file.fflush(l_file);
          -- set the start position for the next cut
          vstart := vstart + bytelen;
          -- set the end position if less than 32000 bytes
          x         := x - bytelen;
          IF x       < 32000 THEN
            bytelen := x;
          END IF;
        END LOOP;
      END IF;
     END LOOP;
    ELSE
      cert_log_pkg.m(p_module => 'CERT_FILE_PKG.PUT_FILE_TO_SERVER',p_msg => 'Datei doesnt exist');
    END IF;
    utl_file.fclose(l_file);
  EXCEPTION
  WHEN OTHERS THEN
    -- Close the file if something goes wrong.
    IF UTL_FILE.is_open (l_file) THEN
      UTL_FILE.fclose (l_file);
    END IF;
    DELETE FROM apex_application_files;
    RAISE;
    DELETE FROM apex_application_files;
  END put_file_to_server;Edited by: Vitor Rodrigues on 17/Fev/2012 12:03