主题：关于二代身份证读卡器的应用问题？

今天搞到一个华视的二代身份证读卡器，也有开发包，想用他实现读身份证的信息并存储到工作表中，还有利用读到的身份证号信息查询定位工作表中的人员，如何编程，给个思路，开发包如下:

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:更新11.9.5.rar

你应该要求开发商提供vb.net开发实例和说明，这样稍作修改就能套用在foxtable中。

如何套用啊？比方说现在他提供了开发包，我如何用？

单单几个DLL文件，没有人会知道怎么用。 你应该要求开发商提供vb.net开发实例和说明，这样稍作修改就能套用在foxtable中。

他有这样几个实例 你看怎么用

附件过大，上传不成功，==

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:vb.zip

一个vb的实例

将这些DLL复制到foxtable安装目录，项目的全局代码加上以下代码：

 

Public Declare Function CVR_InitComm Lib "termb.dll" (ByVal Port As Integer) As Short
Public Declare Function CVR_CloseComm Lib "termb.dll" () As Short
Public Declare Function CVR_Authenticate Lib "termb.dll" () As Short
Public Declare Function CVR_Read_Content Lib "termb.dll" (ByVal Active As Integer) As Short
Public Declare Function CVR_Ant Lib "termb.dll" (ByVal mode As Integer) As Short
Public Declare Function GetPeopleName Lib "termb.dll" (ByVal lpReturnedString As String, ByRef nReturnLen As Short) As Short
Public Declare Function GetPeopleAddress Lib "termb.dll" (ByVal lpReturnedString As String, ByRef nReturnLen As Short) As Short
Public Declare Function GetPeopleIDCode Lib "termb.dll" (ByVal lpReturnedString As String, ByRef nReturnLen As Short) As Short
Public  Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As String, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As String) As Integer

 

接下来就可以在foxtable中使用了，例如：

 

Dim strTemp As String
Dim nReturnLen As Short
Dim nReturn As Short
strTemp = Space(255)
nReturn = GetPeopleName(strTemp, nReturnLen)
output.Show(" 姓名： " & strTemp)

 

最好是让对方提供vb.net或C#的实例，这样直接就可以使用了，因为vb和vb.net还是有不同的

C#实例上传

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:c#.zip