W tym poście na blogu udostępniam funkcję, za pomocą której można sprawdzić, czy plik jest plikiem graficznym, czy nie używa PL/SQL. Program sprawdzi plik, odczytując jego nagłówek, a nie nazwę rozszerzenia pliku. Obecnie funkcja może zidentyfikować trzy typy obrazów, którymi są JPG, PNG i GIF.
Funkcja PL/SQL do sprawdzania, czy plik jest plikiem obrazu
Następująca funkcja PL/SQL odczyta nagłówek pliku, a następnie zwróci typ obrazu w typie danych varchar2. Funkcja get_image_type przyjmuje dwa argumenty i są one następujące:
- Obiekt katalogu Oracle (jako i_dir) Dowiedz się, jak utworzyć obiekt Oracle Directory.
- Nazwa pliku (jako i_file) plik powinien istnieć w katalogu.
CREATE OR REPLACE FUNCTION get_image_type (i_dir IN VARCHAR2, i_file IN VARCHAR2) RETURN VARCHAR2 AS l_bfile BFILE; l_blob BLOB; l_file_type VARCHAR2 (50); BEGIN DBMS_LOB.createtemporary (l_blob, FALSE); l_bfile := BFILENAME (i_dir, i_file); DBMS_LOB.fileopen (l_bfile, DBMS_LOB.file_readonly); DBMS_LOB.loadfromfile (l_blob, l_bfile, DBMS_LOB.getlength (l_bfile)); DBMS_LOB.fileclose (l_bfile); IF RAWTOHEX (DBMS_LOB.SUBSTR (l_blob, 8, 1)) = '89504E470D0A1A0A' THEN l_file_type := 'PNG'; ELSIF DBMS_LOB.SUBSTR (l_blob, 3, 1) = '474946' THEN l_file_type := 'GIF'; ELSIF RAWTOHEX (DBMS_LOB.SUBSTR (l_blob, 3, 1)) = 'FFD8FF' THEN l_file_type := 'JPG'; ELSE l_file_type := 'The file is not an image.'; END IF; RETURN l_file_type; EXCEPTION WHEN OTHERS THEN IF DBMS_LOB.fileisopen (l_bfile) = 1 THEN DBMS_LOB.fileclose (l_bfile); END IF; DBMS_LOB.freetemporary (l_blob); RETURN 'The file does not exists.'; END get_image_type;
Test
W poniższym programie PL/SQL zmień obiekt katalogu MY_FILES Oracle na swój obiekt katalogu i zmień nazwę pliku na plik dostępny w lokalizacji katalogu MY_FILES.
SET SERVEROUTPUT ON; DECLARE i_image_type VARCHAR2 (50); BEGIN i_image_type := get_image_type ('MY_FILES', 'oracle-logo-gif-to-use.gif'); IF i_image_type IN ('JPG', 'GIF', 'PNG') THEN DBMS_OUTPUT.put_line ('The file is a valid ' || i_image_type || ' image.'); ELSE DBMS_OUTPUT.put_line (i_image_type); END IF; END; /
Wyjście
The file is a valid GIF image. PL/SQL procedure successfully completed.
Zobacz też:
- Jak wstawić plik do tabeli Oracle za pomocą PL/SQL?