張瑜

在使用PB進(jìn)行應(yīng)用程序的開發(fā)過程中，除了使用PB提供的函數(shù)之外，我們還可以使用PB之外的函數(shù)和過程，比如動(dòng)態(tài)連接庫中的函數(shù)、Windows API以及其他的工具軟件包。當(dāng)我們希望給用戶提供一些PB所不能提供的功能時(shí)，這時(shí)我們就需要使用外部函數(shù)了。
本文以一個(gè)廠家提供的DLL文件的實(shí)際操作過程為例來說明如何在程序中調(diào)用外部函數(shù)。例子中動(dòng)態(tài)連接庫HCOM32.DLL的功能是實(shí)現(xiàn)微機(jī)與某一掌上電腦之間的通訊，本文主要講述此DLL文件中的GetHcSysInfo()函數(shù)，該函數(shù)用于實(shí)現(xiàn)讀取掌上電腦的系統(tǒng)信息的功能。

程序的創(chuàng)建步驟如下：

建立應(yīng)用程序
創(chuàng)建一個(gè)名為Demo_dll的應(yīng)用程序并存放在“...\ Demo_dll.pbl”中。

創(chuàng)建選單
創(chuàng)建一個(gè)名為m_main的主選單，該選單與下面將要?jiǎng)?chuàng)建的主窗體(w_mdihelp)相關(guān)聯(lián), 并且定制了相應(yīng)選單條的工具按鈕，其部分內(nèi)容見表1。
表1 部分選單信息
選單條名稱 功能
m_sysinfo 取掌上電腦的系統(tǒng)信息
m_exit 退出應(yīng)用程序

創(chuàng)建窗體
本實(shí)例共用到兩個(gè)窗口，一個(gè)主窗體和一個(gè)子窗體，它們的具體內(nèi)容見表2，各窗體所包含的控件見表3。
表2 窗體設(shè)置信息
名稱 標(biāo)題 類型
w_mdihelp 外部函數(shù)調(diào)用演示 mdihelp!

w_sysinfo 讀取系統(tǒng)信息 popup!

定義結(jié)構(gòu)體變量
由于該外部函數(shù)用到了tempstru類型的結(jié)構(gòu)體變量，因此需要在w_sysinfo窗體中對(duì)此結(jié)構(gòu)體變量加以定義。

添加腳本

（1）聲明外部函數(shù)
打開窗口w_sysinfo的腳本編輯器，從對(duì)象下拉列表中選擇“Declare”，接著從事件下拉列表中選擇“Local External Functions”，函數(shù)聲明如下： FUNCTION long GetHcSysInfo(long nPort, long nBaudrate, string lpszSysInfoFile, sysinfo_stru lpBuffer) library “HCOM32.DLL”
該函數(shù)的功能是讀取掌上電腦的系統(tǒng)信息，其中參數(shù)的意義分別如下：
nPort為通訊端口號(hào)，合法值為1-4；
nBaudrate為通訊波特率，合法值為115200、38400和9600；
lpszSysInfoFile為存放掌上電腦系統(tǒng)信息的文件名；
lpBuffer為用來存放系統(tǒng)信息的緩沖區(qū)。
該函數(shù)的返回值為0時(shí)表示成功，否則表示出錯(cuò)。
（2）給Application的Open事件添加如下腳本：
if not isvalid(w_mdihelp) then
open(w_mdihelp)
end if


（3）給選單m_sysinfo的Clicked事件添加如下腳本：
opensheet(w_sysinfo,w_mdihelp,1,original!)

（4）給窗體w_sysinfo中的控件cb_open的Clicked事件添加如下腳本：
int rtn
string pathname, filename
rtn=GetFileOpenName ("打開文件",pathname,filename,"txt","Text Files (*.txt),*.txt")
if rtn＜＞1 then
messagebox("警告","打開文件出錯(cuò),將采用默認(rèn)文件名!",exclamation!)
sle_1.text="c:\windows\temp\sys$info.txt"
else
sle_1.text=pathname
end if


（5）給窗體w_sysinfo中的控件cb_ok的Clicked事件添加如下腳本：
int rtn
string filename
sysinfo_stru lpbuffer
filename=sle_1.text
if filename="" then
messagebox("警告","系統(tǒng)信息文件名不能為空,請(qǐng)重新輸入文件名!",exclamation!)
return
end if
rtn=GetHcSysInfo(1,115200,filename,lpbuffer)
if rtn＜＞0 then
messagebox("提示","獲取掌上電腦系統(tǒng)信息出錯(cuò),原因可能是未與掌上電腦建立連接!")
else
run("c:\windows\notepad.exe "+filename,normal!)
end if
close(w_sysinfo)

（6）給窗體w_sysinfo中的控件cb_cancel的Clicked事件添加如下腳本：
close(w_sysinfo)

（7）給選單m_exit的Clicked事件添加如下腳本：
close(parentwindow)

添加完腳本后，我們就可以運(yùn)行該應(yīng)用程序了。該程序在PowerBuilder 7.0、Windows 98環(huán)境下調(diào)試通過。

表3 窗體包含控件
所屬窗體 控件類型 控件名稱 控件文本
w_mdihelp 主窗體無其他控件，只需連結(jié)主選單即可     
w_sysinfo
statictext st_1 系統(tǒng)信息文件名
singlelineedit ste_1   
commandbutton cb_open   
commandbutton cb_ok 確定
commandbutton cb_cancel 取消