Attachment base64 with apex

Question

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

Answer 1

Something like
function base64encode( p_blob blob )
return clob
is
  t_rv clob;
  t_step pls_integer := 24573; -- make sure you set a multiple of 3 not higher than 24573
begin
  for i in 0 .. trunc( ( dbms_lob.getlength( p_blob ) - 1 ) / t_step )
  loop
    t_rv := t_rv || utl_raw.cast_to_varchar2( utl_encode.base64_encode( dbms_lob.substr( p_blob, t_step, i * t_step + 1 ) ) );
  end loop;
  return t_rv;
end;