PL/SQL都是甲骨文公司對SQL進行相關擴展，它們是專門用於Oracle數據庫中相關的程序設計的專用相關語言，它屬於第3代的過程式相關的程序設計語言。從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語言例程時，OracleOracle監聽器將啟動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屬性。
以上的相關內容就是對在Oracle數據庫中使用PL/SQL操作COM對象的介紹，望你能有所收獲。
