i am using smart card reader and have the sdk(gsdkpcsc.dll) for programming.
then, i already wite down all the declaratiion for the module.
i also have made the command button.
my project is,
i) when click at the READ button, it will start communication with smart card in
the card reader, then it'll get the identification number from the smart card,
12 digit.then, the number appeared at text box
ii) by clicking verify buuton,the 12 digit number is compared with the database
with m Access
iii) if matches with databse, then it will send a unique charachter such as AEI
at the serial port of my microcontrooler. this project is for 2 user.
iv) if not match, then it says, access is denied.
my problem s, i need help on the code lines for READ and VERIFY..
can anyone help?
READ > open session, commnubication, get data
VERIFY > match with database and send AEI(user 1), IOU(user 2) to serial port
i need to get 12 digit numb for this function \Declare Function JPN_IDNum Lib "gsdkpcsc.dll" _
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
' General Declaration
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
Declare Function OpenReader Lib "gsdkpcsc.dll" Alias "_OpenReader@0" _
() As Integer ' open communication session with the card reader
Declare Function cardConnect Lib "gsdkpcsc.dll" Alias "_CardConnect@12" _
(ByVal port As Integer, ByVal Rdrname As String, ByVal nRdrLen As Integer) As Long
' open communication session with the card in the reader
Declare Function CardDisconnect Lib "gsdkpcsc.dll" _
Alias "_CardDisconnect@0" _
() As Integer
' Closes communication session with the card in the reader
Declare Function CloseReader Lib "gsdkpcsc.dll" Alias "_CloseReader@0" _
() As Integer
' Closes communication session with the card reader
Declare Function CardDetect Lib "gsdkpcsc.dll" Alias "_CardDetect@4" _
(ByVal pcExplanation As String) As Integer
' Checks if card is in card reader
Declare Function ResetCard Lib "gsdkpcsc.dll" Alias "_ResetCard@0" _
() As Long
' Reset the card
Declare Function GetError Lib "gsdkpcsc.dll" Alias "_GetError@0" _
() As Integer
' returns information on last error that occured
Declare Function SelJPNApp Lib "gsdkpcsc.dll" Alias "_SelJPNApp@0" _
() As Integer
' select JPN to read JPN data
Declare Function SelJPJApp Lib "gsdkpcsc.dll" Alias "_SelJPJApp@0" _
() As Integer
' select JPJ to read JPJ data
Declare Function SelIMMApp Lib "gsdkpcsc.dll" Alias "_SelIMMApp@0" _
() As Integer
'Select IMM to read IMM data
Declare Function JPN_OrgName Lib "gsdkpcsc.dll" _
Alias "_JPN_OrgName@4" _
(ByVal pbOrgName As String) As Integer
'original name in 150 bytes
Declare Function JPN_MyKadName Lib "gsdkpcsc.dll" _
Alias "_JPN_MyKadName@4" _
(ByVal pbMyKadName As String) As Integer
' 3 lines of name stored in blocks 0f 30+30+20=80
Declare Function JPN_KPTName Lib "gsdkpcsc.dll" _
Alias "_JPN_KPTName@4" _
(ByVal pbKPTName As String) As Integer
' KPTName is 40bytes , 2 lines of name stored in blocks of 20+20=40
Declare Function JPN_IDNum Lib "gsdkpcsc.dll" _
Alias "_JPN_IDNum@4" _
(ByVal pbIDNum As String) As Integer
' ID number in 13bytes
Declare Function JPN_Gender Lib "gsdkpcsc.dll" _
Alias "_JPN_Gender@4" _
(ByVal pbGender As String) As Integer
' Gender is 1 byte(L for lelaki , P for perempuan)
Declare Function JPN_OldIDNum Lib "gsdkpcsc.dll" _
Alias "_JPN_OldIDNum@4" _
(ByVal pbOldIDNum As String) As Integer
' Old ID Number is 8 bytes
Declare Function JPN_BirthDate Lib "gsdkpcsc.dll" _
Alias "_JPN_BirthDate@4" _
(ByVal pbBirthDate As String) As Integer
' Date of birth is 4 bytes (numeric)
Declare Function JPN_BirthPlace Lib "gsdkpcsc.dll" _
Alias "_JPN_BirthPlace@4" _
(ByVal pbBirthPlace As String) As Integer
Declare Function JPN_DateIssued Lib "gsdkpcsc.dll" _
Alias "_JPN_DateIssued@4" _
(ByVal pbDateIssued As String) As Integer
Declare Function JPN_Citizenship Lib "gsdkpcsc.dll" _
Alias "_JPN_Citizenship@4" _
(ByVal pbCitizenship As String) As Integer
Declare Function JPN_Race Lib "gsdkpcsc.dll" _
Alias "_JPN_Race@4" _
(ByVal pbRace As String) As Integer
Declare Function JPN_Religion Lib "gsdkpcsc.dll" _
Alias "_JPN_Religion@4" _
(ByVal pbReligion As String) As Integer
Declare Function JPN_EastMsian Lib "gsdkpcsc.dll" _
Alias "_JPN_EastMsian@4" _
(ByVal pbEastMsian As String) As Integer
Declare Function JPN_RJ Lib "gsdkpcsc.dll" _
Alias "_JPN_RJ@4" _
(ByVal pbRJ As String) As Integer
Dim MyKadName As String
Text1.Text = IDNum
IDNum = ""
nResult = JPN_IDNum(IDNum)
nResult = CardDisconnect()
nResult = CloseReader()
End Sub
when i run F8, at nResult = JPN_IDNum(IDNum) it says cnnot find dll entry point for _JPN_IDNum@4..why?
below is my module..
Option Explicit
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
' General Declaration
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
Declare Function OpenReader Lib "gsdkpcsc.dll" Alias "_OpenReader@0" _
() As Integer ' open communication session with the card reader
Declare Function cardConnect Lib "gsdkpcsc.dll" Alias "_CardConnect@12" _
(ByVal port As Integer, ByVal Rdrname As String, ByVal nRdrLen As Integer) As Long
' open communication session with the card in the reader
Declare Function CardDisconnect Lib "gsdkpcsc.dll" _
Alias "_CardDisconnect@0" _
() As Integer
' Closes communication session with the card in the reader
Declare Function CloseReader Lib "gsdkpcsc.dll" Alias "_CloseReader@0" _
() As Integer
' Closes communication session with the card reader
Declare Function CardDetect Lib "gsdkpcsc.dll" Alias "_CardDetect@4" _
(ByVal pcExplanation As String) As Integer
' Checks if card is in card reader
Declare Function ResetCard Lib "gsdkpcsc.dll" Alias "_ResetCard@0" _
() As Long
' Reset the card
Declare Function GetError Lib "gsdkpcsc.dll" Alias "_GetError@0" _
() As Integer
' returns information on last error that occured
Declare Function SelJPNApp Lib "gsdkpcsc.dll" Alias "_SelJPNApp@0" _
() As Integer
' select JPN to read JPN data
Declare Function JPN_OrgName Lib "gsdkpcsc.dll" _
Alias "_JPN_OrgName@4" _
(ByVal pbOrgName As String) As Integer
'original name in 150 bytes
Declare Function JPN_MyKadName Lib "gsdkpcsc.dll" _
Alias "_JPN_MyKadName@4" _
(ByVal pbMyKadName As String) As Integer
' 3 lines of name stored in blocks 0f 30+30+20=80
Declare Function JPN_KPTName Lib "gsdkpcsc.dll" _
Alias "_JPN_KPTName@4" _
(ByVal pbKPTName As String) As Integer
' KPTName is 40bytes , 2 lines of name stored in blocks of 20+20=40
Declare Function JPN_IDNum Lib "gsdkpcsc.dll" _
Alias "_JPN_IDNum@4" _
(ByVal pbIDNum As String) As Integer
' ID number in 13bytes
Reply With Quote
