oracle实现读取文件，将文件用clob类型存入数据库

create or replace function getClobDocument(filename in varchar2, charset in varchar2 default NULL)
return CLOB deterministic
is
 file  bfile := bfilename('d:/',filename);   
 charContent     CLOB := ' ';   
 targetFile      bfile;   
 lang_ctx        number := DBMS_LOB.default_lang_ctx;   
 charset_id      number := 0;   
 src_offset      number := 1 ;   
 dst_offset      number := 1 ;   
 warning         number;
 begin   if charset is not null then      
  charset_id := NLS_CHARSET_ID(charset);  
 end if;  
 targetFile := file;  
 DBMS_LOB.fileopen(targetFile, DBMS_LOB.file_readonly);  
 DBMS_LOB.LOADCLOBFROMFILE(charContent, targetFile, BMS_LOB.getLength(targetFile), src_offset,dst_offset,charset_id, lang_ctx,warning);  
 DBMS_LOB.fileclose(targetFile);  
return charContent; end; /