1

现在，我对这个类以及如何安装 COMRD800.dll 驱动程序（使用命令提示符：regsvr32）有了一些了解。

我使用 Visual Studio 2010 作为我的文本编辑器，使用 VB.NET 作为我的编程语言。

但是我在这里，另一个问题又在追我。我不知道我的错在哪里。

首先，我想解释一下，当使用这个 RF ID 时，在从 RF ID 标签写入和读取十六进制密钥之前，需要调用一些函数。这是我在写作或阅读之前必须使用的功能。

dc_init(100,115200) 'to open the port, this should be initialized first
dc_beep(icdev,10) 'just to make the device beeping
dc_load_key_hex(icdev,0,0,"ffffffffffff") 'initializing the device key
dc_request(icdev,0,tagtype) 'to get the Card Tag Type
dc_anticoll(icdev,0,snr) 'to get the card's serial number
dc_select(icdev,snr,sizeA) 'to get the size of the card's memory to pc (it always "8")
dc_authentication(icdev,0,0) 'to pass the authentication
dc_write_hex(icdev,1,TestStr) 'writing to the RF ID tag with string TestStr
dc_read_hex(icdev,1,TestStr2) 'Nah, here is where the error occured.

TestStr2 是一个引用变量，换句话说，十六进制的值将存储在那里。（我应该打印 TestStr2 以从 RF ID 标签中获取十六进制值）

当函数返回“0”时，表示“正确”或工作。但是当函数返回 <> 0 时，它意味着“出了点问题”。

到目前为止，它们都返回“0”。（存在错误的 dc_read_hex 除外）。

解释：这些函数来自驱动程序（dcrf32.dll 文件）。要在我的项目中使用它们，我必须在我的 VB.NET 模块文件中声明它们。（在我的项目中是“KoneksiRFID.vb”文件）。

到目前为止，我对这些功能没有任何问题，但是当我进入“阅读”部分（dc_read_hex 函数）时出现错误。它说“FatalExecutionEngineError”。

图片

如您所见，当我读取该值时出现了问题。如果您想参与我的问题并找到解决问题的方法，这是我的项目。感谢之前，感谢谁试图解决这个问题。我非常欣赏它。

我的整个项目（包括其驱动程序和 RFID 手册 .pdf）

哦还有一件事，您必须将“驱动程序（dcrf32.dll、dcrf32.lib、dcrf32.h）文件”放入您的 bin 或 windows/system32 <--我不知道这是否需要。但是，请在 vb.net 模块无法正常工作时尝试一下。

4

1 回答 1

1

您的 VB6 定义是这样的：

Declare Function dc_read_hex Lib "dcrf32.dll" (ByVal icdev As Long, ByVal adr%, ByVal sdata$) As Integer

您目前的定义是这样的，您还没有调整 adr 的数据类型或返回值：

Declare Function dc_read_hex Lib "dcrf32.dll" (ByVal icdev As Integer, ByVal adr%, ByRef sdata$) As Integer

尝试将其定义为：

Declare Function dc_read_hex Lib "dcrf32.dll" (ByVal icdev As Integer, ByVal adr as Short, ByRef sdata as String) As Short

编辑：

从这个MSDN页面尝试一下，您可能需要添加Imports System.RunTime.InteropServices.

Declare Function dc_read_hex Lib "dcrf32.dll" (ByVal icdev As Integer, ByVal adr as Short, <MarshalAs(UnmanagedType.LPTStr)> sdata as String) As Short
于 2011-12-07T02:52:48.097 回答