mostrar una imagen que se encuentra en un BLOB

Carolin
01 de Abril del 2005
hola

sera que hay alguien que me pueda ayudar, necesito extraer una imagen que se encuentra en un campo blob de la base de datos, estoy probando un codigo pero a la hora de imprimirlo no lo realiza y lo estoy haciendo con un htp.print('ablob');
declare
ablob blob;
abfile bfile := bfilename('CARLDIR', 'cc'); -- Get a pointer to the file.
amount integer;
asize integer;
begin
select blob_col into ablob from blobtab where index_col = 1;
dbms_lob.fileopen(abfile);
asize := dbms_lob.getlength(abfile);
dbms_output.put_line('Size of input file: ' || asize);
dbms_lob.loadfromfile(ablob, abfile, asize);
dbms_output.put_line('After loadfromfile');
asize := dbms_lob.getlength(ablob);
dbms_output.put_line('Size of blob: ' || asize);
exception
when others then
dbms_output.put_line('An exception occurred');
dbms_output.put_line(sqlcode || sqlerrm);
htp.print('ablob');
end;

si me pueden ayudar por fa lo necesito como de urgencia, muchas gracias