Citat:
mousea:
a u 2013 staje pri povezivanju na citac
Set RegEngine = New eVehicleRegistrationCOM.Registration na ovoj liniji
i kaze can't create object
[Ovu poruku je menjao mousea dana 20.04.2014. u 18:17 GMT+1]
Verovatno se moraju ukljuciti reference rucno.
Sto se tice koda za citanje LK karte nasao sam nesto sto sam ranije pravio, pa sam ti ti sve upakovao u jednu instalaciju koja je u prilogu.
U instalaciji je COM dll koji sam napravio da se ne bi patio sa API pozivima, standardni dll celik, kao i primer u Excel-u (odradjen je i prikaz slike iz licne karte, nema problema sa cirilicom i sl.).
Evo ti i kako je odradjen programski kod u Excelu - mislim da je maksimalno jednostavno, imas i kompletnu proceduru za prikaz greske ukoliko do nje dodje:
Code:
Dim WithEvents ReaderEngine As LKReader.Reader
Private Sub CommandButton1_Click()
If ReaderEngine Is Nothing Then Set ReaderEngine = New LKReader.Reader
If Not ReaderEngine.ReadData Then
Set ReaderEngine = Nothing
Exit Sub
End If
Sheet1.Cells(5, 2).Value = ReaderEngine.docRegNo
Sheet1.Cells(6, 2).Value = ReaderEngine.issuingAuthority
Sheet1.Cells(7, 2).Value = ReaderEngine.issuingDate
Sheet1.Cells(8, 2).Value = ReaderEngine.expiryDate
Sheet1.Cells(12, 2).Value = ReaderEngine.surname
Sheet1.Cells(13, 2).Value = ReaderEngine.givenName
Sheet1.Cells(14, 2).Value = ReaderEngine.parentGivenName
Sheet1.Cells(15, 2).Value = ReaderEngine.dateOfBirth
Sheet1.Cells(16, 2).Value = ReaderEngine.placeOfBirth
Sheet1.Cells(17, 2).Value = ReaderEngine.communityOfBirth
Sheet1.Cells(18, 2).Value = ReaderEngine.stateOfBirth
Sheet1.Cells(19, 2).Value = ReaderEngine.personalNumber
Sheet1.Cells(20, 2).Value = ReaderEngine.sex
Sheet1.Cells(24, 2).Value = ReaderEngine.State
Sheet1.Cells(25, 2).Value = ReaderEngine.community
Sheet1.Cells(26, 2).Value = ReaderEngine.place
Sheet1.Cells(27, 2).Value = ReaderEngine.street
Sheet1.Cells(28, 2).Value = ReaderEngine.houseNumber
Sheet1.Cells(29, 2).Value = ReaderEngine.houseLetter
Sheet1.Cells(30, 2).Value = ReaderEngine.entrance
Sheet1.Cells(31, 2).Value = ReaderEngine.apartmentNumber
Sheet1.Cells(32, 2).Value = ReaderEngine.Floor
Set Image1.Picture = ReaderEngine.portrait
Set ReaderEngine = Nothing
End Sub
Private Sub ReaderEngine_ReaderError(ByVal ErrorCode As LKReader.LKReader_Error, ByVal ProcedureName As String)
'Ispita se koja je greska
Select Case ErrorCode
Case LKR_E_GENERAL_ERROR
'...
Case LKR_E_INVALID_PARAMETER
'...
Case LKR_E_VERSION_NOT_SUPPORTED
'...
Case LKR_E_NOT_INITIALIZED
'...
Case LKR_E_UNABLE_TO_EXECUTE
'...
Case LKR_E_READER_ERROR
'...
Case LKR_E_CARD_MISSING
'...
Case LKR_E_CARD_UNKNOWN
'...
Case LKR_E_CARD_MISMATCH
'...
Case LKR_E_UNABLE_TO_OPEN_SESSION
'...
Case LKR_E_DATA_MISSING
'..
Case LKR_E_CARD_SECFORMAT_CHECK_ERROR
'..
Case LKR_E_SECFORMAT_CHECK_CERT_ERROR
'..
End Select
'Ispita se u kojoj proceduri je greska nastala
Select Case ProcedureName
Case "EidStartup"
'...
Case "EidCleanup"
'...
Case "EidBeginRead"
'...
Case "EidEndRead"
'...
Case "EidReadDocumentData"
'...
Case "EidReadFixedPersonalData"
'...
Case "EidReadVariablePersonalData"
'...
Case "EidReadPortrait"
'...
End Select
MsgBox "Greska broj: " & ErrorCode & ", Procedura: " & ProcedureName, vbCritical, "Greska!"
End Sub
Ponavljam, sve sto ti treba je u instalaciji koja je u prilogu. Pokreni, next, next... i otvori excel koji ce se instalirati, prikaci citac, ubaci karticu i to je to.
Ajd, pa srecno!
P.S. Excel primer imas u program files/LKReader folderu, ili pokreni precicu na njega koja se instalira u Start meni. MSI sam morao da razbijem na vise delova jer je ogranicen upload na ES, samo sve skini i pokreni MSI.
[Ovu poruku je menjao goranvuc dana 21.04.2014. u 02:55 GMT+1]
P.S. #2
Umesto uploadovane instalacije u komadima, evo link za download:
Instalacija
[Ovu poruku je menjao goranvuc dana 21.04.2014. u 07:52 GMT+1]
[Ovu poruku je menjao goranvuc dana 21.04.2014. u 08:18 GMT+1]