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

必要性 扩展后的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里的一致。 重启监听器，并测试服务是否可用。 停止监听器：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\n