在vb中调用dll的方法.docx
《在vb中调用dll的方法.docx》由会员分享,可在线阅读,更多相关《在vb中调用dll的方法.docx(27页珍藏版)》请在三一办公上搜索。
1、在vb中调用dll的方法1 制作好DLL之后,就可以用VB调用它,实现VB调用C程序。VB程序要使用DLL中的函数,首先必须要有特殊的声明,用Declare声明语句在窗体级或模块级或全局模块的代码声明段进行声明,将动态链接库中的函数声明到VB中,供VB程序调用。 语句格式为:Declare Sub 过程名Lib Alias 别名,或为Declare Function函数名Lib Alias 别名AS类型在声明中首先用Declare关键字表示声明DLL中的函数。在C语言中有的函数类型为VOID,它表示不具有返回值,则必须用关键字Sub将其声明成过程。有的函数具有返回值,则必须用关键字Functi
2、on将其声明成函数,并且在声明语句的最后要用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) / 功能:获取卡机的卡机号(单机时) / 参数: MacNo0-被读出的卡
3、机号 / 返回值: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是被读出的卡
4、机号,那么就是传址的了。 dim l as integer dim m as integer l=GetMacNo(m) if l=0 then label1.caption=卡机号: & m elseif l=2 then msgbox PC接收超时 elseif l=3 then msgbox 应答错误 end if Windows动态连接库是包含数据和函数的模块,可以被其它可执行文件调用。动态连接库包含两种函数:输出函数和内部函数。输出函数可以被其它模块调用,而内部函数则只能在动态连接库内部使用。尽管动态连接库也能输出 数据,但实际上它的数据通常是只在内部使用的。使用动态连接库的优点是显
5、而易见的。将应用程序的一部分功能提取出来做成动态连接库,不但减小了主应用程序的大小,提高了程序 运行效率,还使它更加易于升级。多个应用程序共享一个动态连接库还能有效地节省系统资源。正因为如此,在Windows系统中,动态连接库得到了大量的使用。 一般来说,动态连接库都是以DLL为扩展名的文件,如Kernel32.dll、commdlg.dll等。但也有例外,如16位Windows的核心部件之一GDI.exe其实也是一个动态库。编写动态连接库的工具很多,如VisualC+、BorlandC+、Delphi等,具体方法可以参见相关文档。下面只以Visual C+6.0为例,介绍一下开发应用于Vis
6、ualBasic6.0的动态连接库时应注意的问题。 作为一种32位Windows应用程序的开发工具,VB生成的exe文件自然也都是32位的,通常情况下也只能调用32位的动态连接库。但是,并不是所有的32位动态库都能被VB生成的exe 文件正确地识别。一般来说,自己编写用于VB应用程序调用的动态连接库时,应注意以下几个方面的 问题: 1、生成动态库时要使用_stdcall调用约定,而不能使用缺省的_cdecl调用约定;_stdcall 约定通常用于32位API函数的调用。 2、在VC中的定义文件中,必须列出输出函数的函数名,以强制VC系统将输出函数的装饰名改成普通函数名;所谓装饰名是VC的编译器
7、在编译过程中生成的输出函数名,它包含了用户定义的函数名、函数参数及函数所在的类等多方面的信息。由于在VC中定义文件不是必需的,因此工程不包含定义文件时VC就按自己的约定将用户定义的输出函数名修改成装饰名后放到输出函数列表中,这样的输出函数在VB生成的应用程序中是不能正确调用的。因此需要增加一个.def文件,其中列出用户需要的函数名,以强制VC不按装饰名进行输出。 3、VC中的编译选项结构成员对齐方式 应设成4字节,其原因将在后文详细介绍。 4、由于在C中整型变量是4个字节,而VB中的整型变量依然只有2个字节,因此在C中声 明的整型(int)变量在VB中调用时要声明为长整型(long),而C中的
8、短整型在VB中则 要声明成整型;下表针对最常用的C语言数据类型列出了与之等价的Visual Basic 类型。 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 Lon
9、g 结果为 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 结果为 Lo
10、ng 类型的表达式 LPINT, LPUINT variable As Long 结果为 Long 类型的表达式 LPRECT variable As type 自定义类型的任意变量 LPSTR, LPCSTR ByVal variable As String 结果为 String 类型的表达式 LPVOID variable As Any 任何变量 LPWORD variable As Integer 结果为Integer 类型的表达式 LRESULT ByVal variable As Long 结果为 Long 类型的表达式 NULL As Any 或 ByVal Nothing 或 B
11、yVal variable As Long ByVal 0& 或 VBNullString SHORT 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不能验证应用程序传递到动态连接库中的参 数
12、值是否正确,因此VB程序中大量的API调用可能会降低整个应用程序的稳定性,也会增加以 后维护的难度。所以,决定在VB程序中直接调用API函数时要慎重,但适当的使用API调用确实 能够有效地提高VB程序的性能。这之间的平衡需要编程人员根据实际情况来掌握。下面就具体介绍一下在VB中调用API函数时需要做的工作。 要声明一个DLL过程,首先需要在代码窗口的通用部分增加一个Declare语句。如果该过程返回一个值,应将其声明为Function: Declare Function publicname Lib libname Alias alias (ByVal variable As type ,By
13、Val 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如何
14、找到包含过程的.dll文件。 如果引用的过程属于Windows核心库,则可以不包含文件扩展名,如: Declare Function GetTickCount Lib kernel32 Alias GetTickCount As Long 对于其它动态连接库,可以在Lib子句指定文件的路径: Declare Function lzCopy Lib c:windowslzexpand.dll _ (ByVal S As Integer, ByVal D As Integer) As Long 如果未指定libname的路径,Visual Basic将按照下列顺序查找该文件: .exe文件所在的目
15、录 当前目录 Windows系统目录 Windows目录 Path环境变量中的目录 下表中列出了常用的操作系统环境库文件。 动态链接库描述 Advapi32.dll高级API服务,支持大量的API Comdlg32.dll通用对话框API库 Gdi32.dll图形设备接口API库 Kernel32.dllWindows32位核心的API支持 Lz32.dll32位压缩例程 Mpr.dll多接口路由器库 Netapi32.dll32位网络API库 Shell32.dll32位ShellAPI库 User32.dll用户接口例程库 Version.dll版本库 Winmm.dllWindows多媒
16、体库 Winspool.drv后台打印接口,包含后台打印API调用。 对于Windows的系统API函数,可以利用VB提供的工具API Viewer查找某一函数及其相 关数据结构和常数的声明,并复制到自己的程序中。 (二)、使用别名: A.函数名是标准的名称 Declare语句中的Alias子句是一个可选的部分,用户可以通过它所标识的别名对动态 库中的函数进行引用。例如,在下面的语句中,声明 了一个在VB中名为MyFunction的函数,而它在动态库Mydll.dll中最初的名字是MyFunctionX。 Private Declare Function MyFunction Lib Mydl
17、l.dll _ Alias MyFunctionX ( ) As Long 需要注意的是,Alias子句中的函数名是大小写敏感的,也就是说,必须与函数在生成时的声明一致。这是因为32位动态库与16位动态库不同,其中的函数名是区分大小写的。同样道理,如果没有使用Alias子句,那么在Function后的函数名也是区分大小写的。 通常在以下几种情况时需要使用Alias子句: A.处理使用字符串的系统Windows API过程 如果调用的系统Windows API过程要使用字符串,那么声明语句中必须增加一个Alias 子句,以指定正确的字符集。包含字符串的系统Windows API函数实际有两种格式
18、:ANSI和Unicode。因此,在Windows头文件中,每个包含字符串的函数都同时有ANSI版本和Unicode版本。例如,下面是SetWindowText函数 的两种C语言描述。可以看到,第一个描述将函数定义为SetWindowTextA,尾部的A 表明它是一个ANSI函数: WINUSERAPI BOOL WINAPI SetWindowTextA(HWND hWnd, LPCSTR lpString); 第二个描述将它定义为 SetWindowTextW, 尾部的W 表明它是一个 Unicode 函数: WINUSERAPI BOOL WINAPI SetWindowTextW(HW
19、ND hWnd, LPCWSTR lpString); 因为两个函数实际的名称都不是SetWindowText,要引用正确的函数就必 须增加一个Alias子句: Private Declare Function SetWindowText Lib user32 _ Alias SetWindowTextA (ByVal hwnd As Long, ByVal _ lpString As String) As Long 应当注意,对于VB中使用的系统WindowsAPI函数,应该指定函数的ANSI版本,因为只 有WindowsNT才支持Unicode版本,而Windows95不支持这个版本。仅当
20、应用程序只运行 在WindowsNT平台上的时候才可以使用Unicode版本。 B.函数名是不标准的名称 有时,个别的DLL过程的名称不是有效的标识符。例如,它可能包含了非法的字符,或者名称是VB的关键字。在这种情况下,可以使用Alias关键字。例 如,操作环境DLLs中的某些过程名以下划线开始。尽管在VB标识符中允许使用标识符,但是下划线不能作为标识符的第一个字符。为了使用这种过程,必须先声明一个名称合法的过程, 然后用Alias子句引用过程的真实名称: Declare Function lopen Lib kernel32 Alias _lopen _ (ByVal lpPathName
21、As String, ByVal iReadWrite _ As Long) As Long 在上例中,lopen是VB中使用的过程名称。而_lopen则是动态连接库中可以识别的名 称。 C.使用序号标识DLL过程 除了使用名称之外,还可以使用序号来标识DLL过程。某些动态连接库中不包含过程的名称,在声明它们包含的过程时必须使用序号。同使用名称标识的DLL过程相比,如果使用序号,在最终的应用程序中消耗的内存将比较少,而且速度会快些。但是,一个具体的API的序号 在不同的操作系统中可能是不同的。例如GetWindowsDirectory在Win95下的序号为432,而在WindowsNT4.0下
22、为338。总而言之,如果希望应用程序能够在不同的操作系统下运行,那么最好不要使用序号来标识API过程。如果过程不属于API,或者应用程序使用的范围很有 限,那么使用序号还是有好处的。 要使用序号来声明DLL过程,Alias子句中的字符串需要包含过程的序号,并在序号的 前面加一个数字标记字符(#)。例如,Windowskernel中的GetWindowsDirectory函数的序 号为432;可以用下面的语句来声明该DLL过程: Declare Function GetWindowsDirectory Lib kernel32 _ Alias #432 (ByVal lpBuffer As St
23、ring, _ ByVal nSize As Long) As Long 在这里,可以使用任意的合法名称作为过程的名称,VB将用序号在DLL中寻找过程。 为了得到要声明的过程的序号,可以使用Dumpbin.exe等实用工具。利用Dumpbin,可以提取出.dll文件中的各种信息,例如DLL中的函数列表,它们的序号以及与代码有关的其它信息。 (三)、使用值或引用传递 在缺省的情况下,VB以引用方式传递所有参数。这意味着并没有传递实际的参 数值,VB只传递了数据的32位地址。另外有许多DLL过程要求参数以值方式传递。这意味着它们需要实际的数据,而不是数据的内存地址。如果过程需要一个传值参数,而传递
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vb 调用 dll 方法
链接地址:https://www.31ppt.com/p-3379544.html