ORACLE调用DLL的例子
2006-01-05 08:27
295 查看
注:以下程序在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帮助文档。
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帮助文档。
相关文章推荐
- 一个 ORACLE 调用 DLL 的例子
- [导入]ORACLE调用DLL的例子
- 一个 ORACLE 调用 DLL 的例子(原创)
- C++ 编写、 调用 dll 简单例子
- oracle调用DLL
- oracle调用java方法的例子(下面所有代码都是在sql/plus中写)
- vc做的供其他语言调用的dll的例子 (传递的是字符串格式的参数)
- VS 2005 创建DLL工程,并进行调用与调试例子
- QT显式调用DLL的例子
- oracle调用java方法的例子(下面所有代码都是在sql/plus中写)
- delphi 动态调用dll例子
- 【转】DLL+ ActiveX控件+WEB页面调用例子
- Delphi 调用 Oracle 存储过程并返回数据集的例子
- DLL+ ActiveX控件+WEB页面调用例子
- Java调用dll例子,JNative的使用
- Go语言调用dll动态链接库的简单例子
- windows下,python调用dll例子,展示如何传递字节码流参数到dll接口
- oracle调用java方法的例子(下面所有代码都是在sql/plus
- 在DLL中调用组件的小例子
- oracle 调用定时任务简单例子