一個 ORACLE 調用 DLL 的例子

註：以下程式在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