1、在PB中調用外部函數在使用PB進行應用程序的開發過程中，除了使用PB提供的函數之外，我們還可以使用PB之外的函數和過程，比如動態連接庫中的函數、API以及其他的工具軟件包。當我們希望給用戶提供一些PB所不能提供的功能時，這時我們就需要使用外部函數了。本文以一個廠家提供的DLL文件的實際操作過程為例來說明如何在程序中調用外部函數。例子中動態連接庫HCOM32.DLL的功能是實現微機與某一掌上電腦之間的通訊，本文主要講述此DLL文件中的GetHcSysInfo()函數，該函數用于實現讀取掌上電腦的系統信息的功能。程序的創建步驟如下：建立應用程序 創建一個名為Demo_dll的應用程序并存放在“.

2、Demo_dll.pbl”中。 創建選單 創建一個名為m_main的主選單，該選單與下面將要創建的主窗體(w_mdihelp)相關聯, 并且定制了相應選單條的工具按鈕，其部分內容見表1。表1 部分選單信息選單條名稱 功能 m_sysinfo 取掌上電腦的系統信息 m_exit 退出應用程序 創建窗體 本實例共用到兩個窗口，一個主窗體和一個子窗體，它們的具體內容見表2，各窗體所包含的控件見表3。表2 窗體設置信息名稱 標題 類型 w_mdihelp 外部函數調用演示 mdihelp!w_sysinfo 讀取系統信息 popup! 定義結構體變量 由于該外部函數用到了tempstru類型的結構體變

3、量，因此需要在w_sysinfo窗體中對此結構體變量加以定義。添加腳本（1）聲明外部函數 打開窗口w_sysinfo的腳本編輯器，從對象下拉列表中選擇“Declare”，接著從事件下拉列表中選擇“Local External Functions”，函數聲明如下： FUNCTION long GetHcSysInfo(long nPort, long nBaudrate, string lpszSysInfoFile, sysinfo_stru lpBuffer) library “HCOM32.DLL”該函數的功能是讀取掌上電腦的系統信息，其中參數的意義分別如下：nPort為通訊端口號，合法值

4、為1-4；nBaudrate為通訊波特率，合法值為115200、38400和9600；lpszSysInfoFile為存放掌上電腦系統信息的文件名；lpBuffer為用來存放系統信息的緩沖區。該函數的返回值為0時表示成功，否則表示出錯。（2）給Application的Open事件添加如下腳本：if not isvalid(w_mdihelp) thenopen(w_mdihelp)end if（3）給選單m_sysinfo的Clicked事件添加如下腳本：opensheet(w_sysinfo,w_mdihelp,1,original!) （4）給窗體w_sysinfo中的控件cb_open的

5、Clicked事件添加如下腳本：int rtnstring pathname, filenamertn=GetFileOpenName (打開文件,pathname,filename,txt,Text Files (*.txt),*.txt)if rtn1 thenmessagebox(警告,打開文件出錯,將采用默認文件名!,exclamation!)sle_1.text=c:windowstempsys$info.txtelsesle_1.text=pathnameend if（5）給窗體w_sysinfo中的控件cb_ok的Clicked事件添加如下腳本： int rtnstring fi

6、lenamesysinfo_stru lpbufferfilename=sle_1.textif filename= thenmessagebox(警告,系統信息文件名不能為空,請重新輸入文件名!,exclamation!)returnend ifrtn=GetHcSysInfo(1,115200,filename,lpbuffer)if rtn0 thenmessagebox(提示,獲取掌上電腦系統信息出錯,原因可能是未與掌上電腦建立連接!)elserun(c:windowsnotepad.exe +filename,normal!)end ifclose(w_sysinfo) （6）給窗體w_sysinfo中的控件cb_cancel的Clicked事件添加如下腳本：close(w_sysinfo) （7）給選單m_exit的Clicked事件添加如下腳本：close(parentwindow) 添加完腳本后，我們就可以運行該應用程序了。該程序在PowerBuilder 7.0、Windows 98環境下調試通過。表3 窗體包含控件 所屬窗體 控件類型 控件名稱 控件文本 w_mdihelp 主窗體無其他控件，只需連結主選單即可 w_sysinfostatictex