Hi,

I'm trying to get some attachments are base64 with apex I always jump when opening decryption errors or open encrypted.

My code is:

CREATE OR REPLACE /* Formatted on 2012/09/18 10:10 (Formatter Plus v4.8.8) */
FUNCTION SYSTEM.blob_to_blob_base64 (p_data IN BLOB)
   RETURN BLOB
IS
   l_bufsize   INTEGER     := 16386;
   l_buffer    RAW (16386);
   l_offset    INTEGER     DEFAULT 1;
   l_result    BLOB;
BEGIN
   DBMS_LOB.createtemporary (l_result, FALSE, DBMS_LOB.CALL);

   LOOP
      BEGIN
         DBMS_LOB.READ (p_data, l_bufsize, l_offset, l_buffer);
      EXCEPTION
         WHEN NO_DATA_FOUND
         THEN
            EXIT;
      END;

      l_offset := l_offset + l_bufsize;
      DBMS_LOB.append
         (l_result,
          to_blob
             (UTL_RAW.cast_to_raw
                 (UTL_RAW.cast_to_varchar2 (UTL_ENCODE.base64_encode (l_buffer)
                                           )
                 )
             )
         );
   END LOOP;

   RETURN l_result;
END;
/


CREATE OR REPLACE /* Formatted on 2012/09/18 10:10 (Formatter Plus v4.8.8) */
FUNCTION SYSTEM.blob_to_clob_base64 (p_data IN BLOB)
   RETURN CLOB
IS
   l_bufsize   INTEGER     := 16386;
   l_buffer    RAW (16386);
   l_offset    INTEGER     DEFAULT 1;
   l_result    CLOB;
BEGIN
   DBMS_LOB.createtemporary (l_result, FALSE, DBMS_LOB.CALL);

   LOOP
      BEGIN
         DBMS_LOB.READ (p_data, l_bufsize, l_offset, l_buffer);
      EXCEPTION
         WHEN NO_DATA_FOUND
         THEN
            EXIT;
      END;

      l_offset := l_offset + l_bufsize;
      DBMS_LOB.append
         (l_result,
          TO_CLOB
                 (UTL_RAW.cast_to_varchar2 (UTL_ENCODE.base64_encode (l_buffer)
                                           )
                 )
         );
   END LOOP;

   RETURN l_result;
END;
/


GRANT EXECUTE ON SYSTEM.BLOB_TO_BLOB_BASE64 TO GESORA;

GRANT EXECUTE ON SYSTEM.BLOB_TO_CLOB_BASE64 TO GESORA;

Thanks

Hi,

I'm trying to get some attachments are base64 with apex I always jump when opening decryption errors or open encrypted.

My code is:

CREATE OR REPLACE /* Formatted on 2012/09/18 10:10 (Formatter Plus v4.8.8) */
FUNCTION SYSTEM.blob_to_blob_base64 (p_data IN BLOB)
   RETURN BLOB
IS
   l_bufsize   INTEGER     := 16386;
   l_buffer    RAW (16386);
   l_offset    INTEGER     DEFAULT 1;
   l_result    BLOB;
BEGIN
   DBMS_LOB.createtemporary (l_result, FALSE, DBMS_LOB.CALL);

   LOOP
      BEGIN
         DBMS_LOB.READ (p_data, l_bufsize, l_offset, l_buffer);
      EXCEPTION
         WHEN NO_DATA_FOUND
         THEN
            EXIT;
      END;

      l_offset := l_offset + l_bufsize;
      DBMS_LOB.append
         (l_result,
          to_blob
             (UTL_RAW.cast_to_raw
                 (UTL_RAW.cast_to_varchar2 (UTL_ENCODE.base64_encode (l_buffer)
                                           )
                 )
             )
         );
   END LOOP;

   RETURN l_result;
END;
/


CREATE OR REPLACE /* Formatted on 2012/09/18 10:10 (Formatter Plus v4.8.8) */
FUNCTION SYSTEM.blob_to_clob_base64 (p_data IN BLOB)
   RETURN CLOB
IS
   l_bufsize   INTEGER     := 16386;
   l_buffer    RAW (16386);
   l_offset    INTEGER     DEFAULT 1;
   l_result    CLOB;
BEGIN
   DBMS_LOB.createtemporary (l_result, FALSE, DBMS_LOB.CALL);

   LOOP
      BEGIN
         DBMS_LOB.READ (p_data, l_bufsize, l_offset, l_buffer);
      EXCEPTION
         WHEN NO_DATA_FOUND
         THEN
            EXIT;
      END;

      l_offset := l_offset + l_bufsize;
      DBMS_LOB.append
         (l_result,
          TO_CLOB
                 (UTL_RAW.cast_to_varchar2 (UTL_ENCODE.base64_encode (l_buffer)
                                           )
                 )
         );
   END LOOP;

   RETURN l_result;
END;
/


GRANT EXECUTE ON SYSTEM.BLOB_TO_BLOB_BASE64 TO GESORA;

GRANT EXECUTE ON SYSTEM.BLOB_TO_CLOB_BASE64 TO GESORA;

Thanks