citanje el licne karte i saobracajne dozvole u excel

citanje el licne karte i saobracajne dozvole u excel 18.04.2014. u 16:03 · pre 152 meseci #1

postoji li nacin da se ovo izvede?

Re: citanje el licne karte i saobracajne dozvole u excel 19.04.2014. u 10:37 · pre 152 meseci #2

Moze preko VBA, dovoljno je (koliko se secam) samo da imas onaj Celik API sto se skine od MUP-a i naravno citac kartice...

Radio sam to davno, nisam sad proveravao da li je ovaj kod OK (ovo je primer za saobracajnu), ali evo da podelim pa nek proverava ko ima vremena:

Code:

Option Explicit

Dim RegEngine As eVehicleRegistrationCOM.Registration

Private Sub Command1_Click()
   Dim strReader As String
   Dim lngAnswer As Long

   'Dobijanje naziva reader-a kad je samo 1
   lngAnswer = RegEngine.GetReaderName(0, strReader)

   'Ispitivanje povratne vrednosti: 0 - OK ima instaliran reader, ostalo su greske, tj. verovatno nema instaliran reader
   Select Case lngAnswer
      Case 0

      Case Else
         MsgBox "Greska, nemate instaliran smart card reader!"
         Exit Sub
   End Select

   'Pristup citacu
   lngAnswer = RegEngine.SelectReader(strReader)

   'Ispitivanje povratne vrednosti: 0 - OK reader je ukljucen, ostalo su greske
   Select Case lngAnswer
      Case 0

      Case Else
         MsgBox "Greska, niste ukljucili smart card reader ili nije ispravan!"
         Exit Sub
   End Select

   Command2.Enabled = True

End Sub
Private Sub Command2_Click()
   Dim lngAnswer As Long
   Dim docData As eVehicleRegistrationCOM.[_DOCUMENT_DATA]
   Dim persData As eVehicleRegistrationCOM.[_PERSONAL_DATA]
   Dim regData As eVehicleRegistrationCOM.[_REGISTRATION_DATA]
   Dim vehData As eVehicleRegistrationCOM.[_VEHICLE_DATA]

   'Obrada kartice
   lngAnswer = RegEngine.ProcessNewCard

   'Ispitivanje povratne vrednosti: 0 - OK kartica je unutra i ispravna je, ostalo su greske
   Select Case lngAnswer
      Case 0

      Case Else
         MsgBox "Greska, kartica nije ubacena ili vec nesto tako!"
         Exit Sub
   End Select



   'Obrada kartice - docData
   lngAnswer = RegEngine.ReadDocumentData(docData)

   'Ispitivanje povratne vrednosti: 0 - OK procitano je kako treba, ostalo su greske
   Select Case lngAnswer
      Case 0

      Case Else
         MsgBox "Greska pri citanju!"
         Exit Sub
   End Select

   'Ispis jednog polja kao primer
   MsgBox docData.serialNumber



   'Obrada kartice - persData
   lngAnswer = RegEngine.ReadPersonalData(persData)

   'Ispitivanje povratne vrednosti: 0 - OK procitano je kako treba, ostalo su greske
   Select Case lngAnswer
      Case 0

      Case Else
         MsgBox "Greska pri citanju!"
         Exit Sub
   End Select

   'Ispis jednog polja kao primer
   MsgBox persData.ownerName



   'Obrada kartice - regData (0)
   lngAnswer = RegEngine.ReadRegistration(0, regData)

   'Ispitivanje povratne vrednosti: 0 - OK procitano je kako treba, ostalo su greske
   Select Case lngAnswer
      Case 0

      Case Else
         MsgBox "Greska pri citanju!"
         Exit Sub
   End Select

   'Ispis jednog polja kao primer
   MsgBox regData.registrationData



   'Obrada kartice - vehData
   lngAnswer = RegEngine.ReadVehicleData(vehData)

   'Ispitivanje povratne vrednosti: 0 - OK procitano je kako treba, ostalo su greske
   Select Case lngAnswer
      Case 0

      Case Else
         MsgBox "Greska pri citanju!"
         Exit Sub
   End Select

   'Ispis jednog polja kao primer
   MsgBox vehData.vehicleIDNumber

End Sub
Private Sub Form_Load()

   'Kreiranje instance i inicijalizacija
   Set RegEngine = New eVehicleRegistrationCOM.Registration
   RegEngine.Initialize

End Sub
Private Sub Form_Terminate()

   'Unistavanje instance
   Set RegEngine = Nothing

End Sub

Re: citanje el licne karte i saobracajne dozvole u excel 19.04.2014. u 23:36 · pre 152 meseci #3

Imam api registrovao sam ga

medjutim ne uspevam da pokrenem kod. dobijam error 429
activex component can't create object

Re: citanje el licne karte i saobracajne dozvole u excel 19.04.2014. u 23:44 · pre 152 meseci #4

Da li si dodao u reference taj activex?

Re: citanje el licne karte i saobracajne dozvole u excel 19.04.2014. u 23:52 · pre 152 meseci #5

jesam eVehicleRegistrationCOM.dll
za licnu kartu onaj api sa mupovog sajta ne moze da se doda ne moze da se doda

evo i coda

radim u excelu 2013

Code:

Option Explicit

Dim RegEngine As eVehicleRegistrationCOM.Registration
Private Sub CommandButton1_Click()
   Dim strReader As String
   Dim lngAnswer As Long

   'Dobijanje naziva reader-a kad je samo 1
   lngAnswer = RegEngine.GetReaderName(0, strReader)

   'Ispitivanje povratne vrednosti: 0 - OK ima instaliran reader, ostalo su greske, tj. verovatno nema instaliran reader
   Select Case lngAnswer
      Case 0

      Case Else
         MsgBox "Greska, nemate instaliran smart card reader!"
         Exit Sub
   End Select

   'Pristup citacu
   lngAnswer = RegEngine.SelectReader(strReader)

   'Ispitivanje povratne vrednosti: 0 - OK reader je ukljucen, ostalo su greske
   Select Case lngAnswer
      Case 0

      Case Else
         MsgBox "Greska, niste ukljucili smart card reader ili nije ispravan!"
         Exit Sub
   End Select

   Command2.Enabled = True
End Sub

Private Sub CommandButton2_Click()
Dim lngAnswer As Long
   Dim docData As eVehicleRegistrationCOM.[_DOCUMENT_DATA]
   Dim persData As eVehicleRegistrationCOM.[_PERSONAL_DATA]
   Dim regData As eVehicleRegistrationCOM.[_REGISTRATION_DATA]
   Dim vehData As eVehicleRegistrationCOM.[_VEHICLE_DATA]

   'Obrada kartice
   lngAnswer = RegEngine.ProcessNewCard

   'Ispitivanje povratne vrednosti: 0 - OK kartica je unutra i ispravna je, ostalo su greske
   Select Case lngAnswer
      Case 0

      Case Else
         MsgBox "Greska, kartica nije ubacena ili vec nesto tako!"
         Exit Sub
   End Select



   'Obrada kartice - docData
   lngAnswer = RegEngine.ReadDocumentData(docData)

   'Ispitivanje povratne vrednosti: 0 - OK procitano je kako treba, ostalo su greske
   Select Case lngAnswer
      Case 0

      Case Else
         MsgBox "Greska pri citanju!"
         Exit Sub
   End Select

   'Ispis jednog polja kao primer
   MsgBox docData.serialNumber



   'Obrada kartice - persData
   lngAnswer = RegEngine.ReadPersonalData(persData)

   'Ispitivanje povratne vrednosti: 0 - OK procitano je kako treba, ostalo su greske
   Select Case lngAnswer
      Case 0

      Case Else
         MsgBox "Greska pri citanju!"
         Exit Sub
   End Select

   'Ispis jednog polja kao primer
   MsgBox persData.ownerName



   'Obrada kartice - regData (0)
   lngAnswer = RegEngine.ReadRegistration(0, regData)

   'Ispitivanje povratne vrednosti: 0 - OK procitano je kako treba, ostalo su greske
   Select Case lngAnswer
      Case 0

      Case Else
         MsgBox "Greska pri citanju!"
         Exit Sub
   End Select

   'Ispis jednog polja kao primer
   MsgBox regData.registrationData



   'Obrada kartice - vehData
   lngAnswer = RegEngine.ReadVehicleData(vehData)

   'Ispitivanje povratne vrednosti: 0 - OK procitano je kako treba, ostalo su greske
   Select Case lngAnswer
      Case 0

      Case Else
         MsgBox "Greska pri citanju!"
         Exit Sub
   End Select

   'Ispis jednog polja kao primer
   MsgBox vehData.vehicleIDNumber
End Sub
Private Sub UserForm_Activate()
'Kreiranje instance i inicijalizacija
   Set RegEngine = New eVehicleRegistrationCOM.Registration
   RegEngine.Initialize
End Sub
Private Sub UserForm_Initialize()

End Sub

Private Sub UserForm_Terminate()

   'Unistavanje instance
   Set RegEngine = Nothing


End Sub

Re: citanje el licne karte i saobracajne dozvole u excel 20.04.2014. u 11:38 · pre 152 meseci #6

Ih bre, pa zar moram sve na tacni?

Evo ti u prilogu kako ide za registraciju vozila (nisam probao, ostala mi registracija u autu).

RegistracijaVozila.xls33.5k

Re: citanje el licne karte i saobracajne dozvole u excel 20.04.2014. u 16:02 · pre 152 meseci #7

hvala ovo fercera kao podmazano :) na excelu 2003 na 2013 nece iz nepoznatih razloga :) ali nije bitno :)

imas li mozda api za licne karte koji moze da se doda u reference ovaj sto sam skinuo sa mupa nece :(

Re: citanje el licne karte i saobracajne dozvole u excel 20.04.2014. u 16:49 · pre 152 meseci #8

Nemam Office 2013 da bih mogao da proverim, ali verujem da je neka sitnica.

Za licnu kartu ne postoji ActiveX vec standardan dll pa mora preko API deklaracija, imao sam negde kod ali ne mogu da pronadjem trenutno... Imas primere i na ES ako se ne varam.

Re: citanje el licne karte i saobracajne dozvole u excel 20.04.2014. u 16:59 · pre 152 meseci #9

bio bih ti jako zahvalan za taj kod za licnu kartu znacilo bi mi jako ako uspes da ga pronadjes

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]}

Re: citanje el licne karte i saobracajne dozvole u excel 21.04.2014. u 01:39 · pre 152 meseci #10

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]}

Re: citanje el licne karte i saobracajne dozvole u excel 21.04.2014. u 09:29 · pre 152 meseci #11

hvala ovo mi je trebalo :)

duzan sam ti pivo :)

Re: citanje el licne karte i saobracajne dozvole u excel 21.04.2014. u 09:32 · pre 152 meseci #12

Nisi mi nista duzan, drago mi je da sam ti pomogao.

Molio bih te samo da mi odgovoris (ako nije tajna) kako si mislio da primenis ovo, tj. zbog cega ti je ovo trebalo bas u excel-u (pretpostavljam da su u pitanju popune nekih obrazaca), ali vise me interesuje gde to ima prakticnu primenu.

Eh da, da li si resio onaj problem sa citanjem saobracajne?

Re: citanje el licne karte i saobracajne dozvole u excel 21.04.2014. u 11:09 · pre 152 meseci #13

Upravo to popunjavanje nekih obrazaca za firmu da ne bi iscitavali i prepisivali
pogotovu sto korisnici nisu bas kompjuterski potkovani

problem u 2013 nisam resio jos uvek

ni lk ne radi u 2013 u 2003 i 2007 radi.

Re: citanje el licne karte i saobracajne dozvole u excel 21.04.2014. u 11:17 · pre 152 meseci #14

Citat:

mousea: problem u 2013 nisam resio jos uvek

ni lk ne radi u 2013 u 2003 i 2007 radi.

Mozda se neko javi ko ima 2013 i uspe da resi problem, ja ne mogu jer nemam (necu ni imati, svoju 2003 sam svojevremeno platio 600 eura i "cedicu" je dok mogu).

Inace, malo sam "google" - ovao i nema nijedna ActiveX komponenta za citanje LK i svi se nesto pate sa Celik API-em, tako da cu u poseban post staviti ovu instalaciju (u kojoj je ovaj primer sa Excel-om), a uploadovacu i primer koristenja u samom VB6.

Naravno, moze se koristiti i u VB skriptu, kao i u ostalim Office aplikacijama preko VBA.

Da i drugi imaju neke koristi, ako se slazes.

Re: citanje el licne karte i saobracajne dozvole u excel 21.04.2014. u 11:21 · pre 152 meseci #15

Naravno da se slazem treba pomoci svima

ovo za lk radi ko satic

Re: citanje el licne karte i saobracajne dozvole u excel 24.04.2014. u 08:01 · pre 152 meseci #16

Imam mali problem sa ocitavanjem LK. Pokusao sam da ovo odradim u Access-u, sve lepo ocita jedini problem mi predstavlja slika. Kada postavim kontrolu Image i pokusam da joj dodelim sliku sa LK preko (ReaderEngine.portrait) javlja mi gresku, a kada prvo napisem komandu da mi sacuva sliku negde na kompu i dodelim putanju kontroli do te slike onda je sve OK. Da li postoji mogucnost da se bez snimanja slike na kompu ucita slika u kontrolu jer hocu da korisnik sam odabere da li hoce ili ne da sacuva sliku.

Potpis

[email protected]=

Re: citanje el licne karte i saobracajne dozvole u excel 24.04.2014. u 08:05 · pre 152 meseci #17

Kad postavljas pitanje ne bi bilo lose i da das deo koda koji ti pravi problem, ovako ja ne znam koji kod to koristis da ucitas sliku u Access-u i ne mogu da pogadjam sta ne valja.

Pozdrav!

Re: citanje el licne karte i saobracajne dozvole u excel 24.04.2014. u 08:19 · pre 152 meseci #18

Pretpostavljam da pokusavas sa (npr):

Code:
Image1.Picture = ReaderEngine.portrait

, a treba ovako:

Code:
Image1.PictureData = ReaderEngine.portrait

Moras da se dobro upoznas sa osnovnim svojstvima komponenti koje koristis da bi ih koristio kako treba...

Re: citanje el licne karte i saobracajne dozvole u excel 24.04.2014. u 08:43 · pre 152 meseci #19

nece i dalje a koristim onaj kod kao sto si koristio u Excel-u samo sam ga prilagodio Access-u.

Code:
If ReaderEngine Is Nothing Then Set ReaderEngine = New LKReader.Reader

    If Not ReaderEngine.ReadData Then
        Set ReaderEngine = Nothing
        Exit Sub
    End If

    With Me
        .BrojLK = ReaderEngine.docRegNo
        .Izdaje = ReaderEngine.issuingAuthority
        .DatumIzdavanje = ReaderEngine.issuingDate
        .VaziDo = ReaderEngine.expiryDate

        .Prezime = ReaderEngine.surname
        .Ime = ReaderEngine.givenName
        .ImeRoditelja = ReaderEngine.parentGivenName
        .DatumRodjenja = ReaderEngine.dateOfBirth
        .MestoRodjenja = ReaderEngine.placeOfBirth
        .OpstinaRodjenja = ReaderEngine.communityOfBirth
        .DrzavaRodjenja = ReaderEngine.stateOfBirth
        .JMBG = ReaderEngine.personalNumber
        .Pol = ReaderEngine.sex

        .DrzavaPrebivalista = ReaderEngine.state
        .OpstinaPrebivalista = ReaderEngine.community
        .MestoPrebivalista = ReaderEngine.place
        .Ulica = ReaderEngine.street
        .Broj = ReaderEngine.houseNumber
        .Slovo = ReaderEngine.houseLetter
        .Ulaz = ReaderEngine.entrance
        .BrojStana = ReaderEngine.apartmentNumber
        .Sprat = ReaderEngine.floor

        .imgSlika.PictureData = ReaderEngine.portrait

    End With
    Set ReaderEngine = Nothing

Potpis

[email protected]=

Re: citanje el licne karte i saobracajne dozvole u excel 24.04.2014. u 10:07 · pre 152 meseci #20

Koju grešku ti da? Pretpostaljam da ima veze sa formatom izlaza.

Potpis

F

Srodne teme