1   1  /  1  页   跳转

用PB调用VC编制DLL

用PB调用VC编制DLL

使用PowerBuilder(PB)开发应用程序时,可调用VC语言编制的动态链接库(DLL)来实现在PB中不容易实现的功能。实践中我们曾使用VC建立DLL,并在PB中调用VC创建的DLL函数,应用效果不错。在此主要介绍动态链接库的基本特点与使用方法。

动态链接库简述
 
  动态链接库(Dynamic-Link Library)简称DLL,是基于Windows系统的程序设计中的一个非常重要的组成部分。使用DLL的优点是:
 
  1. DLL的动态连接不是将库代码拷贝,而是在程序中记录函数的入口点和接口,在程序执行时才将库代码装入内存。如果有多个程序使用相同的DLL,也只需将DLL在内存中装载一次,以节省内存的开销。
 
  2. DLL是基于Windows系统的程序模块,不仅包含可执行代码,还可包含数据与各种资源,扩大了库文件的使用范围。
 
  3. 对于一个大型的、不断更新的应用程序,可将许多重复的功能编写成DLL,用主程序调用,这样既能减少开发的工作量,又能提高访问速度。
 
  4. DLL丰富了PowerScript语言的编程能力,可以使用PowerScript函数集之外的函数。
 
  5. DLL独立于编程语言,大多数Windows编程环境都允许主程序调用DLL中的函数。可以用VC、PB、VB、汇编语言等建立DLL,然后在不同语言开发的应用程序中调用它。


实例
 
1. 用VC创建DLL
 
          在VC 6.0中可以用“MFC AppWizard”自动生成“Win32 DLL”和“MFC AppWizard DLL”。启动VC之后,从“File/New”菜单项,选择“New”对话框中的“Projects”标签,选择新项目为“MFC AppWizard(DLL)”,可输入工程名为testdll,然后点击“OK”按钮,弹出选择DLL类型对话框后,再选择DLL类型为:Regular DLL With MFC Statically Linked,最后点击“Finish”按钮。这样,AppWizard将自动创建一个包含基本要素的DLL框架,接着手工添加相关的代码。
 

2. 打开testdll.cpp文件,添加如下语句


int  giTrcFlag=0;    /* 日志标志      */


extern "C" __declspec(dllexport) int PASCAL SetTrace(void)
{

        ::MessageBox(NULL, "跟踪信息:", "开启日志标志", MB_OK);
        giTrcFlag = 1;
        return 0;
}

extern "C" __declspec(dllexport) int PASCAL ClearTrace(void)
{
        ::MessageBox(NULL, "跟踪信息:", "关闭日志标志", MB_OK);
        giTrcFlag = 0;
        return 0;
}
 


接着打开testdll.def文件,在EXPORTS下输入函数说明,文件内容如下:
  LIBRARY “pbdll”
  DESCRIPTION ‘pbdll Windows Dynamic Link Library’
  EXPORTS
  ; Explicit exports can go here
  SetTrace @1
  ClearTrace @ 2

  最后编译生成动态链接库testdll.dll。
 

3. 在PB中调用VC创建的DLL函数
 
  为了在PB应用程序中调用存放在动态链接库testdll.dll中的函数,需要事先声明。在声明时必须明确:
  ● 函数的作用范围,全局声明可使该函数用于整个应用,局部声明仅使该函数在对象的脚本中有效;
  ● 必须指明函数返回的数据类型、传递参数的个数和类型,并将存放该函数的动态链接库的名字告诉PB。
FUNCTION int SetTrace()  LIBRARY "testdll.DLL"
FUNCTION int ClearTrace()  LIBRARY "testdll.DLL"


在PB中调用函数的代码如下:
int  iRetCode
int  iComport
int  iSndLen
STRING sRetBuf
STRING sRemote
STRING sSndBuf

SetTrace()
sRemote = "192.168.1.201"
sSndBuf = "aaaaaaaa1234567890"
iComport = 9011
iSndLen = 18
sRetBuf = SPACE(255) //分配空间
//iRetCode = ComToServ(sRemote, iComport, sSndBuf, iSndLen, sRetBuf)

MessageBox("返回消息的长度", iRetCode)
MessageBox("返回消息的内容", trim(sRetBuf))
ClearTrace()

 
  当PB应用程序调用外部函数时,动态链接库装入内存。操作系统会在如下位置查找动态链接库:EXE文件运行的目录或Windows的系统目录。假如没找到所需的DLL,应用程序将产生运行错误并显示错误提示。如果找到DLL,它就被映射到程序的内存空间。


最后编辑2006-07-11 15:53:01
分享到:
gototop
 

好文
gototop
 
1   1  /  1  页   跳转
页面顶部
Powered by Discuz!NT