We want display image by using plsql but image is not display properly

Question

DECLARE
p_dir varchar2(100):='/prd/rcms/test/bala_test/';
p_file varchar2(100):= 'sam.png';
dest_dir varchar2(100):='/prd/rcms/test/bala_test/';
dest_file varchar2(100):='test_image.html';
dest_handle UTL_FILE.file_type;
p_clob CLOB;
l_bfile BFILE;
l_step PLS_INTEGER := 2074;
v_string varchar2(4000):='';
BEGIN
dbms_output.put_line('Encoding starts');
l_bfile := BFILENAME('BFILE_DIR', p_file);
dbms_output.put_line('File is going to open');
DBMS_LOB.fileopen(l_bfile, DBMS_LOB.file_readonly);
FOR i IN 0 .. TRUNC((DBMS_LOB.getlength(l_bfile) - 1 )/l_step) LOOP
dbms_output.put_line('Inside encodeing');
p_clob := UTL_RAW.cast_to_varchar2(UTL_ENCODE.base64_encode(DBMS_LOB.substr(l_bfile, l_step, i * l_step + 1)));
p_clob := p_clob||v_string;
dbms_output.put_line(p_clob||'<------------- '||i);
END LOOP;
dbms_output.put_line('Base64 encoded');
p_clob:= '<img src="data:image.png;base64,'||p_clob||'" width="32" height="32">;
dest_handle := UTL_FILE.fopen(p_dir, dest_file, 'w', 32767);
UTL_FILE.put(dest_handle, p_clob);
dbms_output.put_line(p_clob);
DBMS_LOB.fileclose(l_bfile);
dbms_output.put_line('Encoding ends successfully');
exception
when others then
dbms_output.put_line('Error : '||SQLERRM);
end;
/

Answer 1

972021 wrote:
DECLARE
p_dir varchar2(100):='/prd/rcms/test/bala_test/';
p_file varchar2(100):= 'sam.png';
dest_dir varchar2(100):='/prd/rcms/test/bala_test/';
dest_file varchar2(100):='test_image.html';
dest_handle UTL_FILE.file_type;
p_clob CLOB;
l_bfile BFILE;
l_step PLS_INTEGER := 2074;
v_string varchar2(4000):='';
BEGIN
dbms_output.put_line('Encoding starts');
l_bfile := BFILENAME('BFILE_DIR', p_file);
dbms_output.put_line('File is going to open');
DBMS_LOB.fileopen(l_bfile, DBMS_LOB.file_readonly);
FOR i IN 0 .. TRUNC((DBMS_LOB.getlength(l_bfile) - 1 )/l_step) LOOP
dbms_output.put_line('Inside encodeing');
p_clob := UTL_RAW.cast_to_varchar2(UTL_ENCODE.base64_encode(DBMS_LOB.substr(l_bfile, l_step, i * l_step + 1)));
p_clob := p_clob||v_string;
dbms_output.put_line(p_clob||'<------------- '||i);
END LOOP;
dbms_output.put_line('Base64 encoded');
p_clob:= '<img src="data:image.png;base64,'||p_clob||'" width="32" height="32">;
dest_handle := UTL_FILE.fopen(p_dir, dest_file, 'w', 32767);
UTL_FILE.put(dest_handle, p_clob);
dbms_output.put_line(p_clob);
DBMS_LOB.fileclose(l_bfile);
dbms_output.put_line('Encoding ends successfully');
exception
when others then
dbms_output.put_line('Error : '||SQLERRM);
end;
/You are trying to output a clob using UTL_FILE.PUT which takes a varchar2 parameter, and thus has a limit of 32767 bytes. That could be problematic unless you know you are outputting less than 32K, in which case you should just store your data in a varchar2 in the first place.
You could use multiple UTL_FILE.PUT statements in a loop outputting up to 32767 bytes at a time, though you have to flush the UTL_FILE buffer to ensure you don't exceed 32K before flushing.
Alternatively, you can output CLOB data using some other techniques such as...
DBMS_XSLPROCESSOR.clob2file(
  cl => p_clob
, flocation => p_dir
, fname => dest_file
);However, it's not even clear if that is causing you a problem, as we don't have your data
And for gawds sake, get rid of the stupid exception handler:
exception
when others then
dbms_output.put_line('Error : '||SQLERRM);