正在看的ORACLE教程是:Oracle使用PL/SQL操作COM對(duì)象。PL/SQL是由Oracle公司對(duì)標(biāo)準(zhǔn)SQL進(jìn)行擴(kuò)展，專用于Oracle數(shù)據(jù)庫(kù)中程序設(shè)計(jì)的專用語(yǔ)言，屬第三代過(guò)程式程序設(shè)計(jì)語(yǔ)言。從Oracle8開(kāi)始提供了直接從PL/SQL中調(diào)用外部C語(yǔ)言過(guò)程，允許開(kāi)發(fā)人員用PL/SQL進(jìn)行使用C語(yǔ)言編制的程序模塊。從Oracle8i開(kāi)始，又引入了Java程序。

　　在本文中主要介紹外部例程的基本原理以及使用條件，介紹如何通過(guò)引用外部例程來(lái)操作Windows中的COM對(duì)象，并做了一個(gè)操作Excel對(duì)象的示例。 

　　本文的運(yùn)行環(huán)境全部建立在Oracle9i和Windows2000。其中ORACLE的安裝目錄（ORACLE_HOME）為D:\oracle\ora92，SID為ORADB，主機(jī)名為CHANET。 

　　必要性 

　　擴(kuò)展后的PL/SQL語(yǔ)言已經(jīng)集成了標(biāo)準(zhǔn)SQL，在效率和安全上非常適合設(shè)計(jì)Oracle數(shù)據(jù)庫(kù)程序，但對(duì)于應(yīng)用的某些功能，其它的程序設(shè)計(jì)語(yǔ)言比PL/SQL更適合，如：使用操作系統(tǒng)資源，C語(yǔ)言在計(jì)算和引用系統(tǒng)對(duì)象及使用設(shè)備上優(yōu)于PL/SQL，而Java語(yǔ)言在網(wǎng)絡(luò)上的應(yīng)用優(yōu)于PL/SQL。

　　如果在應(yīng)用上要用到不適合用PL/SQL語(yǔ)言的話，這時(shí)就要使用其它語(yǔ)言進(jìn)行編制，然后由PL/SQL作為外部例程進(jìn)行調(diào)用。 

　　在Oracle8之前的版本，PL/SQL和其它語(yǔ)言的唯一通信是借助于DBMS_PIPE和DBMS_ALERT包來(lái)實(shí)現(xiàn)，在使用之前必需建立一個(gè)OCI接口或預(yù)編譯器編制的監(jiān)護(hù)程序，使用比較復(fù)雜。外部例程的出現(xiàn)，只需在PL/SQL中建立一個(gè)函數(shù)映射到外部例程對(duì)應(yīng)的函數(shù)，就像普通的PL/SQL函數(shù)使用一樣，簡(jiǎn)化了使用過(guò)程。 

　　基本原理 

　　當(dāng)引用外部C語(yǔ)言例程時(shí)，Oracle監(jiān)聽(tīng)器將啟動(dòng)extproc進(jìn)程，該進(jìn)程將會(huì)動(dòng)態(tài)地載入共享庫(kù)（在Windows下稱為動(dòng)態(tài)鏈接庫(kù)，即是DLL文件），進(jìn)程起了一個(gè)緩沖的作用，當(dāng)PL/SQL過(guò)程調(diào)用外部函數(shù)時(shí)，進(jìn)程把命令發(fā)送到共享庫(kù)，之后把結(jié)果返回給PL/SQL過(guò)程。 

　　進(jìn)程被調(diào)用后隨著共享庫(kù)的使用會(huì)話（session）而存在，如果調(diào)用完畢或者關(guān)閉數(shù)據(jù)庫(kù)用戶會(huì)話，extproc進(jìn)程會(huì)自動(dòng)關(guān)閉。 

　　如下圖1-1為調(diào)用外部例程的描述。 


　　使用配置 

　　在調(diào)用外部例程之前，必需進(jìn)行如下設(shè)置： 

　　·配置監(jiān)聽(tīng)器。 

　　·配置Net組件服務(wù)。 

　　配置監(jiān)聽(tīng)器，打開(kāi)D:\oracle\ora92\network\admin\listener.ora 文件，修改文件參數(shù)。 


　　其中有兩部份參數(shù)對(duì)于使用外部例程是很重要的。 

　　·(ADDRESS_LIST = (ADDRESS = (PROTOCOL = IPC)(KEY = extproc1)) 

　　設(shè)置基于IPC協(xié)議的外部例程 

　　·(SID_DESC =(SID_NAME = PLSExtProc) (ORACLE_HOME = D:\oracle\ora92) (PROGRAM = extproc) ) 

　　記錄數(shù)據(jù)庫(kù)的相關(guān)屬性，SID_NAME在默認(rèn)的情況下是PLSExtproc。 

　　配置Net組件服務(wù)，打開(kāi)D:\oracle\ora92\network\admin\tnsnames.ora文件，把如下內(nèi)容保存在該文件里。 


　　重要參數(shù)說(shuō)明： 

　　　·(ADDRESS = (PROTOCOL = IPC)(KEY = EXTPROC1)) 

　　　·(CONNECT_DATA = (SID = PLSExtProc) (PRESENTATION = RO) 

　　兩設(shè)置必需與listener.ora里的一致。

　　重啟監(jiān)聽(tīng)器，并測(cè)試服務(wù)是否可用。 

　　停止監(jiān)聽(tīng)器：lsnrctl stop 

　　啟動(dòng)監(jiān)聽(tīng)器：lsnrctl start 

　　測(cè)試服務(wù)是否可用： 


　　已使用的參數(shù)文件: 


　　已使用 TNSNAMES 適配器來(lái)解析別名 


　　測(cè)試extproc進(jìn)程是否正常： 


　　4、使用COM對(duì)象說(shuō)明 

　　COM對(duì)象設(shè)計(jì)都會(huì)提供了三個(gè)基本操作給開(kāi)發(fā)人員使用，分別為：獲取屬性值，設(shè)置屬性值（只讀屬性除外），調(diào)用方法。Oracle數(shù)據(jù)庫(kù)在Windows的平臺(tái)下提供了操作COM對(duì)象的接口，屬于C語(yǔ)言外部例程模式。 

　　工作原理如下圖： 


　　在使用該功能之前，需明白如下內(nèi)容： 

　　1) 創(chuàng)建COM對(duì)象操作函數(shù)。 


　　2)配置監(jiān)聽(tīng)器。 

　　在listener.ora文件里，添加如下內(nèi)容，并重啟監(jiān)聽(tīng)器。 


　　3) PL/SQL數(shù)據(jù)類型與對(duì)應(yīng)的COM對(duì)象類型

　　表1-1數(shù)據(jù)類型比較 


　　4) 函數(shù)說(shuō)明。 

　　表1-2函數(shù)說(shuō)明