このチュートリアルでは、OracleのBLOB列からファイルを取得する方法を学習します。例を挙げると、OracleでテーブルEXT_FILESを作成しました。これは、テーブルの構造です。
CREATE TABLE EXT_FILES ( FILE_NAME VARCHAR2(1000 BYTE), FILE_CONTENT BLOB ) /
上記の表にデータを挿入します。 BLOB列にファイルを挿入する方法がわからない場合は、次の記事「OracleテーブルのBLOB列にファイルを挿入する方法」を確認してください。
BLOB列からディスクにファイルを取得するには、スキーマにOracleディレクトリオブジェクトを作成する必要があります。 Oracleでディレクトリを作成するには、次のコマンドを実行します。
CREATE OR REPLACE DIRECTORY IMGDIR AS 'C:\TEMP\IMAGES';
以下は、カーソルを使用してEXT_FILESテーブル(BLOBデータを含む)からレコードをフェッチし、指定されたディレクトリにファイルを1つずつ抽出するOracleストアドプロシージャの例です。
OracleのBLOB列からファイルを取得するためのOracleストアドプロシージャの例
CREATE OR REPLACE PROCEDURE get_files_from_blob IS l_file UTL_FILE.file_type; l_buffer RAW (32767); l_amount BINARY_INTEGER := 32767; l_pos INTEGER := 1; l_blob_len INTEGER; l_blob BLOB; l_filename ext_files.file_name%TYPE; /* cursor to get the records from the table */ CURSOR c_files IS SELECT file_name, file_content FROM ext_files; BEGIN OPEN c_files; LOOP FETCH c_files INTO l_filename, l_blob; EXIT WHEN c_files%NOTFOUND; l_blob_len := DBMS_LOB.getlength (l_blob); /* Change the directory name (IMGDIR) to your Oracle directory object name*/ l_file := UTL_FILE.fopen ('IMGDIR', l_filename, 'wb', 32767); l_pos := 1; 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); END LOOP; CLOSE c_files; EXCEPTION WHEN OTHERS THEN IF UTL_FILE.is_open (l_file) THEN UTL_FILE.fclose (l_file); END IF; RAISE; END;
テスト
BEGIN get_files_from_blob; END; /
出力
PL/SQL procedure successfully completed.
これで、抽出されたファイルのIMGDIRディレクトリオブジェクトの場所を確認できます。
関連項目:
- Toadを使用してOracleテーブルからBLOBデータを抽出する