日期：2011-03-21 00:21:00 来源：本站整理

Oracle中利用PL/SQL操作COM对象[Oracle防范]

赞助商链接

分享到： QQ空间新浪微博腾讯微博人人网

本文“Oracle中利用PL/SQL操作COM对象[Oracle防范]”是由七道奇为您精心收集，来源于网络转载，文章版权归文章作者所有，本站不对其观点以及内容做任何评价，请读者自行判断，以下是其具体内容：
　　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里的一致.

　　重启监听器,并测试服务能否可用.

　　终止监听器: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对象的函数或历程