Retrieve image file from FORMS 10G using BLOB

Question

Dear all,
i inserted one record in a table for the following procedure.
Create Or Replace Procedure Blob_Xl Is
l_blob Blob;
l_bfile Bfile;
Begin
Insert Into LOB_TABLE Values ( 'TEST1', Empty_Blob() )
Returning BLOBDATA Into l_blob;
l_bfile := Bfilename( 'TEST1', 'I.JPG');
dbms_lob.fileopen( l_bfile,dbms_lob.file_readonly );
dbms_lob.loadfromfile( l_blob, l_bfile, dbms_lob.getlength( l_bfile ) );
dbms_lob.fileclose( l_bfile );
Commit;
End Blob_Xl;
after that
record also inserted, i check thro count.
i try to retrieve that image from that table for using following procedure, in that procedure i called from one button in forms 10g and wrote in when button pressed , when i clicked it wont show any images.
where i am wrong?
Create Or Replace Procedure get_img As
vblob Blob;
buffer Raw(32000);
buffer_size Integer := 32000;
offset Integer := 1;
Length Number;
Begin
owa_util.mime_header('image/JPG');
Select BLOBDATA Into vblob From LOB_TABLE Where No = 'TEST1';
Length := dbms_lob.getlength(vblob);
While offset < Length Loop
dbms_lob.Read(vblob, buffer_size, offset, buffer);
htp.prn(utl_raw.cast_to_varchar2(buffer));
offset := offset + buffer_size;
End Loop;
Exception
When Others Then
htp.p(Sqlerrm);
End;
/

Answer 1

hi
try something like this for retrieve.May it helps u.
DECLARE
directions CLOB;
directions_1 VARCHAR2(300);
directions_2 VARCHAR2(300);
chars_read_1 BINARY_INTEGER;
chars_read_2 BINARY_INTEGER;
offset INTEGER;
BEGIN
--Retrieve the LOB locator inserted previously
SELECT falls_directions
INTO directions
FROM waterfalls
WHERE falls_name='Munising Falls';
--Begin reading with the first character
offset := 1;
--Attempt to read 229 characters of directions, chars_read_1 will
--be updated with the actual number of characters read
chars_read_1 := 229;
DBMS_LOB.READ(directions, chars_read_1, offset, directions_1);
--If we read 229 characters, update the offset and try to
--read 255 more.
IF chars_read_1 = 229 THEN
offset := offset + chars_read_1;
chars_read_2 := 255;
DBMS_LOB.READ(directions, chars_read_2, offset, directions_2);
ELSE
chars_read_2 := 0;
directions_2 := '';
END IF;
--Display the total number of characters read
DBMS_OUTPUT.PUT_LINE('Characters read = ' ||
TO_CHAR(chars_read_1+chars_read_2));
--Display the directions
DBMS_OUTPUT.PUT_LINE(directions_1);
DBMS_OUTPUT.PUT_LINE(directions_2);
END;
sarah
Edited by: S@R@h on Oct 7, 2009 11:29 PM