API函数 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师，好

我需要连接高频的读卡器，按照厂方给的VB的demo，将VB里的全局函数全部拷贝到foxtable里，但是设置波特率函数老是不过，请教！

VB环境的全局函数代码：

Public Type TagIds

TagType As Byte

AntNum As Byte

Ids(11) As Byte

End Type

Public Declare Function CommOpen Lib "UHFApiV10.dll" (ByRef hCom As Long, ByVal com_port As String) As Integer

Public Declare Function CommClose Lib "UHFApiV10.dll" (ByVal hCom As Long) As Integer

Public Declare Function SetBaudRate Lib "UHFApiV10.dll" (ByVal hCom As Long, ByVal BaudRate As Integer, ByVal NetAddr As Byte) As Integer

Public Declare Function ResetReader Lib "UHFApiV10.dll" (ByVal hCom As Long, ByVal NetAddr As Byte) As Integer

Public Declare Function GetFirmwareVersion Lib "UHFApiV10.dll" (ByVal hCom As Long, ByRef major As Byte, ByRef minor As Byte, ByVal NetAddr As Byte) As Integer

Public Declare Function ClearIDBuffer Lib "UHFApiV10.dll" (ByVal hCom As Long, ByVal iAddr As Byte) As Integer

' ISO18000-6B Tag Functions

Public Declare Function IsoMultiTagIdentify Lib "UHFApiV10.dll" (ByVal hCom As Long, ByRef Count As Long, ByRef Value As TagIds, ByVal NetAddr As Byte) As Integer

Public Declare Function IsoMultiTagRead Lib "UHFApiV10.dll" (ByVal hCom As Long, ByVal iAddr As Long, ByRef Count As Long, ByRef Value As TagIds, ByVal NetAddr As Byte) As Integer

Public Declare Function IsoWriteTag Lib "UHFApiV10.dll" (ByVal hCom As Long, ByVal iAddr As Byte, ByVal Value As Byte, ByVal NetAddr As Byte) As Integer

Public Declare Function IsoReadWithID Lib "UHFApiV10.dll" (ByVal hCom As Long, ByRef TagID As Long, ByVal iAddr As Long, ByRef AntNum As Long, ByRef Value As Long, ByVal NetAddr As Byte) As Integer

Public Declare Function IsoWriteWithID Lib "UHFApiV10.dll" (ByVal hCom As Long, ByRef TagID As Long, ByVal iAddr As Long, ByVal Value As Byte, ByVal NetAddr As Byte) As Integer

Public Declare Function IsoLockTag Lib "UHFApiV10.dll" (ByVal hCom As Long, ByVal iAddr As Byte, ByVal NetAddr As Byte) As Integer

Public Declare Function IsoQueryLock Lib "UHFApiV10.dll" (ByVal hCom As Long, ByVal iAddr As Byte, ByRef status As Byte, ByVal NetAddr As Byte) As Integer

Public Declare Function IsoBlockWrite Lib "UHFApiV10.dll" (ByVal hCom As Long, ByVal iAddr As Byte, ByVal Length As Byte, ByRef Value As Long, ByVal NetAddr As Byte) As Integer

Public Declare Function IsoSigleTagRead Lib "UHFApiV10.dll" (ByVal hCom As Long, ByVal iAddr As Long, ByRef Value As Byte, ByVal NetAddr As Byte) As Integer

'EPC Class1 Gen2 Function

Public Declare Function Gen2MultiTagIdentify Lib "UHFApiV10.dll" (ByVal hCom As Long, ByRef Count As Long, ByRef Value As TagIds, ByVal NetAddr As Byte) As Integer

Public Declare Function Gen2WriteEPC Lib "UHFApiV10.dll" (ByVal hCom As Long, ByVal WordPtr As Byte, ByRef Value As Byte, ByVal NetAddr As Byte) As Integer

Public Declare Function Gen2LockTag Lib "UHFApiV10.dll" (ByVal hCom As Long, ByVal MemBank As Byte, ByVal NetAddr As Byte) As Integer

Public Declare Function Gen2KillTag Lib "UHFApiV10.dll" (ByVal hCom As Long, ByVal PassWord As Long, ByVal NetAddr As Byte) As Integer

Public Declare Function Gen2InitEPC Lib "UHFApiV10.dll" (ByVal hCom As Long, ByVal WordCount As Byte, ByVal NetAddr As Byte) As Integer

Public Declare Function Gen2Read Lib "UHFApiV10.dll" (ByVal hCom As Long, ByVal MemBank As Byte, ByVal WordPtr As Byte, ByVal wordcnt As Byte, ByRef Value As Byte, ByVal NetAddr As Byte) As Integer

Public Declare Function Gen2Write Lib "UHFApiV10.dll" (ByVal hCom As Long, ByVal MemBank As Byte, ByVal WordPtr As Byte, ByVal Value As Long, ByVal NetAddr As Byte) As Integer

Public flagTag As Long

Public bButton2 As Boolean

Public hCom As Long

Public Timeflag As Long

Public TimeCount As Integer

此主题相关图片如下：qq截图20180906094548.jpg

打开串口成功

Dim result As Integer = CommOpen(hCom, "com4")

MessageBox.Show(hcom)

If hcom > 0 Then

e.Form.Controls("Label1").text = "打开串口成功"

Else

e.Form.Controls("Label1").text = "打开串口不成功"

End If

关闭串口也是成功的

Dim result As Integer = CommClose(hCom)

MessageBox.Show(hcom)

If result = 0 Then

e.Form.Controls("Label1").text = "关闭串口成功"

Else

e.Form.Controls("Label1").text = "关闭串口不成功"

End If

设置波特率就是不过

Dim temp1 As Integer = SetBaudRate(hCom, 0, 255)

MessageBox.Show(hcom)

MessageBox.Show(temp1)

If temp1 = 0 Then

e.Form.Controls("Label1").text = "设置波特率口成功"

Else

e.Form.Controls("Label1").text = "设置波特率口不成功"

End If

请问哪里出问题了？

主题：API函数