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.ltesting.net