.net调用DLL

dll调用方式

一、COM引用

二、API声明

Imports System.Runtime.InteropServices
Public Declare Auto Function XinaoVersion Lib "xinao.dll" Alias "XinaoVersion" (ByVal ucVersion As StringBuilder) As Int16

调用

   Try
            Dim ucVersion As New StringBuilder(1024)

 

            Dim temp2 As String
            temp2 = x.XinaoVersion(ucVersion)

            If temp2 = 0 Then

                TextBox1.Text = ucVersion.ToString

             Else
                TextBox1.Text = "未获取成功"
            End If
            MsgBox(temp2)
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try

1、StringBuilder接收返回参数

2、此操作可能会返回乱码，需再对编码转换

（Dll项目用的是 unicode编译的，而调用Dll的项目用的“多字节”编译，所以出现乱码）

三、DllImport

    <DllImport("xinao.dll", EntryPoint:="XinaoVersion", CharSet:=CharSet.Ansi)> _
    Public Shared Function XinaoVersion(ByVal ucVersion As StringBuilder) As Int16
    End Function

调用方式与上面一致，此操作可以返回正常编码