一个 ORACLE 调用 DLL 的例子(原创)_ORACLE_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

一个 ORACLE 调用 DLL 的例子(原创)

作者：闵涛文章来源：闵涛的学习笔记点击数：768 更新时间：2009/4/22 22:03:46

注：以下程序在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帮助文档。