在Ｃ语言中可以通过预编译器ＰＲＯ＊Ｃ来嵌入ＰＬ／ＳＱＬ，但是在ＰＬ／ＳＱＬ里能否调用Ｃ的过程和函数呢？答案是肯定的。
ＯＲＡＣＬＥ８以上版本开始支持在ＰＬ／ＳＱＬ里调用Ｃ及ＪＡＶＡ（8I后）等程序的库函数，那么具体怎么实现呢？其实很简单，下面我们来看一个例子就很清楚了：
主要步骤有以下几点：
１、编写Ｃ函数，并保存在oracle服务器上（必须是与数据库在同一服务器上或者将保存路径映射到服务器上，不然ORACLE不能调用）；
２、将Ｃ函数编译并链接成动态库（必须是动态库，因为只有动态库才能被动态调用，windows下是*.dll，unix/linux下是*.so）；
３、把生成的动态库存放在安装oracle数据库的操作系统用户有读和执行权的目录下；
４、检查ＯＲＡＣＬＥ监听配置，看是否有配置监听分裂进程extproc；
５、在ＯＲＡＣＬＥ中创建库进服务器下的动态库进行映射；
６、在ＯＲＡＣＬＥ中创建函数或过程对库里的过程和函进行封装和引用；
７、调用ＯＲＡＣＬＥ中的函数或过程来执行外部过程；
下面是对上述步骤进行具体说明：
（１）、我们用ｃ写一个小函数,其功能是传入“文件名”和“字符串”两个参数，然后把“字符串”添加到“文件名”指定的文件后面，成功返回０，失败返回－１，具体如下：
/*
文件名：textout.c
*/
#include
int AppendToFile(const char *FileName,const char *Text)
{
FILE *FP;
if (!(FP=fopen(FileName,"a"
)){
return -1;
}
fputs(Text,FP);
fclose(FP);
return 0;
}
（２）、然后，我们用以下的命令编译textout.c成为一个共享动态库(以下是linux下的命令，如果是UNIX系统请根据具体命令格式生成动态库)：
gcc -c textout.c
ld -m elf_i386 -shared -o libtextout.so -soname libtextout.a textout.o
(或：gcc -shared -Wl,-soname,libtextout.a -O3 -o libtextout.so textout.o)
（３）、上述命令会生成两个动态库，其中一个（-soname后所指明的副本）的存取权限为“７７７”，就是所有的用户对些文件都有全部的操作权（保证ＯＲＡＣＬＥ用户可以读取并调用此库）；但是，此时ＯＲＡＣＬＥ用户还不一定有对此库的执行权，因为该文件所有的目录，对ＯＲＡＣＬＥ用户来说并不一定有读和执行权限，所以，我们还要保证保存库文件的目录还要能够让ＯＲＡＣＬＥ用户访问，所以我们可以用chmod命令对文件所在目录及其所有父目录的进行权限设置或将库拷到/usr/lib中去；在这里我选择将目录设为可读写的。
（４）、检查监听配置（通常在$ORACLE_HOME/network/admin/listener.ora中)。因为执行调用Ｃ的动态库需要ＯＲＡＣＬＥ监听进行分裂出一个进程extproc来执行，所以我们的监听必须配置有extproc：
LISTENER =
(DESCRIPTION_LIST =
(DESCRIPTION =
(ADDRESS_LIST =
(ADDRESS = (PROTOCOL = IPC)(KEY = EXTPROC)) #这是extproc的IPC配置
)
(ADDRESS_LIST =
(ADDRESS = (PROTOCOL = TCP)(HOST = localhost)(PORT = 1521))
)
)
(DESCRIPTION =
(PROTOCOL_STACK =
(PRESENTATION = GIOP)
(SESSION = RAW)
)
(ADDRESS = (PROTOCOL = TCP)(HOST = localhost)(PORT = 2481))
)
)
SID_LIST_LISTENER =
(SID_LIST =
(SID_DESC =
(SID_NAME = PLSExtProc)
(ORACLE_HOME = /u01/app/oracle/product/8.1.7)
(PROGRAM = extproc)
#这是extproc的监听配置
)
(SID_DESC =
(GLOBAL_DBNAME = oracle.local)
(ORACLE_HOME = /u01/app/oracle/product/8.1.7)
(SID_NAME = ora1)
)
)
（５）、在ＯＲＡＣＬＥ中创建库进服务器下的动态库进行映射：
create or replace library WRTLOG
as '/home/test/c/libtextout.a';--这是动态库的存放路径
（６）、在ＯＲＡＣＬＥ中创建函数或过程对库里的过程和函进行封装和引用：
create or replace function AppendDiskLog(
sFileName varchar2,
sMsgvarchar2)
return Binary_integer
as external
--声明是外部引用
library WRTLOG --引用库
NAME "AppendToFile"--库中函数名
PARAMETERS (sFileName String,sMsg STRING);--参数对应
（７）、调用ＯＲＡＣＬＥ中的函数或过程来执行外部过程：
select code_type||' * '||code||' - '||mean as Line_value,
Decode(AppendDiskLog('/home/test/c/logfile.log',code_type||' * '||code||' - '||mean||chr(10)),0,'写入成功','写入失败') as WriteRlt
from tab
上述ＳＱＬ语句，如果正常执行，ＯＫ，调用Ｃ库成功了！如果返回字段"WriteRlt"的值为“写入成功”，则linux后台“/home/test/c/”目录下会生成一个名为“logfile.log”的文件，其内容为返回字段“Line_value”的所有行；
如果执行出错，请根据错误提示检查上面各步中哪步出错了！
|
