乙個 ORACLE 呼叫 DLL 的例子

2021-08-22 16:00:03 字數 1247 閱讀 5737

注:以下程式在delphi7+oracle9i中測試通過

1、首先用delphi編制乙個dll程式,當然用vb,vc其它語言也可以,

本人最近常用delphi,所以以下dll採用delphi程式編制:

工程檔案

library project1;

uses

sysutils,

classes,

unit1 in 'unit1.pas';

exports

dlltest;

begin

end.

/介面函式實現檔案

unit unit1;

inte***ce

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的例子

注 以下程式在delphi7 oracle9i中測試通過 1 首先用delphi編制乙個dll程式,當然用vb,vc其它語言也可以,本人最近常用delphi,所以以下dll採用delphi程式編制 project1.dpr工程檔案 library project1 uses sysutils,cla...

乙個簡單的DLL

最近在you tube上學習一些api的使用,很有收穫,dll沒接觸過,就寫部落格記錄下來,方便自己複習,鞏固知識 乙個簡單的dll 建立win32專案,勾選dll,空專案 匯出函式宣告 extern c declspec dllexport 三個重要檔案 h dll lib 那麼具體怎麼做呢?首先...

c 中只有乙個dll檔案的呼叫 動態呼叫法

一 led的dll呼叫方法步驟 1.1將建立好的mfc工程,修改為多位元組,操作如下 配置屬性 常規 字符集 使用多位元組字符集 1.2將miniled.h,miniled.cpp,miniled.dll三個檔案加入新建工程的目錄下,並且加入到工程中如下圖所示 1.3將miniled.h標頭檔案加入...