ORACLE调用DLL的例子

文章作者 100test 发表时间 2007:05:02 16:28:37
来源 100Test.Com百考试题网

注：以下程序在DELPHI7 ORACLE9i中测试通过
1、首先用DELPHI编制一个DLL程序，当然用VB,VC其它语言也可以，
本人最近常用DELPHI，所以以下DLL采用DELPHI程序编制：
//////////////////////////////////////////Project1.dpr工程文件
library Project1.
uses
SysUtils,
Classes,
Unit1 in Unit1.pas.
{$R *.res}
exports
dlltest.
begin
end.
///////////////////////////////////////////unit1.pas接口函数实现文件
unit Unit1.
interface
function dlltest(a,b:double): double. cdecl. //接口函数
implementation
function dlltest(a,b:double): double. cdecl. //接口函数
begin
result:=a*b.
end.
end.

2、将编译生成的Project1.dll 拷贝至$ORACLE_HOME/bin路径下，本人$ORACLE_HOME=C:\\oracle\\ora92
所以将Project1.dll拷贝至C:\\oracle\\ora92\\bin\\路径。

3、ORACLE 数据库中增加一个library 名字为 "MYLIB"
create or replace library MYLIB
as C:\\oracle\\ora92\\bin\\Project1.dll.

4、ORACLE 数据库中增加一个function 名字为 "mytest1"
CREATE OR REPLACE FUNCTION mytest1(a DOUBLE PRECISION,b DOUBLE PRECISION) RETURN DOUBLE PRECISION AS
LANGUAGE C NAME "dlltest"
LIBRARY MYLIB
PARAMETERS (a DOUBLE,b DOUBLE,
RETURN DOUBLE ).

5、测试一下
0select mytest1(3.51,8.2) from dual.
------------返回28.782

6、到此一个简单的例子完成，其实这是一个最简单的例子，实际应用中需要根据需求去做，
本人做这个例子只是给各位开路，实际应用还需参考ORACLE帮助文档。