在PB中實現(xiàn)多平臺統(tǒng)一的API調(diào)用

1、在PB中實現(xiàn)多平臺統(tǒng)一的API調(diào)用（深圳：獨孤求敗 2003-05-27）- 一.問題的提出: - 我們知道，PB是一個支持多平臺的軟件開發(fā)工具。它主要用于C/S應(yīng)用程序的客戶端軟件開發(fā)。PB支持用戶在不同的平臺上創(chuàng)建應(yīng)用程序。而PB的API（Aplication Program Interface）調(diào)用是指PB能夠利用其所掛的操作平臺所提供的函數(shù)來完成某些功能。由于PB能應(yīng)用在不同的平臺上，因此隨平臺環(huán)境的不同。PB的API調(diào)用形式也因此不同。這就涉及到如何在PB的應(yīng)用程序中開發(fā)出獨立于操作系統(tǒng)的統(tǒng)一的API調(diào)用以保證不管實際的AP

2、I函數(shù)調(diào)用是什么，都能為應(yīng)用程序編寫出一致的界面。 - 二.解決問題的方法: - 用PB提供的非可視化定制類用戶對象，使用繼承，封裝和重載的手段就能解決上述問題。具體地說，就是在應(yīng)用程序中建立一個祖先類用戶對象（基類），該祖先對象是一個非可視化定制類用戶對象，在祖先類用戶對象中封裝能為每個環(huán)境定義的全部函數(shù)（這些函數(shù)是原型化的用戶對象函數(shù)而不是外部聲明的函數(shù)）。在祖先類用戶對象中封裝的函數(shù)不完成任何工作（即不完成任何功能，定義為虛函數(shù)）。具體的函數(shù)（即實際的對不同的操作系統(tǒng)的API調(diào)用）附加于祖先類用戶對象的后代類用戶對象中。即在后代類用戶對象中重載祖先

3、類用戶對象中的所有函數(shù)，在后代類用戶對象中進(jìn)行API調(diào)用的實際外部函數(shù)聲明和調(diào)用。每一個后代類用戶對象對應(yīng)于一個操作系統(tǒng)。在應(yīng)用程序?qū)ο蟮膐pen事件的script中，用PB提供的GetEnvirnment()函數(shù)查詢應(yīng)用程序的環(huán)境以判斷當(dāng)前應(yīng)用程序運行于哪一種操作系統(tǒng)中，將用祖先類用戶對象聲明的實例變量實例化為對應(yīng)的操作系統(tǒng)所相應(yīng)的后代類用戶對象的實例。以便在運行時根據(jù)實例變量所具體實例化的類型來決定調(diào)用哪一個后代類用戶對象中相應(yīng)的函數(shù)（類的多態(tài)性）。 - 三.舉例說明: - 下面以一個簡單的例子說明如何在PB中實現(xiàn)多平臺統(tǒng)一的API調(diào)用。 

4、- 在本例中，需要實現(xiàn)這樣一個功能:在打開應(yīng)用程序的窗口時，能讓它居于屏幕的中心。這個功能由全局外部函數(shù)fun_centerwindow()完成。該函數(shù)的原型聲明為： fun_centerwindow(window w_active)returns (None)- 在該函數(shù)中，我們要調(diào)用microsoft提供的函數(shù)GetSystemMetrics()來訪問當(dāng)前屏幕的寬度和高度，并利用以象素為單位的轉(zhuǎn)換因子進(jìn)行修改，再轉(zhuǎn)換為PB單位。GetSystemMetrics()函數(shù)是windows操作系統(tǒng)提供的函數(shù)，在PB中調(diào)用這個函數(shù)時，要進(jìn)行函數(shù)的外

5、部聲明。該函數(shù)的外部聲明因操作系統(tǒng)的不同而不同。例如，在windows3.x和windows95中，該函數(shù)的外部聲明分別為: /win31FUNCTION Int GetSystemMetrics(Int index) LIBRARY "USER.EXE"/win32FUNCTION Int GetSystemMetrics(Int index) LIBRARY "USER32.DLL"- 下面，我們就以windows3.1和windo

6、ws95這兩個操作系統(tǒng)為例來實現(xiàn)對GetSystemMetrics()函數(shù)的統(tǒng)一調(diào)用界面。 - 首先，定義祖先類用戶對象uo_apictrl。打開 user object畫板，選中New，定義祖先類用戶對象uo_apictrl，為uo_apictrl定義user object function: uf_getsysmetrics(integer a_nindex)returns integer- 其具體代碼為: return 1 - 其次，定義對應(yīng)于win

7、dows3.1操作系統(tǒng)的后代類用戶對象uo_apictrl_winapi。打開 user object畫板，選中Inherit.，在Inherit From User Object對話框中選中剛才定義的祖先類用戶對象uo_apictrl，在打開的user object畫板下定義uo_apictrl_winapi,為uo_apictrl_winapi聲明局部外部函數(shù): PRIVATE FUNCTION Int GetSystemMetrics(Int index) LIBRAR

8、Y "USER.EXE"- 為uo_apictrl_winapi重載uo_apictrl中的函數(shù)uf_getsysmetrics(integer a_nindex)returns integer。該重載函數(shù)的代碼為: return GetSystemMetrics(a_nindex)- 以同樣的方式定義對應(yīng)于windows95操作系統(tǒng)的后代類用戶對象uo_apictrl_win32。為uo_apictrl_win32聲明局部外部函數(shù): PRIVATE FUNCTION Int

9、 GetSystemMetrics(Int index) LIBRARY "USER32.DLL" - 為uo_apictrl_win32重載uo_apictrl中的函數(shù)uf_getsysmetrics(integer a_nindex)returns integer。該重載函數(shù)的代碼為: return GetSystemMetrics(a_nindex)- 第三步，在應(yīng)用程序?qū)ο骻_App中聲明如下一個實例變量apictrl: uo_apictrl

10、60;apictrl- 并在應(yīng)用程序?qū)ο骻_App的open事件的script中將apictrl實例化為對應(yīng)的后代類用戶對象的實例。該段代碼如下: Environment env /定義一個環(huán)境對象envinteger rtnrtn = GetEnvironment(env)IF rtn < > 1 THEN RETURNCHOOSE CASE env.OSType /測試操作環(huán)境類型CASE Windows!/在

11、windows操作系統(tǒng)下再測試具體的windows操作系統(tǒng)版本IF env.OSMajorRevision = 4 THEN/windows95apictrl = Create uo_apictrl_win32ELSEIF env.OSMajorRevision = 3 THEN/windows3.xapictrl = Create uo_apictrl_winapiEND IFCASE WindowsNT!  &#

12、160;apictrl = Create uo_apictrl_win32CASE Else   SetNull(apictrl)END CHOOSE- 最后，定義全局外部函數(shù)fun_centerwindow()。函數(shù)原型為: fun_centerwindow(window w_active) returns (None)      - 具體代碼為: int lWidth,lH

13、eightint offsetX,offsetY/取當(dāng)前屏幕的寬度和高度并轉(zhuǎn)換為PB單位lWidth = g_App.apictrl.uf_getsysmetrics(0) * (686/150)lHeight = g_App.apictrl.uf_getsysmetrics(1) * (801/200)offsetX = lWidth - w_active.WidthoffsetY = lHeight - w_active.Height/設(shè)定窗口的左上角坐標(biāo)w_active.X = offsetX/2w_active.Y = offsetY/2- 四.小結(jié) - 有了fun_centerwindow()函數(shù)后，只須在應(yīng)用程序的窗口的open事件的script中編寫如下代碼 fun