sbpub.bas

社保卡信息读取 使用读卡器对社保卡信息读取,联通公司使用的代码,对硬件控制学习有所帮助吧

Attribute VB_Name = "sbpub"
'----------------------------------------
'
'----------------------------------------



'正常
Public Const IFD_OK As Long = 0

'卡片类型不对
Public Const IFD_ICC_Type_Error = -1

'卡片尚未插入
Public Const IFD_NO_ICC = -2

'卡片尚未取出
Public Const IFD_ICC_ON = -3

'卡片无应答
Public Const IFD_ICC_NO_Response = -4

'读卡器故障
Public Const IFD_Error = -5

'不支持该命令
Public Const IFD_Bad_Command = -6

'命令长度错误
Public Const IFD_Length_Error = -7

'命令参数出错
Public Const IFD_Parameter_Error = -8

'访问权限不满足
Public Const IFD_Access_Deny = -9

'信息校验和出错
Public Const IFD_CheckSum_Error = -10

'未定义错误
Public Const IFD_Undefine_Error = -11

'主机端错误
Public Const Host_OpenPort_Fail = -21
Public Const Host_NO_Response = -22
Public Const Host_Commu_Error = -23


'附加错误 //朱斌 2004/09/10
Public Const ISO7816_ERROR = (-24)
Public Const APIRETLEN_ERROR = (-25)
Public Const ARGUMENT_ERROR = (-26)
Public Const GENERAL_ERROR = (-99)
Public Const NO_FILE = (-21)
Public Const NO_RECORD = (-22)


' IC卡通信协议

'ISO 7816-3 T=0 协议
Public Const ICC_T0 = 5

'ISO 7816-3 T=1 协议
Public Const ICC_T1 = 6

'SIEMENS Memory Card from 0x10
Public Const ICC_SIEM4442 = &H10
Public Const ICC_SIEM4428 = &H11

'ATMEL Memory Card from 0x20
Public Const ICC_AT2416 = &H20
Public Const ICC_AT2464 = &H21

'Philips Contacless Card from 0x30

'TI Electric Lable from 0x40


' IC卡读写器连接器定义

'应用连接器
Public Const ICC_CONNECTOR_USER = 2

'安全连接器
Public Const ICC_CONNECTOR_SAM = 3

'-------------------------------
' II.API函数引用
'-------------------------------

'返回驱动程序版本信息
Public Declare Sub ICC_Version Lib "gongji.dll" (ByVal version As String)


'返回通信端口的设备句柄
'参数dev的设置说明:
'  "COM1","COM2",...   串口
'  "USB"      USB接口
'  "IP"       远程调试模式
Public Declare Function ICC_Reader_Open Lib "gongji.dll" (ByVal dev As String) As Long

'关闭通信端口
Public Declare Function ICC_Reader_Close Lib "gongji.dll" (ByVal ReaderHandle As Long) As Long

'插卡和上电
Public Declare Function ICC_Reader_InsertCard Lib "gongji.dll" (ByVal ReaderHandle As Long, _
    ByVal ICC_Connector_No As Long, _
    ByVal ICC_ID As Long, _
    ByVal WaitTime As Long, _
    ByRef Response As Byte) As Long
    
'拔卡和下电
Public Declare Function ICC_Reader_RemoveCard Lib "gongji.dll" (ByVal ReaderHandle As Long, _
    ByVal ICC_Connector_No As Long, _
    ByVal WaitTime As Long) As Long
                   

'应用命令函数
Public Declare Function ICC_Reader_Application Lib "gongji.dll" (ByVal ReaderHandle As Long, _
    ByVal ICC_Connect_No As Long, _
    ByVal Length_of_Command_APDU As Long, _
    ByRef Command_APDU As Byte, _
    ByRef Response_APDU As Byte) As Long
    
'辅助函数
Public Declare Function ICC_Config_Serial Lib "gongji.dll" (ByVal SerialSet As String) As Integer


'解释错误代码
Public Declare Sub ICC_ErrStr Lib "gongji.dll" (ByVal errcode As Long, ByVal errstr As String)

'数制转换
Public Declare Sub ICC_hex_str Lib "gongji.dll" (ByVal str As String, ByRef hex As Byte, ByVal hexlen As Long)
Public Declare Sub ICC_hex_ascs Lib "gongji.dll" (ByVal ascs As String, ByRef hex As Byte, ByVal hexlen As Long)
Public Declare Sub ICC_str_hex Lib "gongji.dll" (ByRef hex As Byte, ByRef hexlen As Long, ByVal str As String)
Public Declare Sub ICC_ascs_hex Lib "gongji.dll" (ByRef hex As Byte, ByVal ascs As String, ByVal asclen As Long)







'----------------------------------------
'
'               朱斌
'                      2004/8
'----------------------------------------
Public Const TF_AN As Long = 0
Public Const TF_CN As Long = 1
Public Const TF_BIN As Long = 2

Public Const AUTH_READ As Long = 1
Public Const AUTH_WRITE As Long = 2
Public Const AUTH_APPLOCK As Long = 4

Public Declare Function sbpub_version Lib "sbpub.dll" (ByVal version As String) As Long
Public Declare Function switch_service Lib "sbpub.dll" (ByVal fd As Long, ByVal mf_df As String, ByVal authmode As Long, ByVal errmsg As String) As Long
Public Declare Function read_record Lib "sbpub.dll" (ByVal fd As Long, ByVal ef As String, ByVal recno As Long, ByVal data As String, ByVal transform As Long, ByVal errmsg As String) As Long
Public Declare Function update_record Lib "sbpub.dll" (ByVal fd As Long, ByVal ef As String, ByVal recno As Long, ByVal data As String, ByVal transform As Long, ByVal tag As String, ByVal store_len As Long, ByVal errmsg As String) As Long




'-------------------------------------------
'
'
'
'-------------------------------------------