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:\oracle\ora92，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進程會自動關閉。

　　如下圖1-1為調用外部例程的描述。

圖1 監聽器與extproc進程

使用配置

　　在調用外部例程之前，必需進行如下設置：

　　·配置監聽器。

　　·配置Net組件服務。

　　配置監聽器，打開D:\oracle\ora92\network\admin\listener.ora 文件，修改文件參數。

clearcase/" target="_blank" >cc66 width="90%" align=center bgColor=#dadacf border=1>

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:\oracle\ora92) (PROGRAM = extproc) ) (SID_DESC = (GLOBAL_DBNAME = ORADB) (ORACLE_HOME = D:\oracle\ora92) (SID_NAME = ORADB) ) )

　　其中有兩部份參數對于使用外部例程是很重要的。

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

　　設置基于IPC協議的外部例程

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

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

　　配置Net組件服務，打開D:\oracle\ora92\network\admin\tnsnames.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:\oracle\ora92\network\admin\sqlnet.ora

　　已使用 TNSNAMES 適配器來解析別名

Attempting to contact (DESCRIPTION = (ADDRESS_LIST = (ADDRESS = (PROTOCOL = IPC) (KEY = EXTPROC1))) (CONNECT_DATA = (SID = PLSExtProc) (PRESENTATION = RO))) OK（30毫秒）

　　測試extproc進程是否正常：

D:\oracle\ora92\bin>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語言外部例程模式。

　　工作原理如下圖：

圖2 操作COM對象工作原理

在使用該功能之前，需明白如下內容：

　　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:\oracle\ora92\com\comwrap.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屬性。

　　如下為操作Excel對象的例子，首先建立示例表，然后建立操作包（package），最后是使用包函數的過程（procedure）。創建一個測試用表：

　　-- 銷售表（腳本）

CREATE TABLE IT_SALE_TAB(ITS_ID VARCHAR2(5),ITS_DATE DATE,ITS_TOTAL NUMBER); INSERT INTO IT_SALE_TAB(ITS_ID,ITS_DATE,ITS_TOTAL) VALUES(’1’,TO_DATE(’2004-01-01’,’YYYY-MM-DD’),250); INSERT INTO IT_SALE_TAB(ITS_ID,ITS_DATE,ITS_TOTAL) VALUES(’2’,TO_DATE(’2004-02-01’,’YYYY-MM-DD’),150); INSERT INTO IT_SALE_TAB(ITS_ID,ITS_DATE,ITS_TOTAL) VALUES(’3’,TO_DATE(’2004-03-01’,’YYYY-MM-DD’),80); INSERT INTO IT_SALE_TAB(ITS_ID,ITS_DATE,ITS_TOTAL) VALUES(’4’,TO_DATE(’2004-04-01’,’YYYY-MM-DD’),96); INSERT INTO IT_SALE_TAB(ITS_ID,ITS_DATE,ITS_TOTAL) VALUES(’5’,TO_DATE(’2004-05-01’,’YYYY-MM-DD’),300); INSERT INTO IT_SALE_TAB(ITS_ID,ITS_DATE,ITS_TOTAL) VALUES(’6’,TO_DATE(’2004-06-01’,’YYYY-MM-DD’),210); INSERT INTO IT_SALE_TAB(ITS_ID,ITS_DATE,ITS_TOTAL) VALUES(’7’,TO_DATE(’2004-07-01’,’YYYY-MM-DD’),320); INSERT INTO IT_SALE_TAB(ITS_ID,ITS_DATE,ITS_TOTAL) VALUES(’8’,TO_DATE(’2004-08-01’,’YYYY-MM-DD’),280); INSERT INTO IT_SALE_TAB(ITS_ID,ITS_DATE,ITS_TOTAL) VALUES(’9’,TO_DATE(’2004-09-01’,’YYYY-MM-DD’),276); INSERT INTO IT_SALE_TAB(ITS_ID,ITS_DATE,ITS_TOTAL) VALUES(’10’,TO_DATE(’2004-10-01’,’YYYY-MM-DD’),368); INSERT INTO IT_SALE_TAB(ITS_ID,ITS_DATE,ITS_TOTAL) VALUES(’11’,TO_DATE(’2004-11-01’,’YYYY-MM-DD’),163); INSERT INTO IT_SALE_TAB(ITS_ID,ITS_DATE,ITS_TOTAL) VALUES(’12’,TO_DATE(’2004-12-01’,’YYYY-MM-DD’),305); COMMIT;

　　操作Excel對象包（Package）。

CREATE OR REPLACE PACKAGE oraExcel IS xlThin BINARY_INTEGER DEFAULT 2; DummyToken BINARY_INTEGER; applicationToken BINARY_INTEGER:=-1; -- Excel對象句柄 WorkBooksToken BINARY_INTEGER:=-1; -- 工作簿句柄 WorkBookToken BINARY_INTEGER:=-1; WorkSheetToken BINARY_INTEGER:=-1; -- 工作表句柄 WorkSheetToken1 BINARY_INTEGER:=-1; RangeToken BINARY_INTEGER:=-1; -- Range區句柄 ChartObjectToken BINARY_INTEGER:=-1; -- 圖表對象句柄 ChartObject1 BINARY_INTEGER:=-1; Chart1Token BINARY_INTEGER:=-1; hLines BINARY_INTEGER:=-1; i BINARY_INTEGER; err_src VARCHAR2(255); err_desc VARCHAR2(255); err_hpf VARCHAR2(255); err_hpID BINARY_INTEGER; -- 創建Excel對象 FUNCTION CreateExcelWorkSheet(servername VARCHAR2) RETURN BINARY_INTEGER; -- 插入數據(字符型) FUNCTION setCellValues(RANGE VARCHAR2,data VARCHAR2,TYPE VARCHAR2) RETURN BINARY_INTEGER; -- 插入數據(日期型) FUNCTION setCellValues(RANGE VARCHAR2,data DATE,TYPE VARCHAR2) RETURN BINARY_INTEGER; -- 插入數據(整型) FUNCTION setCellValues(RANGE VARCHAR2,data BINARY_INTEGER,TYPE VARCHAR2) RETURN BINARY_INTEGER; -- 插入數據(實型) FUNCTION setCellValuesReal(RANGE VARCHAR2,data DOUBLE PRECISION,TYPE VARCHAR2) RETURN BINARY_INTEGER; -- 設置列寬 FUNCTION setCellColWidth(RANGE VARCHAR2,width DOUBLE PRECISION,TYPE VARCHAR2) RETURN BINARY_INTEGER; -- 設置表格 FUNCTION setCellLines(RANGE VARCHAR2,BordersIndex BINARY_INTEGER,weight BINARY_INTEGER DEFAULT xlThin,TYPE VARCHAR2) RETURN BINARY_INTEGER; -- 合并單元格 FUNCTION setCellMerge(RANGE VARCHAR2,bValues BOOLEAN,TYPE VARCHAR2) RETURN BINARY_INTEGER; -- 設置字體屬性 FUNCTION setCellFont(RANGE VARCHAR2,Property VARCHAR2, fontValues BINARY_INTEGER,TYPE VARCHAR2) RETURN BINARY_INTEGER; -- 調用方法 FUNCTION callMethod(RANGE VARCHAR2,MethodName VARCHAR2) RETURN BINARY_INTEGER; -- 插入圖表 FUNCTION InsertChart(xpos BINARY_INTEGER,ypos BINARY_INTEGER, width BINARY_INTEGER,height BINARY_INTEGER, RANGE VARCHAR2,TYPE VARCHAR2) RETURN BINARY_INTEGER; -- 保存文件 FUNCTION SaveToFile(filename VARCHAR2) RETURN BINARY_INTEGER; -- 關閉Excel對象 FUNCTION CloseExcel RETURN BINARY_INTEGER; END oraExcel;

　　

原文轉自：http://www.anti-gravitydesign.com