滥觞：收集
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工具使命道理
在运用该服从之前，需清楚如下内容：
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: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工具的函数或过程
版权声明：
原创作品，同意转载，转载时请务必以超链接体式花腔标明文章 原始理由 、作者信息和本声明。否则将追究功令责任。