资源描述：
《在pb中调用外部函数》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。
1、在PB中调用外部函数在使用PB进行应用程序的开发过程中，除了使用PB提供的函数之外，我们还可以使用PB之外的函数和过程，比如动态连接库中的函数、API以及其他的工具软件包。当我们希望给用户提供一些PB所不能提供的功能时，这时我们就需要使用外部函数了。本文以一个厂家提供的DLL文件的实际操作过程为例来说明如何在程序中调用外部函数。例子中动态连接库HCOM32.DLL的功能是实现微机与某一掌上电脑之间的通讯，本文主要讲述此DLL文件中的GetHcSysInfo()函数，该函数用于实现读取掌上电脑的系统信息的功能。程序的
2、创建步骤如下：建立应用程序创建一个名为Demo_dll的应用程序并存放在“...Demo_dll.pbl”中。创建选单创建一个名为m_main的主选单，该选单与下面将要创建的主窗体(w_mdihelp)相关联,并且定制了相应选单条的工具按钮，其部分内容见表1。表1部分选单信息选单条名称功能m_sysinfo取掌上电脑的系统信息m_exit退出应用程序创建窗体本实例共用到两个窗口，一个主窗体和一个子窗体，它们的具体内容见表2，各窗体所包含的控件见表3。表2窗体设置信息名称标题类型w_mdihelp外部函数调用演示m
3、dihelp!w_sysinfo读取系统信息popup!定义结构体变量由于该外部函数用到了tempstru类型的结构体变量，因此需要在w_sysinfo窗体中对此结构体变量加以定义。添加脚本（1）声明外部函数打开窗口w_sysinfo的脚本编辑器，从对象下拉列表中选择“Declare”，接着从事件下拉列表中选择“LocalExternalFunctions”，函数声明如下：FUNCTIONlongGetHcSysInfo(longnPort,longnBaudrate,stringlpszSysInfoFile,s
4、ysinfo_strulpBuffer)library“HCOM32.DLL”该函数的功能是读取掌上电脑的系统信息，其中参数的意义分别如下：nPort为通讯端口号，合法值为1-4；nBaudrate为通讯波特率，合法值为115200、38400和9600；lpszSysInfoFile为存放掌上电脑系统信息的文件名；lpBuffer为用来存放系统信息的缓冲区。该函数的返回值为0时表示成功，否则表示出错。（2）给Application的Open事件添加如下脚本：ifnotisvalid(w_mdihelp)theno
5、pen(w_mdihelp)endif（3）给选单m_sysinfo的Clicked事件添加如下脚本：opensheet(w_sysinfo,w_mdihelp,1,original!)（4）给窗体w_sysinfo中的控件cb_open的Clicked事件添加如下脚本：intrtnstringpathname,filenamertn=GetFileOpenName("打开文件",pathname,filename,"txt","TextFiles(*.txt),*.txt")ifrtn＜＞1thenmessage
6、box("警告","打开文件出错,将采用默认文件名!",exclamation!)sle_1.text="c:windowstempsys$info.txt"elsesle_1.text=pathnameendif（5）给窗体w_sysinfo中的控件cb_ok的Clicked事件添加如下脚本：intrtnstringfilenamesysinfo_strulpbufferfilename=sle_1.textiffilename=""thenmessagebox("警告","系统信息文件名不能为空,请重新输
7、入文件名!",exclamation!)returnendifrtn=GetHcSysInfo(1,115200,filename,lpbuffer)ifrtn＜＞0thenmessagebox("提示","获取掌上电脑系统信息出错,原因可能是未与掌上电脑建立连接!")elserun("c:windowsotepad.exe"+filename,normal!)endifclose(w_sysinfo)（6）给窗体w_sysinfo中的控件cb_cancel的Clicked事件添加如下脚本：close(w_s
8、ysinfo)（7）给选单m_exit的Clicked事件添加如下脚本：close(parentwindow)添加完脚本后，我们就可以运行该应用程序了。该程序在PowerBuilder7.0、Windows98环境下调试通过。表3窗体包含控件所属窗体控件类型控件名称控件文本w_mdihelp主窗体无其他控件，只需连结主选单即可w_sysinfostatict
