注:以下程序在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、测试一下
select mytest1(3.51,8.2) from dual;
------------返回28.782
6、到此一个简单的例子完成,其实这是一个最简单的例子,实际应用中需要根据需求去做, 本人做这个例子只是给各位网友开路,实际应用还需参考ORACLE帮助文档。
源程序及脚本下载地址: http://www.cnoug.org/attachment.php?aid=20557 叶正盛 2005-03-11
|