Как сохранить изображение в папке каталога в Oracle (не Blob в базе данных) - PullRequest
Новая
       13

Как сохранить изображение в папке каталога в Oracle (не Blob в базе данных)

0 голосов
/ 12 ноября 2018

У меня есть такая форма:

https://i.stack.imgur.com/LyTJW.png

Я сохраняю путь к файлу в базе данных, но я также хочу сохранить файл изображения в папке сервера. Может ли кто-нибудь поделиться запросом или функцией в формате Oracle?

Вот мой код 

DECLARE 
    a            varchar2(20);--2018
    v_directory  varchar2(200);--mkdir D:\EMP\2018
    filename varchar2(256); --D:\img.doc    
    v_last_slash_position NUMBER;--3    
    v_file_name VARCHAR2(30);--img.doc
    v_extension VARCHAR2(4);--.doc        
    v_last_slash_position2 NUMBER;--7
    path2 VARCHAR2(30);--D:\EMP\2018
    v_file_name2 VARCHAR2(30);
BEGIN
    SELECT TO_CHAR(sysdate,'YYYY')
    INTO a 
    FROM dual;

    v_directory:='mkdir D:\EMP\'||a;  
    filename := get_file_name(File_Filter=>'JPEG Image (*.JPG,*.JPEG,*.JPE,*.JFIF)|*.JPG|');

    v_last_slash_position := INSTR(filename, '\', -1) + 1;
    v_file_name := SUBSTR(filename, v_last_slash_position);
    v_extension := SUBSTR(filename, -3);

    v_last_slash_position2 := INSTR(v_directory, '\', 1) - 2;
    path2 := SUBSTR(v_directory,7);
    v_file_name2 := path2||'\'||v_file_name;

    host(v_directory,NO_SCREEN);
    MESSAGE(filename);
    MESSAGE(v_file_name2);

    --    HOST('cmd /d COPY '||filename||' '||v_file_name2,NO_SCREEN); This is not working
    IF NOT Form_Success THEN 
    MESSAGE('Error -- File not copy.');
    ELSE 
    MESSAGE('Success.');  
    END IF; 
END;

Заранее спасибо

[1]:

1 Ответ

0 голосов
/ 12 ноября 2018

В PL / SQL вы можете использовать эту процедуру: 

CREATE OR REPLACE PROCEDURE SaveFile(
   FileContent IN OUT NOCOPY BLOB
   , FolderName IN VARCHAR2
   , FileName IN VARCHAR2)
IS

    BUFFER RAW(1024);
    OFFSET PLS_INTEGER := 1;
    FileLength PLS_INTEGER;
    amount PLS_INTEGER := 1024;
    fhandle UTL_FILE.FILE_TYPE;

BEGIN

    FileLength := DBMS_LOB.GETLENGTH(FileContent);
    fhandle := UTL_FILE.FOPEN(FolderName, FileName, 'wb');          
    LOOP
        EXIT WHEN OFFSET > FileLength;
        DBMS_LOB.READ(FileContent, amount, OFFSET, BUFFER);
        UTL_FILE.PUT_RAW(fhandle, BUFFER, TRUE);
        OFFSET := OFFSET + amount;
    END LOOP;
    UTL_FILE.FCLOSE (fhandle);

EXCEPTION 
    WHEN OTHERS THEN
        IF UTL_FILE.IS_OPEN(fhandle) THEN
            UTL_FILE.FCLOSE(fhandle);
        END IF;
    RAISE;

END SaveFile;
...