-- Bild in PL/SQL anzeigen
create or replace procedure showThumbnail(p_id NUMBER) 
as  
 pict1 ORDSYS.ORDImage;  
 pict2 ORDSYS.ORDImage;  
 pic_name VARCHAR2(20);   
 len NUMBER;  
 buf_size INTEGER := 32000;  
 buf RAW(32000);  
 offset INTEGER := 1;  
 vBlob BLOB; 
 BEGIN 	
   -- Entsprechenden Datensatz holen 	
   SELECT  S.image_name , S.image_s1 , S.image_s2          
     INTO  pic_name, pict1, pict2 
	 FROM myImg S 
   WHERE S.image_id=p_id;       	
   -- lade aus dem ORDImage object den Blob File         
   vBlob:=pict2.GETCONTENT;  	
   -- hole und setze den  ORDImage's mime type         
   OWA_UTIL.MIME_HEADER(pict2.getMimeType);
   -- content länge bestimmen         
   len:=pict2.GETCONTENTLENGTH; 	 	
   -- lesen und anzeigen         
   WHILE offset < len LOOP 		
    DBMS_LOB.READ(vblob,buf_size,offset,buf);                 
	HTP.PRN(UTL_RAW.CAST_TO_VARCHAR2(buf)); 		
	offset := offset + buf_size;         
   END LOOP;        
 EXCEPTION 	
  WHEN OTHERS THEN 
    HTP.P(SQLCODE || SQLERRM);   
END; 
/