BLOBS (pdf, doc, bmp, jpg, gif, ppt, xls) to OS SERVER FILE

Question

Hi,
I am using Oracle9i Enterprise Edition Release 9.2.0.6.0 on Unix (SUSE Linux and Solaris).
I have a table which holds a blob which was loaded from a file. This file could be any of the above formats.
I need to create a function which will create a file on the OS from the BLOB in the database.
I created a function which did this using DBMS_LOB to read from the BLOB in chunks and UTL_FILE.PUT_RAW to write to the file.
This works fine for most of the document types apart from BITMAPS.
I have 2 problems:
1. There are extra chars/carriage returns added to the end of the file for all the documents. This seems to cause a problem with opening some of the file types.
2. If the file is a bitmap or contains a bitmap, the file stops at the start of the bitmap so the file is therefore not created.
If anyone can help me with this, I would be very grateful
Thanks,
Julie

Answer 1

I want to retrieve stored pdf,docetc from database, but i m nt able to retrieve it.
Can any1 help me.
1. C:\Documents and Settings\JAVA SAP>set oracle_sid=prd1
C:\Documents and Settings\JAVA SAP>sqlplus
Enter user-name: / as sysdba
Connected to:
Oracle9i Enterprise Edition Release 9.2.0.1.0 - Production
With the Partitioning, OLAP and Oracle Data Mining options
JServer Release 9.2.0.1.0 - Production
2. create table demo
(id int primary key, theBlob blob)
Table created.
3. SQL> create or replace directory my_files as 'E:\'
Directory created.
4. 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','n1.pdf');
dbms_lob.fileopen(l_bfile);
dbms_lob.loadfromfile(l_blob,l_bfile,dbms_lob.getlength(l_bfile));
dbms_lob.fileclose(l_bfile);
end;
PL/SQL procedure successfully completed.
5. CREATE OR REPLACE DIRECTORY my_out_files AS 'E:\';
CREATE OR REPLACE PROCEDURE WriteBLOBToFILE (myid IN number) IS
v_blob BLOB;
blob_length INTEGER;
out_file UTL_FILE.FILE_TYPE;
v_buffer RAW(32767);
chunk_size BINARY_INTEGER := 32767;
blob_position INTEGER := 1;
BEGIN
SELECT theblob INTO v_blob FROM demo WHERE id = myid;
blob_length:=DBMS_LOB.GETLENGTH(v_blob);
out_file := UTL_FILE.FOPEN ('MY_OUT_FILES', 'myid.pdf', 'wb',
chunk_size);
WHILE blob_position <= blob_length LOOP
IF blob_position + chunk_size - 1 > blob_length THEN
chunk_size := blob_length - blob_position + 1;
END IF;
DBMS_LOB.READ(v_blob, chunk_size, blob_position, v_buffer);
UTL_FILE.PUT_RAW(out_file, v_buffer, TRUE);
blob_position := blob_position + chunk_size;
END LOOP;
UTL_FILE.FCLOSE (out_file);
END;
6. SET serveroutput ON
EXEC WriteBLOBToFILE(1);
I tired this also.
declare
i1 blob;
i2 number;
amt number := 10000;
len number;
my_vr raw(10000);
l_output utl_file.file_type;
p_dir varchar2(30) default 'TEST_DIR';
p_file varchar2(30) default 'gs_test1.doc';
begin
-- get the blob locator
l_output := utl_file.fopen(p_dir, p_file, 'w', 32760);
for l_cur in (SELECT id,theBlob from demo where rownum = 1 order by id)
loop
len := DBMS_LOB.GETLENGTH(l_cur.theBlob);
i1 := l_cur.theBlob ;
dbms_output.put_line('Length of the Column : ' || to_char(len));
i2 := 1;
if len < 10000 then
DBMS_LOB.READ(i1,len,i2,my_vr);
utl_file.put(l_output, my_vr );
else
DBMS_LOB.READ(i1,amt,i2,my_vr);
utl_file.put(l_output, UTL_RAW.CAST_TO_VARCHAR2(my_vr) );
end if;
i2 := i2 + amt;
while (i2 < len) loop -- loop till entire data is fetched
dbms_output.put_line('i2 : ' || to_char(i2));
DBMS_LOB.READ(i1,amt,i2,my_vr);
utl_file.put(l_output, UTL_RAW.CAST_TO_VARCHAR2(my_vr) );
utl_file.fflush(l_output);
i2 := i2 + amt ;
end loop;
utl_file.fclose(l_output);
end loop;
end ;