Oracle中Blob转Clob

-- 先创建Blog转换为Clob的function
CREATE   OR   REPLACE   FUNCTION  BlobToClob(blob_in  IN  BLOB)  RETURN  CLOB  AS
    v_clob    CLOB;
    v_varchar  VARCHAR2 ( 32767 );
    v_start   PLS_INTEGER : =   1 ;
    v_buffer  PLS_INTEGER : =   32767 ;
BEGIN
    DBMS_LOB.CREATETEMPORARY(v_clob, TRUE);
     FOR  i  IN   1  .. CEIL(DBMS_LOB.GETLENGTH(blob_in)  /  v_buffer) LOOP
        v_varchar : =  UTL_RAW.CAST_TO_VARCHAR2(DBMS_LOB.SUBSTR(blob_in,
                                                              v_buffer,
                                                              v_start));
        DBMS_LOB.WRITEAPPEND(v_clob, LENGTH(v_varchar), v_varchar);
        --DBMS_OUTPUT.PUT_LINE(v_varchar);
        v_start : =  v_start  +  v_buffer;
     END  LOOP;
     RETURN  v_clob;
END  BlobToClob;