SQL>create table imagetab (imagfile blob)

SQL>create or replace directory 
    imagefiles as 'c:\oracle'

SQL>  declare
  2    v_bfile BFILE;
  3    v_blob  BLOB;
  4  begin
  5    insert into imagetab (imagfile)
  6    values (empty_blob())
  7    return imagfile into v_blob;
  8    v_bfile := BFILENAM('IMAGEFILES', 
       'pic.jpeg');
  9    Dbms_Lob.fileopen (v_bfile, Dbms_Lob.File_Readonly);
 10    Dbms_Lob.Loadfromfile 
       (v_blob, v_bfile,Dbms_Lob.Getlength(v_bfile));
 11    Dbms_Lob.Fileclose(v_bfile);
 12    commit;
 13  end;
 14  /

PL/SQL procedure successfully completed.

select count(*) from imagetab;


  COUNT(*)
----------
         1

CREATE TABLE B_FILE
(
  BLOB_COLUMN  BLOB,
  ID           NUMBER
);

declare
a_blob blob;
a_bfile bfile := bfilename('REEDIR','j.jpg');
begin
insert into b_file  values (empty_blob(),2) returning blob_column into a_blob;
dbms_lob.fileopen(a_bfile);
dbms_lob.loadfromfile(a_blob,a_bfile,dbms_lob.getlength(a_bfile));
dbms_lob.fileclose(a_bfile);
commit;
end;

declare
    v_out_outdir          VARCHAR2(2000) := 'REEDIR';
    v_out_filename        VARCHAR2(500):='ahmed1';
    v_out_filename_ext    VARCHAR2(4)    := '.zip';
    v_out_filename_full   VARCHAR2(500);
    v_file_count          NUMBER         := 0;
    v_file_handle         UTL_FILE.FILE_TYPE;
   
    TYPE v_lob_cur_typ IS REF CURSOR;
    v_lob_cur             v_lob_cur_typ;
    v_sql_string          VARCHAR2(4000);
    v_blob_loc            BLOB;
    v_buffer              RAW(32767);
    v_buffer_size         CONSTANT BINARY_INTEGER := 32767;
    v_amount              BINARY_INTEGER;
    v_offset              NUMBER(38);
    
BEGIN

        DBMS_OUTPUT.ENABLE(1000000);
    
    v_sql_string := 'SELECT BLOB_COLUMN FROM rafeek.B_FILE where ID=3';
    
    OPEN v_lob_cur FOR v_sql_string;
    
    LOOP
    
        FETCH v_lob_cur INTO  v_blob_loc;
        EXIT WHEN v_lob_cur%NOTFOUND;
        
        v_file_count := v_file_count + 1;
        v_out_filename_full := v_out_filename || v_out_filename_ext;
        
        v_file_handle := UTL_FILE.FOPEN(v_out_outdir, v_out_filename_full, 'w',  32760);
        
        v_amount := v_buffer_size;
        v_offset := 1;
        
        DECLARE
            invalid_LOB_locator EXCEPTION;
          --  PRAGMA EXCEPTION_INIT(invalid_LOB_locator, -06502);
        
        BEGIN
        
            WHILE v_amount >= v_buffer_size
            LOOP
                DBMS_LOB.READ(
                lob_loc    => v_blob_loc,
                amount     => v_amount,
                offset     => v_offset,
                buffer     => v_buffer);
                
                v_offset := v_offset + v_amount;
                
                UTL_FILE.PUT_RAW(
                file      => v_file_handle,
                buffer    => v_buffer,
                autoflush => true);
                
                UTL_FILE.FFLUSH(file => v_file_handle);
            END LOOP;
        
        END;
       
        UTL_FILE.FCLOSE(v_file_handle);

    END LOOP;
    
    CLOSE v_lob_cur;

END;

DECLARE
l_file UTL_FILE.FILE_TYPE;
l_buffer RAW(32767);
l_amount BINARY_INTEGER := 32767;
l_pos INTEGER := 1;
l_blob BLOB;
l_blob_len INTEGER;
BEGIN
-- Get LOB locator
SELECT BLOB_COLUMN
INTO l_blob
FROM B_FILE
WHERE id = 2;
l_blob_len := DBMS_LOB.getlength(l_blob);
l_file := UTL_FILE.fopen('REEDIR','MyImage.jpg','w', 32767);
WHILE l_pos < l_blob_len LOOP
DBMS_LOB.read(l_blob, l_amount, l_pos, l_buffer);
UTL_FILE.put_raw(l_file, l_buffer, TRUE);
l_pos := l_pos + l_amount;
END LOOP;
UTL_FILE.fclose(l_file);
EXCEPTION
WHEN OTHERS THEN
IF UTL_FILE.is_open(l_file) THEN
UTL_FILE.fclose(l_file);
END IF;
RAISE;
END;
/

long SongOneLength = song_one.Length;
            long SongTwoLength = song_two.Length;

            long i = 0, j = 0;

            if (SongOneLength == SongTwoLength)
            {
                MessageBox.Show("Same Length");

                for (i = 0; i < SongOneLength; i++)
                {
                    if (song_one[i] == song_two[i])
                        j++;
                }

                if(i==j)
                    MessageBox.Show("Song Matched");
                else
                    MessageBox.Show("Song Not Matched");

            }
            else
            {
                MessageBox.Show("Not Same Length");
            }