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
调用方式与上面一致,此操作可以返回正常编码