[es] - softver za čitanje novih saobraćajnih dozvola

iwans
Ivan Stojiljkovic
Solution developer, Software Engineer
Smart Pro Solution
Niš, Srbija

Član broj: 304879
Poruke: 2
*.dynamic.isp.telekom.rs.

Sajt: www.SmartProSolution.com

Profil

Re: softver za čitanje novih saobraćajnih dozvola

^{08.07.2012. u 01:20 - pre 155 meseci}

Jel ima neko ideju kako da ove DLL-ove ukljucim u svoj projekat i iscitam neke podatke sa saobracajne? Jel pokusao neko da kreira C# ili VB.net projekat sa ovim DLL-ovima? Meni nije uspelo, mogu da prosledim kod sa povratnim informacijama koje dobijem.
Zna li neko da pomogne?
Hvala unapred!

Odgovor na temu

iwans
Ivan Stojiljkovic
Solution developer, Software Engineer
Smart Pro Solution
Niš, Srbija

Član broj: 304879
Poruke: 2
*.dynamic.isp.telekom.rs.

Sajt: www.SmartProSolution.com

Profil

Re: softver za čitanje novih saobraćajnih dozvola

^{08.07.2012. u 15:47 - pre 155 meseci}

3-4 sata muke i evo koda kome treba! Prosto je bilo, samo sam se spetljao sa imenom Card Readera, a moglo je i da se pusti kao parametar prazan string

Ajd u zdravlje!

----------------------------------------------------
'ovo je VB.net kod, ali radice i C# istom logikom
Imports eVehicleRegistrationCOM
Imports System.Runtime.InteropServices

Public Class Form1

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim vd As New eVehicleRegistrationCOM.Registration
Try
Dim procitano As Integer 'ovo je promenljiva koja prihvata povratnu vrednost
'ovde sam instancirao strukture
Dim ddata As New _DOCUMENT_DATA
Dim rdata As New _REGISTRATION_DATA
Dim vhData As New _VEHICLE_DATA

'smatram da je Initialize isto sto i sdStartup po dokumentaciji
'takodje, u ovom trenutku zasvetli citac kartice
procitano = vd.Initialize() 'ovde vrati vrednost 0

procitano = vd.GetReaderName(0, "") 'ovde vrati vrednost 0
procitano = vd.SelectReader("") 'ovde vrati vrednost -2146435063 ako se ne pusti ovaj prazan string

'ovako se pokupe podaci sa kartice i spremni su za iscitavanje preko ReadXXXX metode
procitano = vd.ProcessNewCard() 'ovde vrati vrednost 0 ako je ok

procitano = vd.ReadDocumentData(ddata) 'ako ovde vrati vrednost 12 - to bi znacilo greska ERROR_INVALID_ACCESS, treba da vraca 0
'jasno je da sledecem kodu treba proslediti prvi parametar 1, 2 ili 3, ali sam probao i sa 0 i dobio:
procitano = vd.ReadRegistration(0, rdata) 'ovde vrati vrednost 87 - to bi znacilo greska ERROR_INVALID_PARAMETER
procitano = vd.ReadRegistration(1, rdata) 'ovde vrati vrednost 0, to je OK
procitano = vd.ReadRegistration(2, rdata) 'ovde vrati vrednost 0, to je OK
procitano = vd.ReadRegistration(3, rdata) 'ovde vrati vrednost 0, to je OK
procitano = vd.ReadVehicleData(vhData) 'ako ovde vrati vrednost 12 - to bi znacilo greska ERROR_INVALID_ACCESS, treba da vraca 0

MessageBox.Show(ddata.serialNumber.ToString) 'ako ovde javi gresku {"Object reference not set to an instance of an object."} onda natrag na projektovanje

Catch ex As Exception
MessageBox.Show(ex.Message.ToString)
Finally
'Finalize je isto sto i sdCleanup po dokumentaciji
vd.Finalize()
End Try
End Sub
End Class
-----------------------------------------------------

Odgovor na temu

adzevad

Član broj: 315903
Poruke: 2
*.dynamic.isp.telekom.rs.

Profil

Re: softver za čitanje novih saobraćajnih dozvola

^{16.03.2014. u 06:41 - pre 135 meseci}

iwans zahvaljujem što ste podelili vaše rešenje sa nama. Ja sam napravio projekt u vb.net-u i prekopirao vaš kod u njega. Ali nikako ne mogu da uspijem da očitam podatke sa saobraćajne. Uvek dobijam grešku {"Object reference not set to an instance of an object."}. Gde sam pogrešio???

Pozdrav.

Odgovor na temu