Oracle中使用PLSQL操作COM对象.docx
《Oracle中使用PLSQL操作COM对象.docx》由会员分享，可在线阅读，更多相关《Oracle中使用PLSQL操作COM对象.docx（18页珍藏版）》请在冰豆网上搜索。
Oracle中使用PLSQL操作COM对象
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文件，修改文件参数。
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里的一致。
重启监听器，并测试服务是否可用。
停止监听器：
lsnrctlstop
启动监听器：
lsnrctlstart
测试服务是否可用：
C:
\>tnspingEXTPROC_CONNECTION_DATA
TNSPingUtilityfor32-bitWindows:
Version9.2.0.1.0-Productionon07-4月-2
00516:
57:
00
Copyright（c）1997OracleCorporation.Allrightsreserved.
已使用的参数文件:
D:
\oracle\ora92\network\admin\sqlnet.ora
已使用TNSNAMES适配器来解析别名
Attemptingtocontact（DESCRIPTION=（ADDRESS_LIST=（ADDRESS=（PROTOCOL=IPC）
（KEY=EXTPROC1）））（CONNECT_DATA=（SID=PLSExtProc）（PRESENTATION=RO）））
OK（30毫秒）
测试extproc进程是否正常：
D:
\oracle\ora92\bin>extproc
OracleCorporation---星期四4月07200517:
37:
18.968
HeterogeneousAgentRelease9.2.0.1.0-Production
4、使用COM对象说明
COM对象设计都会提供了三个基本操作给开发人员使用，分别为：
获取属性值，设置属性值（只读属性除外），调用方法。
Oracle数据库在Windows的平台下提供了操作COM对象的接口，属于C语言外部例程模式。
工作原理如下图：
图2操作COM对象工作原理
在使用该功能之前，需明白如下内容：
1）创建COM对象操作函数。
SQL>CONNECTSYSTEM/chanet@oradb
SQL>CREATEUSERchanetidentifiedbychanet;
SQL>GRANTCREATELIBRARYTOchanet;
SQL>CONNECTchanet/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数据类型
COMAPI数据类型
VARCHAR2
BSTR
BOOLEAN
BOOL
BINARY_INTEGER
BYTE，INT，LONG
DOUBLEPRECISION
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菜单，工具->宏->打开VisualBasic编辑器，在编辑器里，视图->对象浏览器）。
使用Excel对象一般针对单元格进行操作（如，设置第一个单元格字体大小的代码为：
Range（"A1"）.Font.Size=20）。
对应的COM外部例程操作的步骤为：
1、获取程序句柄；
2、获取工作簿句柄；
3、获取工作表句柄；
4、获取Range区句柄；
5、获取Font类句柄；
6、设置Size属性。
如下为操作Excel对象的例子，首先建立示例表，然后建立操作包（package），最后是使用包函数的过程（procedure）。
创建一个测试用表：
--销售表（脚本）
CREATETABLEIT_SALE_TAB（ITS_IDVARCHAR2（5）,ITS_DATEDATE,ITS_TOTALNUMBER）;
INSERTINTOIT_SALE_TAB（ITS_ID,ITS_DATE,ITS_TOTAL）
VALUES（’1’,TO_DATE（’2004-01-01’,’YYYY-MM-DD’）,250）;
INSERTINTOIT_SALE_TAB（ITS_ID,ITS_DATE,ITS_TOTAL）
VALUES（’2’,TO_DATE（’2004-02-01’,’YYYY-MM-DD’）,150）;
INSERTINTOIT_SALE_TAB（ITS_ID,ITS_DATE,ITS_TOTAL）
VALUES（’3’,TO_DATE（’2004-03-01’,’YYYY-MM-DD’）,80）;
INSERTINTOIT_SALE_TAB（ITS_ID,ITS_DATE,ITS_TOTAL）
VALUES（’4’,TO_DATE（’2004-04-01’,’YYYY-MM-DD’）,96）;
INSERTINTOIT_SALE_TAB（ITS_ID,ITS_DATE,ITS_TOTAL）
VALUES（’5’,TO_DATE（’2004-05-01’,’YYYY-MM-DD’）,300）;
INSERTINTOIT_SALE_TAB（ITS_ID,ITS_DATE,ITS_TOTAL）
VALUES（’6’,TO_DATE（’2004-06-01’,’YYYY-MM-DD’）,210）;
INSERTINTOIT_SALE_TAB（ITS_ID,ITS_DATE,ITS_TOTAL）
VALUES（’7’,TO_DATE（’2004-07-01’,’YYYY-MM-DD’）,320）;
INSERTINTOIT_SALE_TAB（ITS_ID,ITS_DATE,ITS_TOTAL）
VALUES（’8’,TO_DATE（’2004-08-01’,’YYYY-MM-DD’）,280）;
INSERTINTOIT_SALE_TAB（ITS_ID,ITS_DATE,ITS_TOTAL）
VALUES（’9’,TO_DATE（’2004-09-01’,’YYYY-MM-DD’）,276）;
INSERTINTOIT_SALE_TAB（ITS_ID,ITS_DATE,ITS_TOTAL）
VALUES（’10’,TO_DATE（’2004-10-01’,’YYYY-MM-DD’）,368）;
INSERTINTOIT_SALE_TAB（ITS_ID,ITS_DATE,ITS_TOTAL）
VALUES（’11’,TO_DATE（’2004-11-01’,’YYYY-MM-DD’）,163）;
INSERTINTOIT_SALE_TAB（ITS_ID,ITS_DATE,ITS_TOTAL）
VALUES（’12’,TO_DATE（’2004-12-01’,’YYYY-MM-DD’）,305）;
COMMIT;
操作Excel对象包（Package）。
CREATEORREPLACEPACKAGEoraExcelIS
xlThinBINARY_INTEGERDEFAULT2;
DummyTokenBINARY_INTEGER;
applicationTokenBINARY_INTEGER:
=-1;--Excel对象句柄
WorkBooksTokenBINARY_INTEGER:
=-1;--工作簿句柄
WorkBookTokenBINARY_INTEGER:
=-1;
WorkSheetTokenBINARY_INTEGER:
=-1;--工作表句柄
WorkSheetToken1BINARY_INTEGER:
=-1;
RangeTokenBINARY_INTEGER:
=-1;--Range区句柄
ChartObjectTokenBINARY_INTEGER:
=-1;--图表对象句柄
ChartObject1BINARY_INTEGER:
=-1;
Chart1TokenBINARY_INTEGER:
=-1;
hLinesBINARY_INTEGER:
=-1;
iBINARY_INTEGER;
err_srcVARCHAR2（255）;
err_descVARCHAR2（255）;
err_hpfVARCHAR2（255）;
err_hpIDBINARY_INTEGER;
--创建Excel对象
FUNCTIONCreateExcelWorkSheet（servernameVARCHAR2）RETURNBINARY_INTEGER;
--插入数据（字符型）
FUNCTIONsetCellValues（RANGEVARCHAR2,dataVARCHAR2,TYPEVARCHAR2）
RETURNBINARY_INTEGER;
--插入数据（日期型）
FUNCTIONsetCellValues（RANGEVARCHAR2,dataDATE,TYPEVARCHAR2）
RETURNBINARY_INTEGER;
--插入数据（整型）
FUNCTIONsetCellValues（RANGEVARCHAR2,dataBINARY_INTEGER,TYPEVARCHAR2）
RETURNBINARY_INTEGER;
--插入数据（实型）
FUNCTIONsetCellValuesReal（RANGEVARCHAR2,dataDOUBLEPRECISION,TYPEVARCHAR2）
RETURNBINARY_INTEGER;
--设置列宽
FUNCTIONsetCellColWidth（RANGEVARCHAR2,widthDOUBLEPRECISION,TYPEVARCHAR2）RETURN
BINARY_INTEGER;
--设置表格
FUNCTIONsetCellLines（RANGEVARCHAR2,BordersIndexBINARY_INTEGER,weight
BINARY_INTEGERDEFAULTxlThin,TYPEVARCHAR2）RETURNBINARY_INTEGER;
--合并单元格
FUNCTIONsetCellMerge（RANGEVARCHAR2,bValuesBOOLEAN,TYPEVARCHAR2）
RETURNBINARY_INTEGER;
--设置字体属性
FUNCTIONsetCellFont（RANGEVARCHAR2,PropertyVARCHAR2,
fontValuesBINARY_INTEGER,TYPEVARCHAR2）RETURNBINARY_INTEGER;
--调用方法
FUNCTIONcallMethod（RANGEVARCHAR2,MethodNameVARCHAR2）RETURNBINARY_INTEGER;
--插入图表
FUNCTIONInsertChart（xposBINARY_INTEGER,yposBINARY_INTEGER,
widthBINARY_INTEGER,heightBINARY_INTEGER,
RANGEVARCHAR2,TYPEVARCHAR2）RETURNBINARY_INTEGER;
--保存文件
FUNCTIONSaveToFile（filenameVARCHAR2）RETURNBINARY_INTEGER;
--关闭Excel对象
FUNCTIONCloseExcelRETURNBINARY_INTEGER;
ENDoraExcel;
数据包体内容（PACKAGEBODY）
CREATEORREPLACEPACKAGEBODYoraExcelIS
FUNCTIONCreateExcelWorkSheet（servernameVARCHAR2）RETURNBINARY_INTEGERIS
BEGIN
--创建Excel对象
i:
=ordcom.CreateObject（’Excel.Application’,0,servername,applicationToken）;
IF（i!
=0）THEN--创建失败,提示返回的错误信息
ordcom.GetLastError（err_src,err_desc,err_hpf,err_hpID）;
raise_application_error（-20000,err_src||err_desc||err_hpf||err_hpID）;
ENDIF;
--通过程序对象句柄获取工作簿句柄
i:
=ordcom.GetProperty（applicationToken,’WorkBooks’,0,WorkBooksToken）;
ordcom.InitArg（）;
ordcom.SetArg（-4167,’I4’）;
i:
=ordcom.Invoke（WorkBooksToken,’Add’,1,WorkBookToken）;
ordcom.InitArg（）;
ordcom.SetArg（’Sheet1’,’BSTR’）;
--获取工作表句柄
i:
=ordcom.GetProperty（applicationToken,’WorkSheets’,0,WorkSheetToken1）;
i:
=ordcom.Invoke（WorkSheetToken1,’Add’,0,WorkSheetToken）;
RETURNi;
ENDCreateExcelWorkSheet;
FUNCTIONsetCellValues（RANGEVARCHAR2,dataVARCHAR2,TYPEVARCHAR2）
RETURNBINARY_INTEGERIS
BEGIN
ordcom.InitArg（）;
ordcom.SetArg（RANGE,’BSTR’）;
--获取Range区句柄,之后将数据写入到指定的单元格
i:
=ordcom.GetProperty（WorkSheetToken,’Range’,1,RangeToken）;
i:
=ordcom.SetProperty（RangeToken,’Value’,data,TYPE）;
i:
=ordcom.DestroyObject（RangeToken）;
RETURNi;
ENDsetCellValues;
FUNCTIONsetCellValues（RANGEVARCHAR2,dataBINARY_INTEGER,TYPEVARCHAR2）
RETURNBINARY_INTEGERIS
BEGIN
ordcom.InitArg（）;
ordcom.SetArg（RANGE,’BSTR’）;
i:
=ordcom.GetProperty（WorkSheetToken,’Range’,1,RangeToken）;
i:
=ordcom.SetProperty（RangeToken,’Value’,data,type）;
i:
=ordcom.DestroyObject（RangeToken）;
RETURNi;
ENDsetCellValues;
FUNCTIONsetCellValuesReal（RANGEVARCHAR2,dataDOUBLEPRECISION,TYPEVARCHAR2）
RETURNBINARY_INTEGERIS
BEGIN
ordcom.InitArg（）;
ordcom.SetArg（RANGE,’BSTR’）;
i:
=ordcom.GetProperty（WorkSheetToken,’Range’,1,RangeToken）;
i:
=ordcom.SetProperty（RangeToken,’Value’,data,type）;
i:
=ordcom
升级会员 