Ajouter une image dans une base

procédure stockée pour ajouter une image de cul  dans la table GONZO de ma base de données PORNO :

 

create or replace procedure ajoute_image_X
(
    nom_fichier in VARCHAR2,
    p_id_image in VARCHAR2,
    p_nom_actrice in VARCHAR2,
    p_no_film in VARCHAR2,
    p_mensuration in INTEGER
)
IS
    dest_secure     BLOB;
    file_dest         BFILE;
    blob_size         INTEGER;
    extension         VARCHAR2(3);
BEGIN
    BEGIN
        file_loc := BFILENAME ('BFILE_DATA', nom_fichier);
        DBMS_LOB.FILEOPEN (file_dest);
        blob_size := DBMS_LOB.GETLENGTH (file_dest);
        extension := substr(nom_fichier, -3, 3);

        INSERT INTO GONZO (
            ID_IMAGE,
            NOM_FICHIER,
            NOM_ACTRICE,
            NO_FILM,
            MENSURATION,
            FSSIZE,
            FSTYPE,
            CONTENU)
        VALUES (
            p_id_image,
            nom_fichier,
            p_nom_actrice,
            p_no_film,
            p_mensuration,
            blob_size,
            extension,
            EMPTY_BLOB())
            RETURNING CONTENU INTO dest_secure;

        DBMS_LOB.LOADFROMFILE (dest_secure, file_dest, blob_size);
        DBMS_LOB.FILECLOSE (file_dest);

        commit;
    END;
END ajoute_image_X;