精华内容
下载资源
问答
  • VB 调用动态链接库

    2015-09-06 11:13:00
    作为一种简单易用的Windows开发环境,Visual Basic... VB中高度的封装和模块化减轻了编程者的负担,同时也使开发人员失去了许多访问低层API函数和直接与Windows交互的机会。因此,相比而言,VB应用程序的执行效率和...

    作为一种简单易用的Windows开发环境,Visual Basic从一推出就受到了广大编程人员的欢迎。它使 程序员不必再直接面对纷繁复杂的Windows消息,而可以将精力主要集中在程序功能的实现上,大大提高了编程效率。但凡事有利必有弊。
    VB中高度的封装和模块化减轻了编程者的负担,同时也使开发人员失去了许多访问低层API函数和直接与Windows交互的机会。因此,相比而言,VB应用程序的执行效率和功能比C/C++或Delphi生成的程序要差。为了解决这个问题,在一个大型的VB开发应用中,直接调用Windows API函数几乎是不可避免的;同时,还有可能需 要程序员自己用C/C++等开发一些动态连接库,用于在VB中调用。本文主要讨论在32位开发环 境Visual Basic 5.0中直接调用Windows 95 API函数或用户生成的32位动态连接库的方法与规则。

      Windows动态连接库是包含数据和函数的模块,可以被其它可执行文件(EXE、DLL、OCX 等)调用。动态连接库包含两种函数:输出(exported)函数和内部(internal)函数。输出函数可以被其它模块调用,而内部函数则只能在动态连接库内部使用。尽管动态连接库也能输出 数据,但实际上它的数据通常是只在内部使用的。使用动态连接库的优点是显而易见的。将应 用程序的一部分功能提取出来做成动态连接库,不但减小了主应用程序的大小,提高了程序 运行效率,还使它更加易于升级。多个应用程序共享一个动态连接库还能有效地节省系统资 源。正因为如此,在Windows系统中,动态连接库得到了大量的使用。
      一般来说,动态连接库都是以DLL为扩展名的文件,如Kernel32.dll、 commdlg.dll等。但也有例外,如16位Windows的核心部件之一GDI.exe其实也是一个动态库。编写动态连接库的工具很多,如 VisualC++、BorlandC++、Delphi等,具体方法可以参见相关文档。下面只以Visual C++5.0为例,介绍一下开发应用于VisualBasic5.0的动态连接库时应注意的问题(本文中所有涉及C/C++语言或编译环境的地方,都以 VC5为例;所有涉及VisualBasic的地方都以VB5 为例)。
      作为一种32位Windows应用程序的开发工具,VB5生成的exe文件自然也都是32 位的,通常情况下也只能调用32位的动态连接库。但是,并不是所有的32位动态库都能被VB生成的exe 文件正确地识别。一般来说,自己编写用于VB应用程序调用的动态连接库时,应注意以下几个方面的问题:
      1、生成动态库时要使用__stdcall调用约定,而不能使用缺省的__cdecl调用约定;__stdcall 约定通常用于32位API函数的调用。
      2、在VC5中的定义文件(.def)中,必须列出输出函数的函数名,以强制VC5系统将输出函数的装饰名(decoratedname)改成普通函数名;所谓装饰名是VC的编译器在编译过程中生成的输出函数名,它包含了用户定义的函数名、函数参数及函数所在的类等多方面的信息。由于在VC5中定义文件不是必需的,因此工程不包含定义文件时VC5就按自己的约定将用户定义的输出函数名修改成装饰名后放到输出函数列表中,这样的输出函数在VB生成的应用程序中是不能正确调用的(除非声明时使用Alias子句)。因此需要增加一个.def文件,其中列出用户需要的函数名,以强制VC5不按装饰名进行输出。
      3、VC5中的编译选项"结构成员对齐方式(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 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不能验证应用程序传递到动态连接库中的参 数值是否正确,因此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:windowslzexpand.dll" _

       (ByVal S As Integer, ByVal D As Integer) As Long
      如果未指定libname的路径,Visual Basic将按照下列顺序查找该文件:

      ①.exe文件所在的目录

      ②当前目录

      ③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多媒体库

      Winspool.drv后台打印接口,包含后台打印API调用。

      对于Windows的系统API函数,可以利用VB提供的工具API Viewer查找某一函数及其相 关数据结构和常数的声明,并复制到自己的程序中。

      (二)、使用别名:

      Declare语句中的Alias子句是一个可选的部分,用户可以通过它所标识的别名对动态 库中的函数进行引用。例如,在下面的语句中,声明了一个在VB中名为MyFunction的函数,而它在动态库Mydll.dll中最初的名字是MyFunctionX。

       Private Declare Function MyFunction Lib "Mydll.dll" _

       Alias "MyFunctionX" ( ) As Long

      需要注意的是,Alias子句中的函数名是大小写敏感的,也就是说,必须与函数在生成时的声明(如在C源文件中的声明)一致。这是因为32位动态库与16位动态库不同,其中的函数名是区分大小写的。同样道理,如果没有使用Alias子句,那么在Function(或Sub)后的函数名也是区分大小写的。

      通常在以下几种情况时需要使用Alias子句:
      A.处理使用字符串的系统Windows API过程

      如果调用的系统Windows API过程要使用字符串,那么声明语句中必须增加一个Alias 子句,以指定正确的字符集。包含字符串的系统Windows API函数实际有两种格式:ANSI和Unicode( 关于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(HWND 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不支持这个版本。仅当应用程序只运行 在WindowsNT平台上的时候才可以使用Unicode版本。

      B.函数名是不标准的名称

      有时,个别的DLL过程的名称不是有效的标识符。例如,它可能包含了非法的字符(如连 字符),或者名称是VB的关键字(如GetObject)。在这种情况下,可以使用Alias关键字。例 如,操作环境DLLs中的某些过程名以下划线开始。尽管在VB标识符中允许使用标识符,但是 下划线不能作为标识符的第一个字符。为了使用这种过程,必须先声明一个名称合法的过程, 然后用Alias子句引用过程的真实名称:

    Declare Function lopen Lib "kernel32" Alias "_lopen" _
    (ByVal lpPathName As String, ByVal iReadWrite _
    As Long) As Long

      在上例中,lopen是VB中使用的过程名称。而_lopen则是动态连接库中可以识别的名 称。

      C.使用序号标识DLL过程

      除了使用名称之外,还可以使用序号来标识DLL过程。某些动态连接库中不包含过程的名称,在声明它们包含的过程时必须使用序号。同使用名称标识的DLL过程相比,如果使用序号,在最终的应用程序中消耗的内存将比较少,而且速度会快些。但是,一个具体的API的序号 在不同的操作系统中可能是不同的。例如GetWindowsDirectory在Win95下的序号为432,而在WindowsNT4.0下为338。总而言之,如果希望应用程序能够在不同的操作系统下运行,那么最好不要使用序号来标识API过程。如果过程不属于API,或者应用程序使用的范围很有 限,那么使用序号还是有好处的。

      要使用序号来声明DLL过程,Alias子句中的字符串需要包含过程的序号,并在序号的 前面加一个数字标记字符(#)。例如,Windowskernel中的GetWindowsDirectory函数的序 号为432;可以用下面的语句来声明该DLL过程:

    Declare Function GetWindowsDirectory Lib "kernel32" _
    Alias "#432" (ByVal lpBuffer As String, _
    ByVal nSize As Long) As Long

      在这里,可以使用任意的合法名称作为过程的名称,VB将用序号在DLL中寻找过程。

      为了得到要声明的过程的序号,可以使用 Dumpbin.exe等实用工具(Dumpbin.exe是Microsoft VisualC++提供的一个实用工具,它的使用说明可以参见VC的文档)。利用Dumpbin,可以提取出.dll文件中的各种信息,例如DLL中的函数列表,它们的序号以及与代码有关的其它信息。

    (三)、使用值或引用传递

      在缺省的情况下,VB以引用方式传递所有参数(ByRef)。这意味着并没有传递实际的参 数值,VB只传递了数据的32位地址。另外有许多DLL过程要求参数以值方式传递(ByVal)。这意味着它们需要实际的数据,而不是数据的内存地址。
    如果过程需要一个传值参数,而传递给它的参数是一个指针,那么由于得到了错误的数据,该过程将不能正确地工作。
      要使参数以使用值方式传递,在Declare语句中需要在参数声明的前面加上ByVal关键字。例如InvertRect过程要求第一个参数用传值方式传递,而第二个用引用方式传递:

    Declare Function InvertRect Lib "user32" Alias _
    "InvertRectA" (ByVal hdc As Long, lpRect As RECT) As Long

      动态连接库的参数传递是一个复杂的问题,也是VB中调用动态连接库时最容易出现错误的地方。参数类型或传递方式的声明错误都可能导致应用程序出现GPF(通用保护错误),甚至使操作系统崩溃,因此我们将在后面专门详细地讨论这个问题。

      (四)、灵活的参数类型

      某些DLL过程的同一个参数能够接受多种数据类型。如果需要传递多种类型的数据,可 以将参数声明为AsAny,从而取消类型限制。例如,下面的声明中的第三个参数(lpptAsAny) 既可以传递一个POINT结构的数组,也可以传递一个RECT结构:

    Declare Function MapWindowPoints Lib "user32" Alias _
    "MapWindowPoints" (ByVal hwndFrom As Long, _
    ByVal hwndTo As Long, lppt As Any, _
    ByVal cPoints As Long) As Long

      AsAny子句提供了一定的灵活性,但是,由于它不进行任何的类型检查,风险也随之增 加。因此在使用AsAny子句时,必须仔细检查所有参数的类型。

      正确的函数声明是在VB中调用动态连接库的前提,但要想在VB中用对、用好动态库中的 函数,仅仅有声明还是远远不够的。前面已经说过,由于VB不能验证应用程序传递到动态连接 库中的参数值是否正确,因此就要求程序员应对参数类型有非常详细的了解,否则很容易引 起应用程序发生通用保护错或导致潜在的Bug,降低软件的可靠性。下面将参数类型分为简单数据类型、字符串、和用户自定义类型三种分别进行讨论。

      (1)、简单数据类型:

      简单数据类型是指Numeric数据类型(包括Integer、Long、Single、Double、Currency类型)、Byte数据类型和Boolean数据类型。它们的共同的特点是结构简单,操作系统在处理时不必进行特殊的转换。

      简单数据类型参数的传递比较简单。我们知道,在VB中传递参数的方式有两种:传值(Byval) 和传址(ByRef),缺省的方式是传址。所谓传值,就是对一个变量的具体值进行传递;而传址则 是传递变量的地址。例如,在VB程序中需要将一个整型变量m=10的值传进动态库,如果用传值 方式,那么传进动态库的值就是10,而在传址方式下,传入的则是变量m的地址,相当于C/C++ 中&m的值。需要注意的是,以传值方式传进动态连接库的变量,其值在动态库中是不能 被改变的;如果需要在动态连接库中修改传入参数的值,则必须使用传址方式。一般来说,在VB 和动态连接库之间传递单个的简单数据类型,只要注意了以上几个方面就可以了。当需要将 一个简单数据类型的整个数组传进动态库时,必须将相应参数声明为传址方式,然后把数组 的第一个元素作为参数传入,这样在动态连接库中就得到了数组的首地址,从而可以对整个 数组进行访问。例如,声明了一个名为ReadArray的DLL过程,要求传入一个整型数组aArray:

    Declare Function ReadArray Lib "mydll.dll" _
    (aArray As Integer) As Integer

    在调用时可以采用如下方式:

    Dim ret,I(5) as Integer
    … …
    ret = ReadArray(I(0)) 注释:

    将整个数组传入动态连接库
      (2)、字符串参数的传递:

      与简单数据类型相比,字符串类型(String、 String*n)的参数传递要复杂得多,这主要是Windows 98 API和VB使用的字符串类型不同的缘故。VB使用被称为BSTR的String数据类型,它是由自动化(以前被称为OLE Automation)定义的数据类型。一个BSTR由头部和字符串组成,头部包含了字符串的长度信息,字符串中可以包含嵌入的null值。大部分的 BSTR是 Unicode的,即每个字符需要两个字节。BSTR通常以两字节的两个null字符结束。下图表示 了一个BSTR类型的字符串。

    Function GetCharByte(ByVal OneChar As Integer, ByVal IsHighByte As Boolean) As Byte 注释: 该函数获得一个字符的高字节或低字节
    If IsHighByte Then
    If OneChar >= 0 Then
    GetCharByte = CByte(OneChar 256)
    注释:右移8位,得到高字节

    Else
    GetCharByte = CByte((OneChar
    And &H7FFF) 256) Or &H80
    End If
    Exit Function
    Else
    GetCharByte = CByte(OneChar And &HFF)
    注释:屏蔽掉高字节,得到低字节
    Exit Function
    End If
    End Function

    Sub StrToByte(StrToChange As String, ByteArray() As Byte)
    注释:该函数将一个字符串转换成字节数组
    Dim LowBound, UpBound As Integer
    Dim i, count, length As Integer
    Dim OneChar As Integer

    count = 0
    length = Len(StrToChange)
    LowBound = LBound(ByteArray)
    UpBound = UBound(ByteArray)

    For i = LowBound To UpBound
    ByteArray(i) = 0 注释:初始化字节数组
    Next

    For i = LowBound To UpBound
    count = count + 1
    If count <= length Then
    OneChar = Asc(Mid(StrToChange, count, 1))

    If (OneChar > 255) Or (OneChar < 0) Then
    注释:该字符是非ASCII字符
    ByteArray(i) = GetCharByte(OneChar, True) 注释:得到高字节
    i = i + 1
    If i <= UpBound Then ByteArray(i)
    = GetCharByte(OneChar, False)
    注释:得到低字节
    Else
    注释:该字符是ASCII字符
    ByteArray(i) = OneChar
    End If
    Else
    Exit For
    End If
    Next
    End Sub

    Sub ChangeStrAryToByte(StrAry()
    As String, ByteAry() As Byte)
    注释:将字符串数组转换成字节数组
    Dim LowBound, UpBound As Integer
    Dim i, count, StartPos, MaxLen As Integer
    Dim TmpByte() As Byte

    LowBound = LBound(StrAry)
    UpBound = UBound(StrAry)
    count = 0
    ReDim ByteAry(0)

    For i = LowBound To UpBound
    MaxLen = LenB(StrAry(i))
    ReDim TmpByte(MaxLen + 1)
    ReDim Preserve ByteAry(count + MaxLen + 1)
    Call StrToByte(StrAry(i), TmpByte) 注释:转换一个字符串
    StartPos = count
    Do
    ByteAry(count) = TmpByte(count - StartPos)
    count = count + 1
    If ByteAry(count - 1) = 0 Then Exit Do
    Loop 注释:将每一个字符串对应
    的字节数组按顺序填入结果数组中
    ReDim Preserve ByteAry(count - 1)
    Next i
    End Sub

      下面看一个转换的例子:

    DimResultAry()asByte
    DimSomeStr(2)asString
    SomeStr(0)="测试1"
    SomeStr(1)="测试222"
    SomeStr(2)="测试33"
    CallChangeStrAryToByte
    (SomeStr,ResultAry)注释:转换字符串数组

      当转换完成以后,查看字节数组ResultAry,其中包含了21个元素,依次是:178,226,202,212,49,0,178,226,202,212,50,50,50,0,178,226,202,212,51,51,0。其中,[178,226]是"测"的字节码,[202,112]是"试"的字节码,49,50,51 分别为字符1、2、3的ASCII码。可见,经过转换后,字符串数组中的各个元素按顺序放在了字节数组中,相互间以终止符0分隔。

      这样,字符串数组就全部转换成了字节数组,然后只要将字节数组的第一个元素以传址的方式传入动态连接库,DLL过程就可以正确地访问数组中的所有字符串了。但是,使用这种方法,当DLL过程处理结束返回VB 时,VB得到的仍然是字节数组。如果需要在VB中再次得到该字节数组表示的字符串,还要把整个字节数组重新以0为分割符分成多个子数组(每个子数组都对应原来字符串数组中的一个元素),然后使用VB函数StrConv将每个子数组转换成字符串(转换时第二个参数选vbUnicode),就可以显示或进行其它操作了。例如,其中一个子数组的名字是SubAry,则函数StrConv(SubAry,vbUnicode)就返回了它所对应的字符串。

      总之,VB应用程序和动态库间字符串参数的传递是一个比较复杂的过程,使用时要非常谨慎。同时应尽可能避免传递字符串数组类型的参数,因为这很容易引起下标越界、堆栈溢出等严重错误。
      (3)、用户自定义类型(User-defined Type)参数的传递

      用户自定义类型在VB中是一种重要的数据类型,它为编程者提供了很大的灵活性,使开发人员可以根据需要构造自己的数据结构。它相当于C/C++中的结构类型(structure)。在VB中,允许程序员以传址的方式将自定义数据类型参数传入动态库,DLL过程也可以将修改后的参数返回VB程序。但是,在VB中仍然不支持以传值的方式传递用户自定义类型参数。

      传递用户自定义类型参数时,必须确保VB中的数据类型的成员与动态库中的结构成员是一一对应的,所占空间也必须严格一致。这里所说的一一对应,不仅是指VB 中的所有结构成员在动态库的结构中都必须有对应的元素,而且它们在数据结构中定义的顺序也必须严格一致,这是VB中使用的"数据结构成员对齐方式"决定的。在VB 中,数据结构使用双字对齐方式(4-byte alignment),因此,在用户自己生成用于VB 调用的动态连接库时,也必须把编译选项"structure member alignment" 设为4字节(如前文所述)。

      所谓结构成员对齐方式是指一个数据结构内部,其成员的排列方式。譬如,在VB中,其对齐方式是4字节,这就好象在一个数据结构内部分成了很多个4字节大小的小单元,如果相邻 两个或多个数据成员的大小可以放在一个单元中,那么就放在一起;否则这些小单元中可能 会出现未用的空字节。我们来看下面一个数据类型:

    Type TestType
    m1 as Integer
    m2 as Byte
    m3 as Long
    End Type

      它的三个成员的大小加起来是2+1+4=7。但是,由于m1和m2的字节总长度是3,小于4,它 们就存放于一个单元中;但该单元剩下的一个字节不足以放下一个Long型的成员m3,于是m3 就被放在下一个单元中,它们之间就有了一个未用的空字节;因此,整个结构所占实际长度是8 字节。同理,如果将m3和m2的位置交换一下,它所占的尺寸就变成了9字节。可见,成员在结构 中的声明顺序也是非常重要的。

      通常,当一个用户自定义类型中不包含字符串时,向动态连接库中传递该类型的参数是没有什么问题的。如果只传递一个自定义类型变量,则既可以传递该变量名,也可以传递该变 量的第一个成员,它们的效果是一样的,都是将该变量的地址传进了动态库;同样,如果要传递一个自定义类型的数组,则既可以传递该数组的第一个元素,也可以传递第一个元素的第一个成员。但是,如果用户自定义类型中包含字符串类型时,又该如何与动态连接库传递参数呢?答案是令人遗憾的:在VB中,你无法将一个包含字符串成员的用户自定义类型变量或数 组安全、正确地传入动态库中。如果你这样做了,即使某次侥幸得到了正确的结果,在其背后也隐藏着许多致命的危险。因此,如果一定要在用户自定义类型中包含字符串变量,并且该类型的变量又要作为参数传入动态库时,你最好修改类型定义,把其中的字符串成员用相应的字节数组类型替换掉(转换方法可参见前文),这样就可以在VB 和动态库间传递这种类型的参数了。

      另外,在VB 中还可以把一个函数的指针传递到动态库中,方法也并不复杂。但笔者强烈建议最好不要这么做,因为这样一来VB 应用程序就几乎完全丧失了它所应有的安全性。如果 确实需要传递函数指针的话,那么还是编一个C/C++ 的程序来完成这项工作吧。

      总之,在VB中调用DLL过程是一个比较复杂的问题,编程人员必须很好地把握,才能达到既提高了程序效率,开拓了程序功能,又不降低程序安全性的目的。另外需要特别指出的一点是,在本文中提到的所有动态连接库,都是指没有使用自动化(OLE Automation)技术的动态库,Windows API和大多数用户自编的动态连接库都是这种类型的。对于使用了OLE Automation技术的动态连接库,其参数传递的方式有所不同,读者可以参阅有关OLE 技术的书籍,在此不再涉及。

    Function GetCharByte(ByVal OneChar As Integer, ByVal IsHighByte As Boolean) As Byte 注释: 该函数获得一个字符的高字节或低字节
    If IsHighByte Then
    If OneChar >= 0 Then
    GetCharByte = CByte(OneChar 256)
    注释:右移8位,得到高字节

    Else
    GetCharByte = CByte((OneChar
    And &H7FFF) 256) Or &H80
    End If
    Exit Function
    Else
    GetCharByte = CByte(OneChar And &HFF)
    注释:屏蔽掉高字节,得到低字节
    Exit Function
    End If
    End Function

    Sub StrToByte(StrToChange As String, ByteArray() As Byte)
    注释:该函数将一个字符串转换成字节数组
    Dim LowBound, UpBound As Integer
    Dim i, count, length As Integer
    Dim OneChar As Integer

    count = 0
    length = Len(StrToChange)
    LowBound = LBound(ByteArray)
    UpBound = UBound(ByteArray)

    For i = LowBound To UpBound
    ByteArray(i) = 0 注释:初始化字节数组
    Next

    For i = LowBound To UpBound
    count = count + 1
    If count <= length Then
    OneChar = Asc(Mid(StrToChange, count, 1))

    If (OneChar > 255) Or (OneChar < 0) Then
    注释:该字符是非ASCII字符
    ByteArray(i) = GetCharByte(OneChar, True) 注释:得到高字节
    i = i + 1
    If i <= UpBound Then ByteArray(i)
    = GetCharByte(OneChar, False)
    注释:得到低字节
    Else
    注释:该字符是ASCII字符
    ByteArray(i) = OneChar
    End If
    Else
    Exit For
    End If
    Next
    End Sub

    Sub ChangeStrAryToByte(StrAry()
    As String, ByteAry() As Byte)
    注释:将字符串数组转换成字节数组
    Dim LowBound, UpBound As Integer
    Dim i, count, StartPos, MaxLen As Integer
    Dim TmpByte() As Byte

    LowBound = LBound(StrAry)
    UpBound = UBound(StrAry)
    count = 0
    ReDim ByteAry(0)

    For i = LowBound To UpBound
    MaxLen = LenB(StrAry(i))
    ReDim TmpByte(MaxLen + 1)
    ReDim Preserve ByteAry(count + MaxLen + 1)
    Call StrToByte(StrAry(i), TmpByte) 注释:转换一个字符串
    StartPos = count
    Do
    ByteAry(count) = TmpByte(count - StartPos)
    count = count + 1
    If ByteAry(count - 1) = 0 Then Exit Do
    Loop 注释:将每一个字符串对应
    的字节数组按顺序填入结果数组中
    ReDim Preserve ByteAry(count - 1)
    Next i
    End Sub

      下面看一个转换的例子:

    DimResultAry()asByte
    DimSomeStr(2)asString
    SomeStr(0)="测试1"
    SomeStr(1)="测试222"
    SomeStr(2)="测试33"
    CallChangeStrAryToByte
    (SomeStr,ResultAry)注释:转换字符串数组

      当转换完成以后,查看字节数组ResultAry,其中包含了21个元素,依次是:178,226,202,212,49,0,178,226,202,212,50,50,50,0,178,226,202,212,51,51,0。其中,[178,226]是"测"的字节码,[202,112]是"试"的字节码,49,50,51 分别为字符1、2、3的ASCII码。可见,经过转换后,字符串数组中的各个元素按顺序放在了字节数组中,相互间以终止符0分隔。

      这样,字符串数组就全部转换成了字节数组,然后只要将字节数组的第一个元素以传址的方式传入动态连接库,DLL过程就可以正确地访问数组中的所有字符串了。但是,使用这种方法,当DLL过程处理结束返回VB 时,VB得到的仍然是字节数组。如果需要在VB中再次得到该字节数组表示的字符串,还要把整个字节数组重新以0为分割符分成多个子数组(每个子数组都对应原来字符串数组中的一个元素),然后使用VB函数StrConv将每个子数组转换成字符串(转换时第二个参数选vbUnicode),就可以显示或进行其它操作了。例如,其中一个子数组的名字是SubAry,则函数StrConv(SubAry,vbUnicode)就返回了它所对应的字符串。

      总之,VB应用程序和动态库间字符串参数的传递是一个比较复杂的过程,使用时要非常谨慎。同时应尽可能避免传递字符串数组类型的参数,因为这很容易引起下标越界、堆栈溢出等严重错误。
      (3)、用户自定义类型(User-defined Type)参数的传递

      用户自定义类型在VB中是一种重要的数据类型,它为编程者提供了很大的灵活性,使开发人员可以根据需要构造自己的数据结构。它相当于C/C++中的结构类型(structure)。在VB中,允许程序员以传址的方式将自定义数据类型参数传入动态库,DLL过程也可以将修改后的参数返回VB程序。但是,在VB中仍然不支持以传值的方式传递用户自定义类型参数。

      传递用户自定义类型参数时,必须确保VB中的数据类型的成员与动态库中的结构成员是一一对应的,所占空间也必须严格一致。这里所说的一一对应,不仅是指VB 中的所有结构成员在动态库的结构中都必须有对应的元素,而且它们在数据结构中定义的顺序也必须严格一致,这是VB中使用的"数据结构成员对齐方式"决定的。在VB 中,数据结构使用双字对齐方式(4-byte alignment),因此,在用户自己生成用于VB 调用的动态连接库时,也必须把编译选项"structure member alignment" 设为4字节(如前文所述)。

      所谓结构成员对齐方式是指一个数据结构内部,其成员的排列方式。譬如,在VB中,其对齐方式是4字节,这就好象在一个数据结构内部分成了很多个4字节大小的小单元,如果相邻 两个或多个数据成员的大小可以放在一个单元中,那么就放在一起;否则这些小单元中可能 会出现未用的空字节。我们来看下面一个数据类型:

    Type TestType
    m1 as Integer
    m2 as Byte
    m3 as Long
    End Type

      它的三个成员的大小加起来是2+1+4=7。但是,由于m1和m2的字节总长度是3,小于4,它 们就存放于一个单元中;但该单元剩下的一个字节不足以放下一个Long型的成员m3,于是m3 就被放在下一个单元中,它们之间就有了一个未用的空字节;因此,整个结构所占实际长度是8 字节。同理,如果将m3和m2的位置交换一下,它所占的尺寸就变成了9字节。可见,成员在结构 中的声明顺序也是非常重要的。

      通常,当一个用户自定义类型中不包含字符串时,向动态连接库中传递该类型的参数是没有什么问题的。如果只传递一个自定义类型变量,则既可以传递该变量名,也可以传递该变 量的第一个成员,它们的效果是一样的,都是将该变量的地址传进了动态库;同样,如果要传递一个自定义类型的数组,则既可以传递该数组的第一个元素,也可以传递第一个元素的第一个成员。但是,如果用户自定义类型中包含字符串类型时,又该如何与动态连接库传递参数呢?答案是令人遗憾的:在VB中,你无法将一个包含字符串成员的用户自定义类型变量或数 组安全、正确地传入动态库中。如果你这样做了,即使某次侥幸得到了正确的结果,在其背后也隐藏着许多致命的危险。因此,如果一定要在用户自定义类型中包含字符串变量,并且该类型的变量又要作为参数传入动态库时,你最好修改类型定义,把其中的字符串成员用相应的字节数组类型替换掉(转换方法可参见前文),这样就可以在VB 和动态库间传递这种类型的参数了。

      另外,在VB 中还可以把一个函数的指针传递到动态库中,方法也并不复杂。但笔者强烈建议最好不要这么做,因为这样一来VB 应用程序就几乎完全丧失了它所应有的安全性。如果 确实需要传递函数指针的话,那么还是编一个C/C++ 的程序来完成这项工作吧。

      总之,在VB中调用DLL过程是一个比较复杂的问题,编程人员必须很好地把握,才能达到既提高了程序效率,开拓了程序功能,又不降低程序安全性的目的。另外需要特别指出的一点是,在本文中提到的所有动态连接库,都是指没有使用自动化(OLE Automation)技术的动态库,Windows API和大多数用户自编的动态连接库都是这种类型的。对于使用了OLE Automation技术的动态连接库,其参数传递的方式有所不同,读者可以参阅有关OLE 技术的书籍,在此不再涉及。



    转载于:https://www.cnblogs.com/lbnnbs/p/4784943.html

    展开全文
  • 用C语言在Visual C++ 6.0中创建动态链接库,封装串口通信API函数在动态库中,在VB程序中调用动态链接库中的函数完整的实现串口通信软件功能。
  • asp,vb 调用vb动态链接库

     一、新建vb动态链接库(dll)

    打开vb6.0 弹出窗口,选择ActiveX dll ,将工程重命名为:Project, 类模板重命名为:Test

     

       添加引用:Microsoft Active Server Pages Object Library

     

       向Test中创建函数:

     

     

      

     

     保存,编译,生成Test.dll

     

     

    二、asp页面调用 Test.dll显示 "Hello word!"

     

     

     

       

     

     

    三、vb引用自身dll

        

     

     

     

     

     

    展开全文
  • VB调用C++动态链接库

    2015-06-14 11:45:19
    现在有个C++动态链接库,有头文件,但是我想在VB里面调用。怎么在VB里面调用啊、麻烦帮忙把下面的3个函数转成能在VB里面用的语句。 之前没接触过VB,现在因为时间紧,需要临时突击下。麻烦帮忙解答下啊。 #ifndef ...
  • VB调用VC生成的动态链接库,附有源代码
  • VB调用C程序动态链接库的方法 VB技术很实用的源码本人精心收集的VB源码,绝对实用,有问题联系QQ:353502250
  • 小插曲,第一次用VB的可以看看下面链接和C差不多。迫于工程需要,我也是第一次用。 主要用法。 定义变量 Dim a as String // 定义一个名为 a 的 String 变量。 与java语言中String a ; 意思一样 定义函数 function...

    1.环境

    VS2010
    win7 sp1 x64

    小插曲,第一次用VB的可以看看下面链接和C差不多。迫于工程需要,我也是第一次用。
    主要用法。

    • 定义变量 Dim a as String // 定义一个名为 a 的 String 变量。 与java语言中String a ; 意思一样
    • 定义函数 function(有返回值) Sub(无返回值)
    • Sub 过程
      Sub 过程是包含在 Sub 语句和 End Sub 语句中的一系列 Visual Basic 语句。每次调用过程时都执行过程中的语句,从 Sub 语句后的第一个可执行语句开始,到遇到的第一个 End Sub、Exit Sub 或 Return 语句结束。
    Private function funname(ByVal strTemp asstring,  )asinteger`
    	dim tStr asstring  
    	tStr=UCase(strTemp)  
    	funname=tStr  'return value
    End function
    
    
    '一个示例程序
    Module Module1
    
        Sub Main()
            Dim d As Integer
            d = test(99, 2)
            MsgBox("a+b =: " & Str(d), 0, "Script Message Box")
        End Sub
    
        Public Function test(ByVal a As Integer, ByVal b As Integer) 'diy
            Dim c As Integer
            c = a + b
            test = c
        End Function
    
    
    
    End Module
    
    Private Sub funname()
    
    End Sub
    

    VB基础教程

    2.dll编译

    1. VS2010 新建工程 test -其他语言-VB-类库

    在这里插入图片描述
    需要注意的就是类名和函数名,随便写个函数如下图所示。
    工程名为 test
    类名为Class1 函数名为 dlltestmsg (String)

    后面用的到。
    直接编译生成得到dll文件

    Public Class Class1
        Public Function dlltestmsg() As String
            dlltestmsg = "HELLO WORLD, ——公众号: 一匹大懒虫"
        End Function
    End Class
    

    3.dll调用

    我只Console实现的,窗口程序一样。

    3.1. 首先新建工程 usetestdll

    双击 My Project – 点击引用 — 添加 ----找到编译生成的dll(test.dll)–确定。
    在这里插入图片描述

    3.2. 对象浏览器

    各个教程可能会提到这个对象浏览器。VS2010也有这样的功能
    点击 视图----对象浏览器 就可以了调出来
    默认快捷键是 Ctrl+Alt+J
    可以翻看下 引用的 test.dll
    在这里插入图片描述

    3.3. 调用

    代码为

    Module Module1
    
        Sub Main()
            '声明DLL
            Dim mytest As test.Class1
    
            mytest = New test.Class1
    
            Dim a As String
            a = mytest.dlltestmsg
            MsgBox(a, 0, "Script Message Box")
        End Sub
    
    End Module
    

    解释:

    1. 声明dll时,mytest可以为任意字符。
      格式为 Dim [名] As [命名空间].[类名]
      跟对象浏览器中的结构一样
    2. 然后新建实例 new test.Class1
    3. 然后可以进行调用function了

    命名空间一般情况下和dll的名称是一样的,但是也不完全正确,总而言之,命名空间可以用对象浏览器查看,点开第二级,对应NameSpace
    运行结果如下图所示

    在这里插入图片描述

    成功!

    展开全文
  • 一.dll内容1.dll中的函数声明extern "C" _declspec(dllexport) bool MakeMD5File(char *file,char *key);extern "C" _declspec(dllexport) int ValidateMD5File(char *file,char *key,char *object);...

    一.dll内容
    1.dll中的函数声明
    extern "C" _declspec(dllexport) bool MakeMD5File(char *file,char *key);
    extern "C" _declspec(dllexport) int ValidateMD5File(char *file,char *key,char *object);
    extern "C" _declspec(dllexport) void EncryptString128(char *string,char *result);
    extern "C" _declspec(dllexport) bool DecryptString128(char *source,char *object);
    extern "C" _declspec(dllexport) int DecryptFile160(char *file,char *key,char *result);
    extern "C" _declspec(dllexport) bool EncryptFile160(char *file,char *key,char *result);
    extern "C" _declspec(dllexport) void Transfer40To20(char *str40, char *str20);
    extern "C" _declspec(dllexport) void Transfer20To40(char *str20, char *str40);
    extern "C" _declspec(dllexport) bool MakeMD5FileFrom40(char *str40, char *file);
    extern "C" _declspec(dllexport) void EncryptString160(char *string,char *key,char *result);
    extern "C" _declspec(dllexport) bool DecryptString160(char *source,char *key,char *object);
    2.dll的接口说明
    void EncryptString128(char *string,char *result)
    string:要被计算的串的指针,任意长度,以'\0'结束
    result:保存结果的缓冲区指针,>=33字节,结果保存在该缓冲区的前32个字节里
    功能:计算出由string指向的任意长度的串的128位MD5摘要串,摘要串为这128位的16进制形式,128共16字节,每字节表示为2位16进制数,故保存结果的串指针result指向的缓冲区必 大于或等于 (128/8)*2+1=33字节

    bool DecryptString128(char *source,char *object)
    source:要验证的串的指针,以'\0'结束
    object:16进制形式摘要串的指针,前32个字节为摘要串,长度必须>=33,object[32]='\0'
    功能:验证指针source指向的串的128位摘要串是否为object指向串的前32个字节
    是:返回true,否:返回false

    //将string串的160位(40字节)摘要串计算出来保存在result中,key为4个字节的密码
    extern "C" _declspec(dllexport) void EncryptString160(char *string,char *key,char *result)
    注:输入参数result长度为>=41字节,16进制形式的摘要串保存在其前40个字节中,41字节为'\0'

    bool EncryptFile160(char *file,char *key,char *result)
    file:要计算摘要串的文件的路径名
    key:32位扰码,为前4个字节,>=5个字节,key[4]='\0'
    result:保存结果的缓冲区指针,>=41字节,结果保存在该缓冲区的前40个字节里,41字节为'\0'
    功能:计算出由file指向的文件的160位(128位+32位扰码)MD5摘要串,摘要串为这160位的16进制形式,128共20字节,每字节表示为2位16进制数,故保存结果的串指针result指向的缓冲区必 大于或等于 (160/8)*2+1=41字节
    计算成功返回true,出错返回false

    int DecryptFile160(char *file,char *key,char *result)
    file:要验证摘要串的文件的路径名
    key:32位扰码,为前4个字节,>=4个字节
    result:摘要串指针,>=41字节,前40个字节为摘要串,41字节为'\0'
    功能:验证file指向的文件与扰码key计算得到的摘要串是否为result指向的串的前40个字节
    验证成功返回1,不成功返回-1,出错返回0

    bool MakeMD5File(char *file,char *key)
    file:输入要计算摘要文件的文件的路径名,输出时变为对应的MD5文件名
    key:32位扰码,为前4个字节,>=4个字节
    功能:用扰码key和文件file计算得到160位(40字节)摘要串,并将其扩展成512字节且保存在同一目录下,文件名相同
    扩展名为".MD5"
    成功返回true,出错返回false

    int ValidateMD5File(char *file,char *key,char *object)
    file:要验证的文件
    key:32位扰码,为前4个字节,>=4个字节
    object:已存在的512字节摘要文件
    功能:验证由file指向的文件和key指向的扰码生成的512字节摘要文件是否与object指向的摘要文件一致
    一致:返回1,不一致:返回-1,出错返回0

    /将40字节的16进制形式摘要串转换为原来的形式:160位20字节
    extern "C" _declspec(dllexport) void Transfer40To20(char *str40, char *str20)
    str40[40]='\0',str20长度为21

    /将160位20字节形式转换为40字节的16进制形式摘要串
    extern "C" _declspec(dllexport) void Transfer20To40(char *str20, char *str40)
    str20[20]='\0',str40长度为41

    //从40字节的摘要串str40创建512字节的MD5文件,file为MD5 文件的路径
    extern "C" _declspec(dllexport) bool MakeMD5FileFrom40(char *str40, char *file)
    str40[40]='\0',前40字节为摘要串的16进制形式

    二.如何使用该dll:使用DllImport
    这里只举ValidateMD5File、Transfer40To20、Transfer20To40、EncryptString160四个例子,其它的接口类似:
    1.声明
    先导入:

    Imports System.Runtime.InteropServices

    再声明:

    <DllImport("MD5_ENCODE.dll", CharSet:=CharSet.Ansi, CallingConvention:=CallingConvention.Cdecl)> Public Shared Function ValidateMD5File(ByVal src As String, ByVal key As String, ByVal result As String) As Integer

    End Function


    <DllImport("MD5_ENCODE.dll", CharSet:=CharSet.Ansi, CallingConvention:=CallingConvention.Cdecl)> Public Shared Sub EncryptString160(ByVal src As String, ByVal key As String, ByRef result As Byte)

    End Sub


    <DllImport("MD5_ENCODE.dll", CharSet:=CharSet.Ansi, CallingConvention:=CallingConvention.Cdecl)> Public Shared Sub Transfer40To20(ByVal src As Byte(), ByRef result As Byte)

    End Sub


    <DllImport("MD5_ENCODE.dll", CharSet:=CharSet.Ansi, CallingConvention:=CallingConvention.Cdecl)> Public Shared Sub Transfer20To40(ByVal src As Byte(), ByRef result As Byte)

    End Sub

    2.接口使用例子
    为测试ValidateMD5File函数,先在程序目录下放入文件a.txt及其MD5文件a.MD5,测试代码为:
      ' 测试ValidateMD5File
        Dim src As String = "a.txt"
        Dim key As String = "1234"
        Dim res As String = "a.MD5"


        Dim r As Integer = 3
        r = ValidateMD5File(src, key, res)
        Me.Label1.Text = "测试ValidateMD5File(""a.txt"",""1234"",""a.MD5""): " _
    + r.ToString
        测试得返回值r为1,改变一下a.txt内容,则返回-1过头来,测试成功


      为测试Transfer40To20、Transfer20To40、EncryptString160,加入测试代码:
      ' 测试EncryptString128
        Dim code(41) As Byte
        EncryptString160(src, key, code(0))
        Dim t(41) As Char
        Dim i As Integer

        For i = 0 To 40
            t(i) = ChrW(code(i))
        Next
        Me.Label2.Text = "测试EncryptString160: " + t

        '测试Transfer40To20和Transfer20To40
        '从40字节形式转为20字节形式

        Dim s20(21) As Byte
        Transfer40To20(code, s20(0))

        '从40字节形式转为20字节形式
        Dim s40(41) As Byte
        Transfer20To40(s20, s40(0))
        Dim c40(41) As Char
        For i = 0 To 40
            c40(i) = ChrW(s40(i))
        Next

        Me.Label3.Text = "从40字节形式转为20字节形式,然后再转回40字节的结果:" _
        + Chr(10) + Chr(13) + c40

        测试成功。

    转载于:https://www.cnblogs.com/cjx_xmu/archive/2005/05/30/165138.html

    展开全文
  • 2005vs版的MFC中动态库的创建,调用.和vb动态库调用.
  • 精彩编程与编程技巧-VB调用C程序动态链接库的方法 ...
  • 需要台达PLC与PC通信,下载了modbus的动态链接库,总是调用不成功,然后自己用VB编了一个简单的求最大值的动态链接库,用VB调可以成功,用VC总报错,求各位大神帮忙解答。报错如下:、 ![图片说明]...
  • 要用vb做sdk的视频二次开发,只有动态链接库和头文件,我总是声明不对,不知道问题出在哪,求大神解释 这是我的声明Public Declare Function COM_AVD_DEV_Init Lib "F:\软件\Win32SDK(0312)\RayNetSdk.dll" Alias ...
  • ![图片说明](https://img-ask.csdn.net/upload/201507/14/1436856235_796498.jpg) 求大神解救!我要用jna调用visual basic 封装的dll ;但是我要调用的方法在dll 的对象的对象属性的方法!S0S!
  • VB源码及成品
  • VB调用C程序的方法—动态链接库法 (转)[@more@]摘 要 文中介绍了一种实现VB调用C语言程序的方法-动态连接库法,给出了动态链接库制作的一般框架,通过实例描述了动态连接库的实现及其制做方法、编程步骤,这种方法...
  • VB和C_builder中动态链接库的相互调用 VB和C_builder中动态链接库的相互调用
  • 1、通过Visual Studio2012创建VB.Net项目 2、在当前项目下添加.vb文件,如 SCL_API.vb 3、拷贝dll文件并修改Compile属性 将MiniLED.dll和MiniUtil.dll拷贝到当前项目的bin文件夹下,或bin/Debug下,具体位置...
  • DELPHI: function LaunchOnline(Pclks:array of POnlineClock;PRqtCallBalck:TRequestCallBack):Boolean;stdcall;external 'TradeOnline.dll';---------------------------------- 'TClockInfo 是结构体 ...
  • 文章介绍了 一种用Matcom将Matlab函数转换为VB中可用的动态链接库的方法,操作简单易行。 <br />关键词  MatcomMatlab函数 VB 动态链接库 <br />0 引 言 Matlab是MathWorks公司开发的...
  • VB调用代码,自己写的,有很多问题 Private Type TAG_INFO tagMac As String tagCoordinate As String End Type Private Type RSSI_INFO nRSSI As Integer strCoordinate As String End Type Private...
  • VB调用C程序的方法—动态链接库

    千次阅读 2001-04-09 18:51:00
    摘 要 文中介绍了一种实现VB调用C语言程序的方法-动态连接库法,给出了动态链接库制作的一般框架,通过实例描述了动态连接库的实现及其制做方法、编程步骤,这种方法具有普遍的意义。关键词 VB 动态连接库DLL C程序 ...
  • 开发需求:需要java调用vb生成的dll动态链接库 开发环境:win10 64位、jdk1.8 64位、springboot、以及dll文件 开发步骤:  1)装载dll文件 有两种方式System.load();和System.loadLibrary(); load需要全路径...
  • make 和 MixText函数都是MakeDM.dll中的写好的函数,我只是想把此程序生成一个动态的借口。但是生成之后接口好像没有用。不知道是为什么,请各位大神来看看。还有,调用MakeDM.dll文件时,这里的MakeDM.dll是否应该...

空空如也

空空如也

1 2 3 4 5 ... 16
收藏数 311
精华内容 124
关键字:

vb调用动态链接库