用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，它就被映射到程序的内存空间。