现在的位置: 首页 > 综合 > 正文

如何在pl/sql里调用C语言写的程序

2013年08月12日 ⁄ 综合 ⁄ 共 2163字 ⁄ 字号 评论关闭

有时,我们会发现有些功能通过PL/SQL完成会很麻烦,而通过C/C++语言编程则会容易很多。因此,oracle提供了在PL/SQL程序里直接调用外部函数(包括C函数或Java方法)的功能,从而扩展了PL/SQL的程序功能。调用外部函数的过程如下图所示。

调用外部函数的过程

从上图可以看出,调用外部函数的过程包括:

<!--[if !supportLists]-->1)       <!--[endif]-->用户进程执行PL/SQL程序。

<!--[if !supportLists]-->2)       <!--[endif]-->在执行的PL/SQL程序过程中,调用了一个C/C++语言写的函数:c_func。这里需要借助别名库(Alias Library)。别名库是数据库里的一个对象,用来描述一个外部函数所在的动态链接库的路径和名称。通过别名库,从而可以知道被调用的外部函数在哪个文件里。

<!--[if !supportLists]-->3)       <!--[endif]-->PL/SQL将对外部函数的调用请求发送给监听器。

<!--[if !supportLists]-->4)       <!--[endif]-->监听器生成一个extproc进程,该进程专门用来处理对外部函数的调用。每个session都会生成一个属于该session的extproc进程,并且在整个session生命周期里,extproc进程会一直存在。

<!--[if !supportLists]-->5)       <!--[endif]-->Extproc进程负责将别名库所指定的动态链接库文件加载到内存。

<!--[if !supportLists]-->6)       <!--[endif]-->Extproc进程执行指定的外部函数,并将结果返回给服务器进程,进而返回给用户进程。

需要对监听器进行配置,从而启动extproc进程,配置方式如前面的图11-3所示。其中(ADDRESS = (PROTOCOL = IPC)(KEY = EXTPROC0))说明监听extproc进程请求的地址;而SID_DESC部分则说明extproc进程的连接信息。

      然后我们还要配置tnsnames.ora文件,注意,该文件也必须位于数据库服务器端。我们需要添加如下图的内容。

配置tnsnames.ora

      配置完毕以后,可以尝试tnsping连接字符串名称,如果成功,则说明监听没有问题。

[oracle@book admin]$ tnsping EXTPROC_CONNECTION_DATA

      接下来,我们创建一个C语言编写的函数,如下所示。该函数完成的功能非常简单,计算传入参数的15%,并作为税额返回给调用者。

[oracle@book ~]$ vi calc_tax.c

calc_tax(n)

int n;

{

       int tax;

       tax=(n*15)/100;

       return (tax);

}

      将calc_tax.c文件编译成动态链接库,并将生成的库文件拷贝到$ORACLE_HOME/bin目录下:

[oracle@book ~]$ cc -shared -o calc_tax.so calc_tax.c

[oracle@book ~]$ cp calc_tax.so $ORACLE_HOME/bin

      然后,我们创建一个别名库,用来说明将要调用的C函数所在的库文件,并将使用c_code别名库的权限赋给HR用户:

SQL> connect / as sysdba

SQL> create or replace library c_code as '$ORACLE_HOME/bin/calc_tax.so';

 2 /

SQL> grant execute on c_code to hr;

      要使用这个calc_tax函数,还必须在数据库里创建一个调用声明。如下所示:

SQL> connect hr/hr

SQL> create or replace function call_c

 2 (x binary_integer)

 3 return binary_integer

 4 as language C

 5 library sys.c_code

 6 name "calc_tax";

 7 /

      在调用声明里定义了calc_tax函数的传入传出参数、所在的别名库名称(library sys.c_code部分)、以及在动态链接库中的函数名(name "calc_tax")等。

      现在,我们就可以通过调用call_c,进而调用calc_tax函数了。如下所示:

SQL> set serveroutput on

SQL> var v_salary number;

SQL> var v_tax number;

SQL> exec :v_salary := 10000;

SQL> exec :v_tax := call_c(:v_salary);

SQL> print v_tax;

    V_TAX

-----------------

      1500

      从返回结果可以看到,我们成功调用了C函数:calc_tax。

注:以上内容摘自《Oracle数据库核心技术与实务详解-教你如何成为10g OCP》一书。

抱歉!评论已关闭.