在Oracle/2000中調(diào)用Windows API函數(shù)

2024-08-29 13:50:38

字體：大中小

供稿：網(wǎng)友

OracleDeveloper/2000是Oracle的微機(jī)開(kāi)發(fā)工具，由于它與Oracle數(shù)據(jù)庫(kù)的緊密連接，比用PowerBuilder或其它高級(jí)語(yǔ)言采用ODBC與Oracle的連接享有得天獨(dú)厚的優(yōu)點(diǎn)，越來(lái)越在Windows95和WindowsNT平臺(tái)上得到廣泛應(yīng)用，筆者在用其進(jìn)行程序設(shè)計(jì)時(shí)感到，既然是在Windows平臺(tái)上開(kāi)發(fā)程序，假如能在其中應(yīng)用一些WindowsAPI函數(shù)，將使Developer/2000有如虎添翼的感覺(jué)，可以大大彌補(bǔ)它與底層操作系統(tǒng)的聯(lián)系能力差、控制實(shí)時(shí)硬件設(shè)備功能差的缺點(diǎn)，開(kāi)發(fā)出集成性更好的應(yīng)用程序。所有用第三方語(yǔ)言編寫(xiě)的子程序?qū)eveloper/2000都稱(chēng)為外部函數(shù)，WindowsAPI函數(shù)也是外部函數(shù)。這些外部函數(shù)必須包含在一個(gè)動(dòng)態(tài)庫(kù)中。例如WINDOWS操作系統(tǒng)下的動(dòng)態(tài)鏈接庫(kù)或UNIX系統(tǒng)下的共享庫(kù)等。Developer/2000通過(guò)為每一個(gè)外部函數(shù)產(chǎn)生一個(gè)PL/SQL接口，它使用PL/SQL的語(yǔ)法，在程序中調(diào)用這一接口程序就可以激活這一外部函數(shù)。對(duì)一個(gè)外部函數(shù)產(chǎn)生一個(gè)PL/SQL接口，需要用到內(nèi)建軟件包ORA-FFI，它包含一些PL/SQL的子程序用來(lái)對(duì)外部函數(shù)生成PL/SQL接口，實(shí)際操作時(shí)可以用PRocedureBuilder產(chǎn)生一個(gè)程序庫(kù)，在程序庫(kù)中建立一個(gè)程序包（Package）,在這個(gè)包中實(shí)現(xiàn)對(duì)外部函數(shù)建立連接。下面介紹這一過(guò)程的具體步驟： 1.初始化外部函數(shù) 就是說(shuō)明包含外部函數(shù)的動(dòng)態(tài)鏈接庫(kù)的位置，并從中分離出外部函數(shù)的原型，并將外部函數(shù)中主語(yǔ)言的數(shù)據(jù)類(lèi)型和PL/SQL數(shù)據(jù)類(lèi)型做一一對(duì)應(yīng)的匹配。這是在包體（PackageBody）中進(jìn)行的。具體分以下幾步：（1）用OQA_FFI.LOAD_LIBRARY得到包含外部函數(shù)的動(dòng)態(tài)鏈接庫(kù)的庫(kù)柄，此時(shí)需提供動(dòng)態(tài)鏈接庫(kù)的名字和位置。（2）用ORA_FFI.REGISTER_FUNCTION得到外部函數(shù)的函數(shù)柄，這時(shí)需提供動(dòng)態(tài)鏈接庫(kù)的庫(kù)柄和外部函數(shù)名。（3）用ORA_FFI.REGISTER_PARAMETER來(lái)注冊(cè)外部函數(shù)的參數(shù)類(lèi)型，對(duì)每一個(gè)參數(shù)都要提供它的外部函數(shù)柄和相應(yīng)的PL/SQL數(shù)據(jù)類(lèi)型。參數(shù)注冊(cè)的順序必須與它們出現(xiàn)在外部函數(shù)原型中的順序一致。（4）用ORA_FFI.REGISTER_RETURN來(lái)注冊(cè)外部函數(shù)的返回值類(lèi)型，這時(shí)需要提供它的外部函數(shù)柄和相應(yīng)的PL/SQL數(shù)據(jù)類(lèi)型。 2.將外部函數(shù)和一個(gè)PL/SQL子程序相關(guān)聯(lián) 一個(gè)和外部函數(shù)建立關(guān)聯(lián)的PL/SQL子程序，實(shí)際上指明了外部函數(shù)的內(nèi)存地址，每次調(diào)用這個(gè)子程序，實(shí)際上是調(diào)用與它相對(duì)應(yīng)的外部函數(shù)。具體步驟為：（1）用ORA_FFI.FIND_FUNCTION或ORA_FFI.REGISTER_FUNCTION得到一個(gè)函數(shù)柄。（2）在PL/SQL包體的聲明部分，定義一個(gè)PL/SQL子程序，它的第一個(gè)參數(shù)是類(lèi)型為ORA_FFI.FUNCHANDLETYPE,接下來(lái)是依次對(duì)應(yīng)外部函數(shù)參數(shù)的PL/SQL數(shù)據(jù)類(lèi)型的參數(shù)。　（3）在這個(gè)PL/SQL子程序中加入一個(gè)PRAGMA接口。PRAGMA聲明就是通過(guò)將控制轉(zhuǎn)到一個(gè)內(nèi)存地址，來(lái)激活這個(gè)外部函數(shù)。3.生成一個(gè)模擬外部函數(shù)的原型的PL/SQL子程序。這個(gè)子程序就是用戶(hù)可見(jiàn)的外部函數(shù)的PL/SQL接口，用戶(hù)按照它的參數(shù)類(lèi)型和返回值類(lèi)型來(lái)使用外部函數(shù)，具體步驟為：（1）在包體的聲明部分，定義一個(gè)PL/SQL子程序，它的參數(shù)和返回值是和外部函數(shù)對(duì)應(yīng)的PL/SQL類(lèi)型。這就是模擬外部函數(shù)原型的一個(gè)子程序。（2）在這個(gè)子程序中調(diào)用與上步生成的與外部函數(shù)相關(guān)聯(lián)的PL/SQL子程序。（3）在PL/SQL包的說(shuō)明(PackageSpefication)部分，輸入這個(gè)PL/SQL子程序的原型。下面是一個(gè)完整的為WindowsAPI函數(shù)winexec建立PL/SQL接口的例子：

　　　　PACKAGEWinExecIS　　FUNCTIONWinExec(ExecfileINVARCHAR2,　　commandINPLS_INTEGER)　　RETURNPLS_INTEGER;　　END;/*在包說(shuō)明部分，是模擬外部　　函數(shù)原型的PL/SQL函數(shù)原型說(shuō)明*/　　PACKAGEBODYWinExecIS　　lh_USERora_ffi.libHandleType;/*定義庫(kù)柄類(lèi)型變量*/　　fh_WinExecora_ffi.funcHandleType;/*定義函數(shù)柄類(lèi)型變量*/　　　　FUNCTIONi_WinExec(funcHandleINora_ffi.funcHandleType,　　ExecfileINOUTVARCHAR2,　　commandINPLS_INTEGER)　　RETURNPLS_INTEGER;　　　　PRAGMAINTERFACE(C,i_WinExec,11265);　　/*步驟2將一個(gè)PL/SQL子程序與外部函數(shù)相關(guān)聯(lián)*/　　　　FUNCTIONWinExec(ExecfileINVARCHAR2,　　commandINPLS_INTEGER)　　RETURNPLS_INTEGER　　IS　　execfile_lVARCHAR2(512):=Execfile;　　rcPLS_INTEGER;　　BEGIN　　rc:=i_WinExec(fh_WinExec,　　execfile_l,　　command);　　　　RETURN(rc);　　END;　　/*步驟3中PL/SQL模擬函數(shù)的定義，　　它實(shí)際上就是調(diào)用步驟2中與外部函數(shù)建立關(guān)聯(lián)的那個(gè)函數(shù)*/　　BEGIN　　BEGIN　　lh_USER:=ora_ffi.find_library('Kernel32.dll');　　EXCEPTIONWHENora_ffi.FFI_ERRORTHEN　　lh_USER:=ora_ffi.load_library(NULL,'kernel32.dll');　　END;/*得到動(dòng)態(tài)鏈接庫(kù)的庫(kù)柄*/　　　　fh_WinExec:=ora_ffi.register_function　　(lh_USER,'WinExec',ora_ffi.PASCAL_STD);　　/*得到外部函數(shù)的函數(shù)柄*/　　ora_ffi.register_parameter(fh_WinExec,　　ORA_FFI.C_CHAR_PTR);/*參數(shù)注冊(cè)，原類(lèi)型為L(zhǎng)PCSTR*/　　ora_ffi.register_parameter(fh_WinExec,　　ORA_FFI.C_INT);/*參數(shù)注冊(cè)，原類(lèi)型為UINT*/　　　　ora_ffi.register_return(fh_WinExec,　　ORA_FFI.C_INT);/*返回值注冊(cè)，原類(lèi)型為BOOL*/　　　　ENDWinExec;

　　可以將多個(gè)外部函數(shù)的PL/SQL接口放在一個(gè)包內(nèi)。要在Developer/2000的FormDesigner中使用這些外部函數(shù)，只要把包含這一程序包的程序庫(kù)（.PLL）附加進(jìn)來(lái)，使用包名.函數(shù)名就可激活這個(gè)外部函數(shù)。例如：WinExec.WinExec('c:/windows/notepad.exe',0) 具體WindowsAPI函數(shù)數(shù)據(jù)類(lèi)型和PL/SQL數(shù)據(jù)類(lèi)型的轉(zhuǎn)換可參照Developer/2000中ProcedureBuilder幫助文件中對(duì)ORA_FFI軟件包的具體介紹。

上一篇：Oracle數(shù)據(jù)庫(kù)最大可用性體系結(jié)構(gòu)

下一篇：管理Oracle OLAP時(shí)清除通往OLAP的障礙