create_blob_thumbnail procedure

gistfile1.sql

CREATE OR REPLACE PROCEDURE create_blob_thumbnail (p_image_id IN INTEGER) IS
    l_orig          ORDSYS.ORDImage;
    l_thumb         ORDSYS.ORDImage;
    l_blob_thumb    BLOB;
BEGIN
    -- lock row
    SELECT image
    INTO l_orig
    FROM images
    WHERE image_id = p_image_id FOR UPDATE;
  
    l_thumb := ORDSYS.ORDImage.Init();
  
    dbms_lob.createTemporary(l_thumb.source.localData, true);
    ORDSYS.ORDImage.processCopy(
        l_orig,
        'maxscale=128 128',
        l_thumb
    );
  
    UPDATE images
    SET thumbnail = l_thumb.source.localData
    WHERE image_id = p_image_id;

    dbms_lob.freeTemporary(l_thumb.source.localData);

    COMMIT; 
END;