在Oracle中使用PL/SQL操作COM對象

PL/SQL是由Oracle公司對標準SQL進行擴展，專用於Oracle數據庫中程序設計的專用語言，屬第三代過程式程序設計語言。從Oracle8開始提供了直接從PL/SQL中調用外部C語言過程，允許開發人員用PL/SQL進行使用C語言編制的程序模塊。從Oracle8i開始，又引入了Java程序。

　　在本文中主要介紹外部例程的基本原理以及使用條件，介紹如何通過引用外部例程來操作Windows中的COM對象，並做了一個操作Excel對象的示例。

　　本文的運行環境全部建立在Oracle9i和Windows2000。其中ORACLE的安裝目錄（ORACLE_HOME）爲D:oracleora92，SID爲ORADB，主機名爲CHANET。

　　必要性
　　擴展後的PL/SQL語言已經集成了標準SQL，在效率和安全上非常適合設計Oracle數據庫程序，但對於應用的某些功能，其它的程序設計語言比PL/SQL更適合，如：使用操作系統資源，C語言在計算和引用系統對象及使用設備上優於PL/SQL，而Java語言在網絡上的應用優於PL/SQL。

　　如果在應用上要用到不適合用PL/SQL語言的話，這時就要使用其它語言進行編制，然後由PL/SQL作爲外部例程進行調用。

　　在Oracle8之前的版本，PL/SQL和其它語言的唯一通信是藉助於DBMS_PIPE和DBMS_ALERT包來實現，在使用之前必需建立一個OCI接口或預編譯器編制的監護程序，使用比較複雜。外部例程的出現，只需在PL/SQL中建立一個函數映射到外部例程對應的函數，就像普通的PL/SQL函數使用一樣，簡化了使用過程。

　　基本原理
　　當引用外部C語言例程時，Oracle監聽器將啓動extproc進程，該進程將會動態地載入共享庫（在Windows下稱爲動態鏈接庫，即是DLL文件），進程起了一個緩衝的作用，當PL/SQL過程調用外部函數時，進程把命令發送到共享庫，之後把結果返回給PL/SQL過程。

　　進程被調用後隨着共享庫的使用會話（session）而存在，如果調用完畢或者關閉數據庫用戶會話，extproc進程會自動關閉。
　　使用配置
　　在調用外部例程之前，必需進行如下設置：

　　·配置監聽器
　　·配置Net組件服務。
　　配置監聽器，打開D:oracleora92networkadminlistener.ora 文件，修改文件參數。
LISTENER =
(DESCRIPTION_LIST =
(DESCRIPTION =
(ADDRESS_LIST =
(ADDRESS = (PROTOCOL = TCP)(HOST = CHANET)(PORT = 1521))
)
(ADDRESS_LIST =

(ADDRESS = (PROTOCOL = IPC)(KEY = extproc1))
)
)
)
SID_LIST_LISTENER =
(SID_LIST =
(SID_DESC =
(SID_NAME = PLSExtProc)
(ORACLE_HOME = D:oracleora92)
(PROGRAM = extproc)
)
(SID_DESC =
(GLOBAL_DBNAME = ORADB)
(ORACLE_HOME = D:oracleora92)
(SID_NAME = ORADB)
)
)
　　其中有兩部份參數對於使用外部例程是很重要的。
·(ADDRESS_LIST = (ADDRESS = (PROTOCOL = IPC)(KEY = extproc1))

　　設置基於IPC協議的外部例程
·(SID_DESC =(SID_NAME = PLSExtProc) (ORACLE_HOME = D:oracleora92) (PROGRAM = extproc) )

　　記錄數據庫的相關屬性，SID_NAME在默認的情況下是PLSExtproc。

　　配置Net組件服務，打開D:oracleora92networkadmintnsnames.ora文件，把如下內容保存在該文件裏。
EXTPROC_CONNECTION_DATA =
(DESCRIPTION =
　(ADDRESS_LIST =
　　(ADDRESS = (PROTOCOL = IPC)(KEY = EXTPROC1))
　)
　(CONNECT_DATA =
　　(SID = PLSExtProc)
　　(PRESENTATION = RO)
　)
)
　　重要參數說明：
·(ADDRESS = (PROTOCOL = IPC)(KEY = EXTPROC1))
·(CONNECT_DATA = (SID = PLSExtProc) (PRESENTATION = RO)

　　兩設置必需與listener.ora裏的一致。
　　重啓監聽器，並測試服務是否可用。
　　停止監聽器：lsnrctl stop
　　啓動監聽器：lsnrctl start

測試服務是否可用：
C:＞tnsping EXTPROC_CONNECTION_DATA
TNS Ping Utility for 32-bit Windows: Version 9.2.0.1.0 - Production on 07-4月 -2
005 16:57:00
Copyright (c) 1997 Oracle Corporation. All rights reserved.
已使用的參數文件: D:oracleora92networkadminsqlnet.ora

已使用 TNSNAMES 適配器來解析別名
Attempting to contact (DESCRIPTION = (ADDRESS_LIST = (ADDRESS = (PROTOCOL = IPC)
(KEY = EXTPROC1))) (CONNECT_DATA = (SID = PLSExtProc) (PRESENTATION = RO)))
OK（30毫秒）

測試extproc進程是否正常：
D:oracleora92bin＞extproc
Oracle Corporation --- 星期四 4月 07 2005 17:37:18.968
Heterogeneous Agent Release 9.2.0.1.0 - Production

　　4、使用COM對象說明
　　COM對象設計都會提供了三個基本操作給開發人員使用，分別爲：獲取屬性值，設置屬性值（只讀屬性除外），調用方法。Oracle數據庫在Windows的平臺下提供了操作COM對象的接口，屬於C語言外部例程模式。
　　在使用該功能之前，需明白如下內容：

　　1) 創建COM對象操作函數。

SQL＞ CONNECT SYSTEM/chanet@oradb
SQL＞ CREATE USER chanet identified by chanet;
SQL＞ GRANT CREATE LIBRARY TO chanet;
SQL＞ CONNECT chanet/chanet@oradb;
SQL＞ @D:oracleora92comcomwrap.sql;

　　2)配置監聽器。
　　在listener.ora文件裏，添加如下內容，並重啓監聽器。
STARTUP_WAIT_TIME_LISTENER = 0
CONNECT_TIMEOUT_LISTENER = 10
TRACE_LEVEL_LISTENER = off
PASSWORDS_LINTENER = (oracle)

　　3) PL/SQL數據類型與對應的COM對象類型
　　表1-1數據類型比較
PL/SQL數據類型 COM API 數據類型
VARCHAR2 BSTR
BOOLEAN BOOL
BINARY_INTEGER BYTE，INT，LONG
DOUBLE PRECISION DOUBLE，FLOAT，CURRENCY
DATE DATE

　　4) 函數說明。
　　表1-2函數說明

　　名稱 功能描述
　　CreateObject 創建對象
　　DestroyObject 關閉對象
　　GetLastError 獲取錯誤信息
　　GetProperty 獲取屬性值
　　SetProperty 設置屬性值
　　InitArg 爲Invoke函數初始化參數
　　InitOutArg 爲GetArg初始化輸出參數
GetArg 獲取輸出參數
SetArg 爲Invoke函數設置參數
Invoke 調用COM對象的函數或過程
　　5) 操作Excel示例

　　本節介紹如何操作COM對象（以Excel對象爲例），將數據庫裏的表記錄通過PL/SQL語句輸出成Excel文件。通過對象瀏覽器可以查看Excel對象提供的屬性和方法。（如：在Excel菜單，工具 -＞ 宏 -＞ 打開Visual Basic編輯器，在編輯器裏，視圖 -> 對象瀏覽器）。

　　使用Excel對象一般針對單元格進行操作（如，設置第一個單元格字體大小的代碼爲：Range("A1").Font.Size = 20）。對應的COM外部例程操作的步驟爲：

　　1、獲取程序句柄；
　　2、獲取工作簿句柄；
　　3、獲取工作表句柄；
　　4、獲取Range區句柄；
　　5、獲取Font類句柄；
　　6、設置Size屬性。