1．LOB背景
在現在的系統開發中，需要存儲的已不僅僅是簡單的文字信息，也包括一些圖片、音像資料或者超長的文本，這要求后台數據庫具有存儲這些數據的能力，Oracle通過提供LOB對象實現了該功能。
2．LOB
在ORACLE數據庫中，LOB大對象類型是用來存儲大量的二進制和文本數據的一種數據類型（一個LOB字段可存儲達4GB的數據）。目前LOB分為內部LOB和外部LOB。
2.1 內部LOB
內部LOB將數據以字節流的形式存儲在數據庫的內部，因而內部LOB的許多操作都可以參與事務，也可以像處理普通數據一樣對其進行備份和恢復操作。
Oracle支持的三種內部LOB為：BLOB(二進制數據)、CLOB(單字節字符數據)、NCLOB(多字節國家字符數據)。其中CLOB和NCLOB類型適用於存儲超長的文本數據，BLOB類型適用於存儲大量的二 進制數據，如圖像、視頻等。
2.2 外部LOB
ORACLE僅支持一種外部LOB類型：BFILE類型。在數據庫內，該類型僅存儲數據在操作系統中的位置信息，而數據的實體 以外部文件的形式存在與操作系統的文件系統中。因而該類型所表示的數據時只讀的，不參與事務。該類型可幫助用戶管理大量的由外部程序訪問的文件。
3．LOB的使用
ORACLE提供了多種使用和維護LOB的方式，如使用PL/SQL中的DBMS_LOB包，調用OCI(Oracle Call Interface)、使用Proc*C/C++、使用JDBC等。其中最方便有效的是使用PLSQL調用的DBMS_LOB包。
在ORACLE中，存儲在LOB中的數據稱為LOB的值，如使用SELECT對某一LOB字段進行選擇查詢，則返回的不是LOB的值，而是該LOB字段的定位器(相當於定向LOB值的指針)，DBMS_LOB包中提供的所有函數和過程都以LOB定位器作為參數。
3.1 DBMS_LOB過程
DBMS_LOB包中主要提供以下幾個過程供用戶對內部LOB字段進行維護：
APPEND：將源LOB中的內容加到目的LOB中。
CLOSE：關閉已經打開的LOB。
CREATETEMPORARY：在用戶的臨時表空間中，建立臨時LOB。
FILECLOSE：關閉打開的BFILE定位符所指向的OS文件。
FILECLOSEALL：關閉當前會話已經打開的所有BFILE文件。
FILEEXISTS：確定file_loc對應的OS文件是否存在，1：存在。0：不存在。
FILEGETNAME：獲取BFILE定位符所對應的目錄別名和文件名。
FILEISOPEN：確定BFILE對應的OS文件是否打開。
FREETEMPORARY：釋放在默認臨時表空間中的臨時LOB。
FILEOPEN：打開文件。
GETCHUNKSIZE：當建立包含CLOB/BLOB列的表時，通過指定CHUNK參數可以指定操縱LOB需要分配的字節數（數據庫尺寸的整數倍）默認為數據塊的尺寸。
COPY：從源LOB中復制數據到目的LOB。
ERASE：刪除LOB中全部或部分內容。
TRIM：將LOB值減少到指定的長度。
WRITE：向LOB中寫入數據。
INSTR：返回特定樣式數據從LOB某偏移位置開始出現N次的具體位置。
IDOPEN：確定LOB是否打開，打開：1，未打開：0。
ISTEMPORARY：確定定位符是否為臨時LOB。
LOADFROMFILE：將BFILE的部分或全部內容復制到目標LOB變量。
LOADBLOBFROMFILE：將BFILE數據裝載到BLOB中，並且在裝載后取得最新的偏移位置。
OPEN：打開LOB，open_mode（只讀：dbms_lob.lob_readonly，寫：dbms_lob.lob_readwrite）。
COMPARE：比較兩個同種數據類型的LOB的部分或全部值是否相同。
GETLENGTH：獲取LOB的長度。
READ：從LOB中讀出數據。
SUBSTR：與字符處理函數SUBSTR使用方法一樣。
WRITEAPPEND：將緩沖區數據寫到LOB尾部。
3.2 常用過程
3.2.1 寫入對象
PROCEDURE WRITE(lob_loc IN OUT BLOB,
amount IN BINARY_INTEGER,
offset IN INTEGER,
buffer IN RAW);
PROCEDURE WRITE(lob_loc IN OUT CLOB CHARACTER SET any_cs,
amount IN BINARY_INTEGER,
offset IN INTEGER,
buffer IN VARCHAR2 CHARACTER SET lob_loc%charset);
各參數的含義為：
lob_loc：要寫入的LOB定位器。
amount：寫入LOB中的字節數。
offset：指定開始操作的偏移量。
buffer：指定寫操作的緩沖區。
實例： DECLARE
obloc CLOB;
buffer VARCHAR2(2000);
amount NUMBER := 20;
offset NUMBER := 1;
BEGIN
--初始化要寫入的數據
buffer := 'This is a writing example';
amount := length(buffer);
SELECT document
INTO lobloc -- 獲取定位器並鎖定行
FROM view_sites_info
WHERE site_id = 100
FOR UPDATE;
dbms_lob.write(lobloc,
amount,
1,
buffer);
COMMIT;
END;
注意事項：
（1）在調用寫過程前一定要使用SELECT語句檢索到定位器且用FOR UPDATE子句鎖定行，否則不能更新LOB。
（2）寫過程從offset指定的位置開始，向LOB中寫入長度為amount的數據，原LOB中在這個范圍內的任何數據都將被覆蓋。
（3）緩沖區的最大容量為32767字節，因此在寫入大量數據時需多次調用該過程。
3.2.2 讀取對象
PROCEDURE WRITE(lob_loc IN OUT BLOB,
amount IN BINARY_INTEGER,
offset IN INTEGER,
buffer IN RAW);
PROCEDURE WRITE(lob_loc IN OUT CLOB CHARACTER SET any_cs,
amount IN BINARY_INTEGER,
offset IN INTEGER,
buffer IN VARCHAR2 CHARACTER SET lob_loc%charset);
參數的含義為：
lob_loc：要寫入的LOB定位器。
amount：寫入LOB中的字節數。
offset：指定開始操作的偏移量。
buffer：指定寫操作的緩沖區。
實例：DECLARE
lobloc CLOB;
buffer VARCHAR2(2000);
amount NUMBER := 2;
offset NUMBER := 6;
BEGIN
SELECT document
INTO lobloc --獲取定位器
FROM lob_store
WHERE lob_id = 100;
dbms_lob.read(lobloc,
amount,
offset,
buffer); --讀取數據到緩沖區
dbms_output.put_line(buffer); --顯示緩沖區中的數據
COMMIT;
END;
3.2.3 復制對象
append存儲過程用於將一個大對象添加到另一個大對象中，此時是將源大對象的內容全部添加過去
PROCEDURE append(dest_lob IN OUT NOCOPY BLOB,
src_lob IN BLOB);
PROCEDURE append(dest_lob IN OUT NOCOPY CLOB CHARACTER SET any_cs,
src_lob IN CLOB CHARACTER SET dest_lob%charset);
各個參數的含義如下：
dest_lob是被源lob添加到的目標lob的定位器。
src_lob是源lob的定位器。
any_cs用來指定字符集。
實例：VARCHAR類型的字符串最多只能存儲32767個字符，超出這一長度后，將自動截取字符串到長度32767，導致部門輸出內容丟失，甚至報錯。
解決辦法：可采用clob對象來保存
1.定義clob對象：l_table_rowspan_clob CLOB; --字符型的大對象
2.創建臨時LOB: dbms_lob.createtemporary(l_table_rowspan_clob, TRUE);
3.將緩沖區數據寫入到LOB中的特定位置：
l_table_line為報表輸出字符串拼接對象，將l_table_line內容寫入clob對象中
l_clob_lengnth := nvl(dbms_lob.getlength(l_table_rowspan_clob),0); --初始位置
dbms_lob.write(lob_loc => l_table_rowspan_clob, --是要操作的大型對象定位器
amount => length(l_table_line), --是要寫到大型對象中去的字節數量
offset => l__clob_lengnth + 1, --是指定將數據寫入到大型對象什么位置的偏移地址
buffer => l_table_line); --是寫入到大型對象的數據緩沖區
l_clob_lengnth := nvl(dbms_lob.getlength(l_table_rowspan_clob),0); --最終位置
4.讀取CLOD對象的內容
dbms_lob.read(lob_loc => l_table_rowspan_clob,
amount => l_r_amount,--要讀取的字符數
offset => l_r_offset_start,--開始讀取字符數的位置
buffer => l_r_buffer); --存儲讀取到數據的變量
1 l_r_amount := 16383;--定義每一次讀取字符的數量 2 3 l_clob_index := 0; 4 5 LOOP 6 7 l_clob_index := l_clob_index + 1; 8 9 EXIT WHEN l_r_clob_length <= 0; 10 11 dbms_lob.read(lob_loc => l_table_rowspan_clob, 12 13 amount => l_r_amount, 14 15 offset => l_r_offset_start, 16 17 buffer => l_r_buffer); 18 19 l_r_clob_length := l_r_clob_length - l_r_amount; 20 21 l_r_offset_start := l_r_offset_start + l_r_amount; 22 23 IF l_r_clob_length <= 0 THEN 24 25 --下一次循環結束 26 27 IF l_clob_index = 1 THEN 28 29 --第一次循環 30 31 --寫文本到一個文件，不附加任何新行字符 32 33 fnd_file.put(fnd_file.output, 34 35 substr(l_r_buffer, 36 37 12, 38 39 length(l_r_buffer) - 11)); 40 41 --cux_conc_utl.out_msg(substr(l_r_buffer, 12, length(l_r_buffer)-11)); 42 43 ELSE 44 45 --寫文本到一個文件，不附加任何新行字符 46 47 fnd_file.put(fnd_file.output, 48 49 substr(l_r_buffer, 50 51 1, 52 53 length(l_r_buffer) - 11)); 54 55 --cux_conc_utl.out_msg(substr(l_r_buffer, 1, length(l_r_buffer)-11)); 56 57 END IF; --IF l_clob_index = 1 THEN--第一次循環 58 59 ELSE 60 61 IF l_clob_index = 1 THEN 62 63 --第一次循環 64 65 --寫文本到一個文件，不附加任何新行字符 66 67 fnd_file.put(fnd_file.output, 68 69 substr(l_r_buffer, 70 71 12)); 72 73 --cux_conc_utl.out_msg(substr(l_r_buffer, 12)); 74 75 ELSE 76 77 --寫文本到一個文件，不附加任何新行字符 78 79 fnd_file.put(fnd_file.output, 80 81 l_r_buffer); 82 83 --cux_conc_utl.out_msg(l_r_buffer); 84 85 END IF; --IF l_clob_index = 1 THEN --第一次循環 86 87 END IF; -- IF l_r_clob_length <= 0 THEN--下一次循環結束 88 89 END LOOP;