滥觞：收集
PL/SQL是由Oracle公司对典范榜样SQL截至扩展，公用于Oracle数据库中次第诡计的公用语言，属第三代过程式次第诡计语言。从Oracle8入手下手供给了直接从PL/SQL中调用内部C语言过程，同意垦荒人员用PL/SQL截至运用C语言编制的次第模块。从Oracle8i入手下手，又引入了Java次第。 在本文中次要引见内部例程的底子道理以及运用前提，引见怎样经由援用内部例程来操作Windows中的COM工具，并做了一个操作Excel工具的示例。 本文的运转情况扫数竖立在Oracle9i和Windows2000。个中ORACLE的装配目录（ORACLE_HOME）为D:oracleora92，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:oracleora92networkadminlistener.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:oracleora92) (PROGRAM = extproc) ) (SID_DESC = (GLOBAL_DBNAME = ORADB) (ORACLE_HOME = D:oracleora92) (SID_NAME = ORADB) ) ) 个中有两部份参数关于运用内部例程是很重要的。 ·(ADDRESS_LIST = (ADDRESS = (PROTOCOL = IPC)(KEY = extproc1)) 设置基于IPC协议的内部例程 ·(SID_DESC =(SID_NAME = PLSExtProc) (ORACLE_HOME = D:oracleora92) (PROGRAM = extproc) ) 记录数据库的相关属性，SID_NAME在默许的情形形象下是PLSExtproc。 设置配备铺排Net组件处事，翻开D:oracleora92networkadmintnsnames.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:oracleora92networkadminsqlnet.ora 已运用 TNSNAMES 适配器来阐发别名 Attempting to contact (DESCRIPTION = (ADDRESS_LIST = (ADDRESS = (PROTOCOL = IPC) (KEY = EXTPROC1))) (CONNECT_DATA = (SID = PLSExtProc) (PRESENTATION = RO))) OK（30毫秒） 测试extproc过程能否正常： D:oracleora92bin>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工具使命道理 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:oracleora92comcomwrap.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工具的函数或过程 版权声明： 原创作品，同意转载，转载时请务必以超链接体式花腔标明文章 原始理由 、作者信息和本声明。否则将追究功令责任。