关于引用托管DLL文件的，求解？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

怎么区分DLL是托管的还是非托管的，我这边买了个MW R6-U040的IC读卡器，添加DEMO里面的DLL显示已经添加，有点搞不明白

读卡器，一般都是非托管dll，具体要看人家给的开发文档怎么说。

能帮我看下吗？开发包下载地址：http://device.mwcard.com/index.php?option=com_zoo&view=frontpage&Itemid=175

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

读卡器，都是非托管dll，直接拷贝到foxtable的安装目录下，参考

http://www.foxtable.com/help/topics/2664.htm

1） INT32 __stdcall mw_dev_openReader(INT8 *name, HANDLE *devNo, UINT32 param1, UINT32 param2)
功能：打开读卡器通讯端口
参数：
Name ：(A) 串行口读卡器可取"COM1", "COM2", "COM3", "COM4"等,字母大小写无关
(B) USB口读卡器可取"USB1", "USB2", "USB3", "USB4"等
devNo ：返回的通设备标识符
param1：(A) 串行口读卡器波特率,9600/19200/57600/115200
(B) USB口读卡器打开设备的模式 1：共享模式 2：独占模式
param2：(A) 串行口读卡器校验位,可为'E' 偶校验, 'N' 无校验,无特殊要求,一般使用偶校验即可
(B) USB口读卡器未使用，可设置为0
返回：=0 ：成功
<>0 ：失败

这个是开发文档的函数说明，那我在全局代码定义这样写：

Public Declare Function mwCardReader Lib "mwCardReader.dll" Alias "mwCardReader"(ByVal Name As String,ByVal devNo As String,ByVal param1 As Integer,ByVal param2 As Integer) '打开通讯接口

这样写对不对

[此贴子已经被作者于2015/5/26 11:09:47编辑过]

你去打开人家 vb.net 的例子，看人家的代码是怎么写的。

比如

Declare Function mw_dev_openReader Lib "mwCardReader.dll" (ByVal name As String, ByRef devNo As Int32, ByVal param1 As UInt32, ByVal param2 As UInt32) As Int32
    Declare Function mw_dev_beep Lib "mwCardReader.dll" (ByVal devNo As Int32, ByVal beepTimes As Byte, ByVal interval As Byte, ByVal time As Byte) As Int32
    Declare Function mw_dev_reset Lib "mwCardReader.dll" (ByVal devNo As Int32) As Int32
    Declare Function mw_dev_closeReader Lib "mwCardReader.dll" (ByVal devNo As Int32) As Int32
    Declare Function mw_dev_readVer Lib "mwCardReader.dll" (ByVal devNo As Int32, ByVal readVer As String) As Int32
    Declare Function mw_mifare_openCard Lib "mwCardReader.dll" (ByVal devNo As Int32, ByVal openMode As Byte, ByVal cardUid As String) As Int32
    Declare Function mw_mifare_closeCard Lib "mwcardReader.dll" (ByVal devNo As Int32) As Int32
    Declare Function mw_mifare_authentication Lib "mwCardReader.dll" (ByVal devNo As Int32, ByVal mode As Byte, ByVal sector As UInt32, ByVal key As String) As Int32
    Declare Function mw_mifare_read Lib "mwCardReader.dll" (ByVal devNo As Int32, ByVal blockNO As UInt32, ByRef blockData As Byte) As Int32
    Declare Function mw_mifare_write Lib "mwCardReader.dll" (ByVal devNo As Int32, ByVal blockNO As UInt32, ByRef blockData As Byte) As Int32

Declare Function mw_ext_ascToHex Lib "mwCardReader.dll" (ByVal asc As String, ByVal srcLen As Integer, ByRef hex As Byte) As Int32
Declare Function mw_ext_hexToAsc Lib "mwCardReader.dll" (ByRef hex As Byte, ByVal srcLen As Integer, ByVal asc As String) As Int32

Declare Function mw_cpu_reset Lib "mwCardReader.dll" (ByVal devNo As Int32, ByVal CardSeat As UInt32, ByRef returnData As Byte, ByRef arcLen As UInt16) As Int32
Declare Function mw_cpu_apdu Lib "mwCardReader.dll" (ByVal devNo As Int32, ByVal cardSeat As UInt32, ByRef apduData As Byte, ByVal len As UInt32, ByRef returnData As Byte, ByRef relen As Int32) As Int32

这些都要具备VB.NET的知识才能使用啊图片点击可在新窗口打开查看

vb.net的语法就是foxtable的语法。

你打开人家的例子，看看人家代码怎么写。

您好，版主，按照您的指点，我参照了下开发包里VB.NET范例，打开设备这个函数我调用成功了，但是后续的参数怎么调用都是失败，您帮我看下是不是我写错了。

例如控制指示灯：

这是开发文档说明：

INT32 __stdcall mw_dev_led(HANDLE devNo, UINT8 ctrlInfo)
功能：指示灯控制
参数：
devNo ： mw_dev_openReader( )返回的设备描述符
ctrlInfo: 指示灯控制信息，长度1个字节，bit7对应指示灯1控制；bit6对应指示灯2控制，以此类推; 0关、1开
例如：
0x80: 绿灯亮，红灯灭
返回: =0: 成功
<>0: 出错

这是全局代码引用的API代码：

Public Declare Function mw_dev_led Lib "mwCardReader.dll" (ByVal devNo As Int32, ByVal ctrlInfo As Byte) As Int32 '指示灯控制

我在AfterLoad调用代码：

dim st as integer

dim devNo as string

st = mw_dev_led（devNo,1）

但是实际好像不对啊，那个绿灯不亮

主题：关于引用托管DLL文件的，求解？