Home » Developer & Programmer » Forms » How to show a word document stored in a BLOB column? (through forms 6i) (Forms 6i, windows xp)
How to show a word document stored in a BLOB column? (through forms 6i) [message #426801] Mon, 19 October 2009 14:48 Go to next message
alexduailibi
Messages: 5
Registered: October 2009
Location: Brasil
Junior Member

Hi guys.

I'm trying to show the content of a MS Word document through forms 6i. This document was stored as byte-for-byte by an application developed in .Net to an BLOB column (oracle table). Anybody could help me in how to show this document using Internal Persistend LOBs and through forms 6i?

I've been searching for it a lot of time without success...

Thank you in advance.
Alex.
Re: How to show a word document stored in a BLOB column? (through forms 6i) [message #426838 is a reply to message #426801] Tue, 20 October 2009 01:28 Go to previous messageGo to next message
lancer26
Messages: 52
Registered: May 2006
Location: Pakistan
Member

use DBMS_LOB package.
Re: How to show a word document stored in a BLOB column? (through forms 6i) [message #426991 is a reply to message #426838] Tue, 20 October 2009 08:56 Go to previous messageGo to next message
alexduailibi
Messages: 5
Registered: October 2009
Location: Brasil
Junior Member

I've tried to use this package, but I don't know how to use it to show word documents. Could anybody give me a sample?
Re: How to show a word document stored in a BLOB column? (through forms 6i) [message #427108 is a reply to message #426991] Wed, 21 October 2009 03:22 Go to previous message
lancer26
Messages: 52
Registered: May 2006
Location: Pakistan
Member

use this as sample
DECLARE
i1 BLOB;
len NUMBER;
my_vr RAW(10000);
i2 NUMBER;
i3 NUMBER := 10000;
BEGIN
-- get the blob locator
SELECT c2
INTO i1
FROM lob_tab
WHERE c1 = 2;

-- find the length of the blob column
len := dbms_lob.getlength(i1);
dbms_output.put_line('Column Length: ' || TO_CHAR(len));

-- Read 10000 bytes at a time
i2 := 1;
IF len < 10000 THEN
-- If the col length is < 10000
dbms_lob.read(i1,len,i2,my_vr);

outputstring('p:\bfiles\ravi.bmp',
rawtohex(my_vr),'wb',2*len);

-- You have to convert the data to rawtohex format.
-- Directly sending the buffer
-- data will not work
-- That is the reason why we are sending the length as
-- the double the size of the data read

dbms_output.put_line('Read ' || to_char(len) || 'Bytes');
ELSE
-- If the col length is > 10000
dbms_lob.read(i1,i3,i2,my_vr);

outputstring('p:\bfiles\ravi.bmp',
rawtohex(my_vr),'wb',2*i3);

dbms_output.put_line('Read ' || TO_CHAR(i3) || ' Bytes ');
END IF;

i2 := i2 + 10000;

WHILE (i2 < len )
LOOP
-- loop till entire data is fetched
dbms_lob.read(i1,i3,i2,my_vr);

dbms_output.put_line('Read ' || TO_CHAR(i3+i2-1) ||
' Bytes ');

outputstring('p:\bfiles\ravi.doc',
rawtohex(my_vr),'ab',2*i3);

i2 := i2 + 10000 ;
END LOOP;
END;

and try this...



DECLARE
xmlstr BLOB;
warn VARCHAR2(400);
v_file Utl_File.file_type;
line_buf RAW(32767);
maxbufsize BINARY_INTEGER := 32767;
amount BINARY_INTEGER;
offset varchar2(40);
dir varchar2(50) := 'XMLP_DIR';
filename varchar2(50) := 'OUTPUTFILE.rtf';
bsize NUMBER;
BEGIN
v_file := utl_file.fopen(dir,filename,'w',maxbufsize);
SELECT column1 INTO xmlstr FROM my_table WHERE name = 'RTFDOCUMENT';


bsize := dbms_lob.getLength(xmlstr);
dbms_output.put_line(bsize);
amount := maxbufsize;
offset := 1;
WHILE (offset<bsize) LOOP
DBMS_LOB.read(xmlstr,amount,offset,line_buf);
utl_file.put_raw(v_file,line_buf, TRUE);
offset := offset+amount;
Dbms_Output.put_line(offset);
END LOOP;
utl_file.fclose(v_file);
END;


Previous Topic: Lost connection to database from application
Next Topic: NEWBIE here
Goto Forum:
  


Current Time: Sun Dec 11 08:10:32 CST 2016

Total time taken to generate the page: 0.20650 seconds