在Oracle中使用PLSQL操作COM对象.docx

资源描述

在Oracle中使用PLSQL操作COM对象.docx

《在Oracle中使用PLSQL操作COM对象.docx》由会员分享，可在线阅读，更多相关《在Oracle中使用PLSQL操作COM对象.docx（10页珍藏版）》请在冰点文库上搜索。

在Oracle中使用PLSQL操作COM对象.docx

在Oracle中使用PLSQL操作COM对象

必要性

扩展后的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进程会自动关闭。

使用配置

在调用外部例程之前，必需进行如下设置：

·配置监听器。

·配置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

测试服务是否可用：

\>tnspingEXTPROC_CONNECTION_DATATNSPingUtilityfor32-bitWindows:

Version9.2.0.1.0-Productionon07-4月-200516:

57:

00Copyright（c）1997OracleCorporation.Allrightsreserved.

已使用的参数文件:

\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进程是否正常：

\oracle\ora92\bin>extprocOracleCorporation---星期四4月07200517:

37:

18.968HeterogeneousAgentRelease9.2.0.1.0-Production

4、使用COM对象说明

COM对象设计都会提供了三个基本操作给开发人员使用，分别为：

获取属性值，设置属性值（只读属性除外），调用方法。

Oracle数据库在Windows的平台下提供了操作COM对象的接口，属于C语言外部例程模式。

在使用该功能之前，需明白如下内容：

1）创建COM对象操作函数。

SQL>CONNECTSYSTEM/chanet@oradbSQL>CREATEUSERchanetidentifiedbychanet;SQL>GRANTCREATELIBRARYTOchanet;SQL>CONNECTchanet/chanet@oradb;SQL>@D:

\oracle\ora92\com\comwrap.sql;

2）配置监听器。

在listener.ora文件里，添加如下内容，并重启监听器。

STARTUP_WAIT_TIME_LISTENER=0CONNECT_TIMEOUT_LISTENER=10TRACE_LEVEL_LISTENER=offPASSWORDS_LINTENER=（oracle）

3）PL/SQL数据类型与对应的COM对象类型

表1-1数据类型比较

PL/SQL数据类型COMAPI数据类型VARCHAR2BSTRBOOLEANBOOLBINARY_INTEGERBYTE，INT，LONGDOUBLEPRECISIONDOUBLE，FLOAT，CURRENCYDATEDATE

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）。

CREATEORREPLACEPACKAGEoraExcelISxlThinBINARY_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）RETURNBINARY_INTEGER;--设置表格FUNCTIONsetCellLines（RANGEVARCHAR2,BordersIndexBINARY_INTEGER,weightBINARY_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）CREATEORREPLACEPACKAGEBODYoraExcelISFUNCTIONCreateExcelWorkSheet（servernameVARCHAR2）RETURNBINARY_INTEGERISBEGIN--创建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_INTEGERISBEGINordcom.InitArg（）;ordcom.SetArg（RANGE,’BSTR’）;--获取Range区句柄,之后将数据写入到指定的单元格i: