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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] 读卡器调用

共有4805人关注过本帖树形打印复制链接主题：[求助] 读卡器调用

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/4/21 11:51:00 [显示全部帖子]

试试这样去定义，看行不行

<DllImport("eLabel.DLL")> Public Function GetMOCardSn(ByVal sn As StringBuilder, ByVal err As StringBuilder) As Integer
End Function

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/4/21 14:42:00 [显示全部帖子]

以下是引用zhangyan123_123在2014-4-21 12:28:00的发言：

刚测试了,报同样错误

感觉不应该错才对。你再改改，应该是可以的。

<DllImport("eLabel.DLL")> Public Function GetMOCardSn(ByRef sn As StringBuilder, ByRef err As StringBuilder) As Integer
End Function

调用

Dim sn As new Stringbuilder
Dim err As new Stringbuilder
Dim c As Integer = GetMOCardSn(sn , err)
msgbox(c & " " & sn)

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/4/21 16:13:00 [显示全部帖子]

以下是引用zhangyan123_123在2014-4-21 16:02:00的发言：

你那有读卡器吗?不行我发给你们eLabel.dll,你们测试一下,eLabel.dll默认端口是com1,我已在系统配置,把端口

改为com1

没有读卡器，远程帮你看一下，应该是挺简单的问题

QQ 2450314695

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/4/21 18:03:00 [显示全部帖子]

远程看了一下，是这个问题

<DllImport("eLabel.DLL")> Public Function GetMOCardSn(ByVal sn As StringBuilder, ByVal err As StringBuilder) As Integer
End Function

调用

Dim s As New StringBuilder

Dim err As New StringBuilder

主题：[求助] 读卡器调用