在Oracle/2000中調用Windows API函數

2024-08-29 13:50:38

字體：大中小

來源：轉載

供稿：網友

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

　　　　PACKAGEWinExecIS　　FUNCTIONWinExec(ExecfileINVARCHAR2,　　commandINPLS_INTEGER)　　RETURNPLS_INTEGER;　　END;/*在包說明部分，是模擬外部　　函數原型的PL/SQL函數原型說明*/　　PACKAGEBODYWinExecIS　　lh_USERora_ffi.libHandleType;/*定義庫柄類型變量*/　　fh_WinExecora_ffi.funcHandleType;/*定義函數柄類型變量*/　　　　FUNCTIONi_WinExec(funcHandleINora_ffi.funcHandleType,　　ExecfileINOUTVARCHAR2,　　commandINPLS_INTEGER)　　RETURNPLS_INTEGER;　　　　PRAGMAINTERFACE(C,i_WinExec,11265);　　/*步驟2將一個PL/SQL子程序與外部函數相關聯*/　　　　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模擬函數的定義，　　它實際上就是調用步驟2中與外部函數建立關聯的那個函數*/　　BEGIN　　BEGIN　　lh_USER:=ora_ffi.find_library('Kernel32.dll');　　EXCEPTIONWHENora_ffi.FFI_ERRORTHEN　　lh_USER:=ora_ffi.load_library(NULL,'kernel32.dll');　　END;/*得到動態鏈接庫的庫柄*/　　　　fh_WinExec:=ora_ffi.register_function　　(lh_USER,'WinExec',ora_ffi.PASCAL_STD);　　/*得到外部函數的函數柄*/　　ora_ffi.register_parameter(fh_WinExec,　　ORA_FFI.C_CHAR_PTR);/*參數注冊，原類型為LPCSTR*/　　ora_ffi.register_parameter(fh_WinExec,　　ORA_FFI.C_INT);/*參數注冊，原類型為UINT*/　　　　ora_ffi.register_return(fh_WinExec,　　ORA_FFI.C_INT);/*返回值注冊，原類型為BOOL*/　　　　ENDWinExec;

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

上一篇：Oracle數據庫最大可用性體系結構

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

學習交流

如何查找有故障的配件

如何查找有故障的配件...

熱門圖片

猜你喜歡的新聞

猜你喜歡的關注