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

王朝delphi·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

注:以下程序在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

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航