1制作好DLL之后,就可以用VB调用它,实现VB调用C程序。
VB程序要使用DLL中的函数,首先必须要有特殊的声明,用Declare声明语句在窗体级或模块级或全局模块的代码声明段进行声明,将动态链接库中的函数声明到VB中,供VB程序调用。
语句格式为:Declare Sub过程名Lib[Alias"别名]([ByVal参数AS类型]),或为Declare Function函数名Lib[Alias"别名]([ByVal参数AS类型])AS类型在声明中首先用Declare 关键字表示声明DLL中的函数。
在C语言中有的函数类型为VOID,它表示不具有返回值,则必须用关键字Sub将其声明成过程。
有的函数具有返回值,则必须用关键字Function将其声明成函数,并且在声明语句的最后要用AS关键字指明函数返回值的类型。
例如上面的ADD.DLL在VB中就可以声明为:Declare Function ADD Lib“c:\ADD.dll”(ByVal X AS Integer,ByVal Y AS Integer,ByVal filein asstring)AS Integer通过此声明语句将函数ADD声明到VB中,便可直接调用。
2、dll文件中的函数好像是C语言写的,//函数名:int__stdcall GetMacNo(int*MacNo)//功能:获取卡机的卡机号(单机时)//参数:MacNo[0]-被读出的卡机号//返回值:0-成功,//2-PC接收超时,//3-应答错误dll的文件名是COMM232.dll函数的形参int*MacNo是指针吗?在VB中应该怎么声明和调用该函数?VB里也可以定义指针吗?问题补充:vb调用dll文件中的函数我是会的,但这儿的形参有一个星号才不知是怎么一回事,我是这样声明的对吗?Public Declare Function GetMacNo Lib"COMM232.dll"(ByVal MacNo As Integer)As Integer又应该怎么调用呢?要先定义一个指针的变量再传给*MacNo还是要怎么做?都说了MacNo是被读出的卡机号,那么就是传址的了。
dim l as integerdim m as integerl=GetMacNo(m)if l=0thenlabel1.caption="卡机号:"&melseif l=2thenmsgbox"PC接收超时"elseif l=3thenmsgbox"应答错误"end ifWindows动态连接库是包含数据和函数的模块,可以被其它可执行文件(EXE、DLL、OCX等)调用。
动态连接库包含两种函数:输出(exported)函数和内部(internal)函数。
输出函数可以被其它模块调用,而内部函数则只能在动态连接库内部使用。
尽管动态连接库也能输出数据,但实际上它的数据通常是只在内部使用的。
使用动态连接库的优点是显而易见的。
将应用程序的一部分功能提取出来做成动态连接库,不但减小了主应用程序的大小,提高了程序运行效率,还使它更加易于升级。
多个应用程序共享一个动态连接库还能有效地节省系统资源。
正因为如此,在Windows系统中,动态连接库得到了大量的使用。
一般来说,动态连接库都是以DLL为扩展名的文件,如Kernel32.dll、commdlg.dll等。
但也有例外,如16位Windows的核心部件之一GDI.exe其实也是一个动态库。
编写动态连接库的工具很多,如VisualC++、BorlandC++、Delphi等,具体方法可以参见相关文档。
下面只以Visual C++6.0为例,介绍一下开发应用于VisualBasic6.0的动态连接库时应注意的问题(本文中所有涉及C/C++语言或编译环境的地方,都以VC为例;所有涉及Visual Basic 的地方都以VB为例)。
作为一种32位Windows应用程序的开发工具,VB生成的exe文件自然也都是32位的,通常情况下也只能调用32位的动态连接库。
但是,并不是所有的32位动态库都能被VB生成的exe文件正确地识别。
一般来说,自己编写用于VB应用程序调用的动态连接库时,应注意以下几个方面的问题:1、生成动态库时要使用__stdcall调用约定,而不能使用缺省的__cdecl调用约定;__stdcall约定通常用于32位API函数的调用。
2、在VC中的定义文件(.def)中,必须列出输出函数的函数名,以强制VC系统将输出函数的装饰名(decoratedname)改成普通函数名;所谓装饰名是VC的编译器在编译过程中生成的输出函数名,它包含了用户定义的函数名、函数参数及函数所在的类等多方面的信息。
由于在VC中定义文件不是必需的,因此工程不包含定义文件时VC就按自己的约定将用户定义的输出函数名修改成装饰名后放到输出函数列表中,这样的输出函数在VB生成的应用程序中是不能正确调用的(除非声明时使用Alias子句)。
因此需要增加一个.def文件,其中列出用户需要的函数名,以强制VC不按装饰名进行输出。
3、VC中的编译选项"结构成员对齐方式(structure member alignment)"应设成4字节,其原因将在后文详细介绍。
4、由于在C中整型变量是4个字节,而VB中的整型变量依然只有2个字节,因此在C中声明的整型(int)变量在VB中调用时要声明为长整型(long),而C中的短整型(short)在VB中则要声明成整型(integer);下表针对最常用的C语言数据类型列出了与之等价的Visual Basic类型(用于32位版本的Windows)。
C语言数据类型在VisualBasic中声明为调用时使用的表达式ATOM ByVal variable As Integer结果为Integer类型的表达式BOOL ByVal variable As Long结果为Long类型的表达式BYTE ByVal variable As Byte结果为Byte类型的表达式CHAR ByVal variable As Byte结果为Byte类型的表达式COLORREF ByVal variable As Long结果为Long类型的表达式DWORD ByVal variable As Long结果为Long类型的表达式HWND,HDC,HMENU ByVal variable As Long结果为Long类型的表达式等Windows句柄INT,UINT ByVal variable As Long结果为Long类型的表达式LONG ByVal variable As Long结果为Long类型的表达式LPARAM ByVal variable As Long结果为Long类型的表达式LPDWORD variable As Long结果为Long类型的表达式LPINT,LPUINT variable As Long结果为Long类型的表达式LPRECT variable As type自定义类型的任意变量LPSTR,LPCSTR ByVal variable As String结果为String类型的表达式LPVOID variable As Any任何变量(在传递字符串的时候使用ByVal)LPWORD variable As Integer结果为Integer类型的表达式LRESULT ByVal variable As Long结果为Long类型的表达式NULL As Any或ByVal Nothing或ByVal variable As Long ByVal0&或VBNullStringSHORT ByVal variable As Integer结果为Integer类型的表达式VOID Sub procedure不可用WORD ByVal variable As Integer结果为Integer类型的表达式WPARAM ByVal variable As Long结果为Long类型的表达式5、VB中进行32位动态库的声明时,函数名是大小写敏感的。
在获得了需要的动态连接库之后,就可以在VB中进行调用了。
但是,由于VB不能验证应用程序传递到动态连接库中的参数值是否正确,因此VB程序中大量的API调用可能会降低整个应用程序的稳定性,也会增加以后维护的难度。
所以,决定在VB程序中直接调用API函数时要慎重,但适当的使用API调用确实能够有效地提高VB程序的性能。
这之间的平衡需要编程人员根据实际情况来掌握。
下面就具体介绍一下在VB中调用API函数时需要做的工作。
要声明一个DLL过程,首先需要在代码窗口的"通用(General)"部分增加一个Declare 语句。
如果该过程返回一个值,应将其声明为Function:Declare Function publicname Lib"libname"[Alias"alias"][([[ByVal]variable[As type] [,[ByVal]variable[As type]]...])]As Type如果过程没有返回值,可将其声明为Sub:Declare Sub publicname Lib"libname"[Alias"alias"][([[ByVal]variable[As type] [,[ByVal]variable[As type]]...])]缺省情况下,在标准模块中声明的DLL过程,可以在应用程序的任何地方调用它。
在其它类型的模块中定义的DLL过程则是模块私有的,必须在它们前面声明Private关键字,以示区分。
下面分别介绍声明语句的各个组成部分。
(一)、指定动态库:Declare语句中的Lib子句用来告诉Visual Basic如何找到包含过程的.dll文件。
如果引用的过程属于Windows核心库(User32、Kernel32或GDI32),则可以不包含文件扩展名,如:Declare Function GetTickCount Lib"kernel32"Alias"GetTickCount"()As Long对于其它动态连接库,可以在Lib子句指定文件的路径:Declare Function lzCopy Lib"c:\windows\lzexpand.dll"_(ByVal S As Integer,ByVal D As Integer)As Long如果未指定libname的路径,Visual Basic将按照下列顺序查找该文件:①.exe文件所在的目录②当前目录③Windows系统目录④Windows目录⑤Path环境变量中的目录下表中列出了常用的操作系统环境库文件。