?
Solved

Connect fingerprint device over IP

Posted on 2006-04-23
18
Medium Priority
?
1,997 Views
Last Modified: 2008-01-09

i have fingerprint device

http://www.agestarsgroup.net/av100.jpg

and i want to connect my app to this device using tcp/ip ... I have the
IP of the device

how can i do that
0
Comment
Question by:hatem72
  • 9
  • 8
17 Comments
 
LVL 3

Expert Comment

by:PierreBeukes
ID: 16523828
Hi,

You will have to give more information on exactly it is you want to do.

Normally you can setup the fingerprint device so that when somebody puts in there finger .. it will fire to a certain ip.
u should also have got a cd with the device, which gives you the code you can put in your application to "Listen" for events .. (which the fingerprint device would fire  - to that certain ip i was talking about).

Ciao
Pierre
0
 
LVL 6

Author Comment

by:hatem72
ID: 16529646

hi PierreBeukes

there is database in the device stors EmpId checkin and out datetime and the device compare the
fingerprint

my request is how to connect this device and using [ Device IP ] to retrive data from the database
i have document with some commands to deal with the device but the document talk about connection using com .
0
 
LVL 3

Expert Comment

by:PierreBeukes
ID: 16532424
Hi,

Yes - that is correct.
There is a small DB inside it (that is where it will usually store the empno, Empname, In/Out, and the fingerprint data.
(the db will also contain other settings like ... if the backlight stays on. what it displays etc. - AND ALSO the IP Address of the machine which is going to be listening.)

If you look at the back of the fingerprint device .... does it have a plug for a network cable?
It should....

When you initially have to setup the device.. you will have to do it through a com port.  i had a special cable to do that.
The cable had a com plug on the one side (which goes into the pc) and a network point on the other (which goes into the fingerprint device).

What software did you get with the Device (is there any code included).  ??

Ciao
Cranzy



0
Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 
LVL 6

Author Comment

by:hatem72
ID: 16532850

Hi PierreBeukes

thanx for ur replay ... i have the same cable u talk about ... and also i know the [ Device IP ] ... and
there is vb6 source code include ... but the vb6 code connect the device using the com ... When i want to use the IP

becouse i want to connect the device to my network .
0
 
LVL 3

Expert Comment

by:PierreBeukes
ID: 16532909
Yes,

Firstly, Install the software which came with the device on ur pc.
Then - connect the device via to ur pc via the cable - the com port one.

Then u have to run the software ...
You should go into the properties of the device. -> You Should See all the settings of the Device ... Somewhere there is a place where you can actually set the ip address .... to where it is going to fire events to .. - make that the ip of YOUR pc ...  Then save the settings and close the software ..  now hookup the device to the network ... then run the vb6 sample code  .. i suggest you run it ... and then break into the code and Press F8 ... so when anything happens - it will break into the code ...   now go put your finger in the device..
That should work ... if not .. Please send me a screenshot of the settings you can set for the device.

Ciao
0
 
LVL 6

Author Comment

by:hatem72
ID: 16532939

i have the ip [192.168.0.7] and they say in the doc the server must be [192.168.0.118] ... when connecting i can then change the Device IP

here is vb6 Code maybe help [Using Com] :
Dim CodeData_Cp As Double
Dim CodeFile As String
Dim FileLength As Double
Dim Com_Input As String
Dim success As Boolean
Dim answer As Boolean
Dim insend As Boolean
Dim sendfail As Boolean
Dim failcount As Integer
Dim overtime As Integer

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Send_Click()
Dim FileNum As Integer
Dim CodeData(562) As Byte
Dim ygcount As Integer
    If insend Then
        insend = False
        Command1.Caption = "Send"
    Else
        CodeFile = App.Path + "\Myf1"
        FileNum = FreeFile
        FileLength = FileLen(CodeFile)
        Open CodeFile For Binary As FileNum
        For CodeData_Cp = 1 To FileLength
            DoEvents
            Get #FileNum, CodeData_Cp, CodeData(CodeData_Cp - 1)
        Next CodeData_Cp
        Close FileNum
       
        insend = True
        failcount = 0
       
        If Check1(0).Value = 1 Then
        ygcount = 1
        Command1.Caption = "Stop"
        Do While (ygcount <= (Val(Text1.Text) / 10)) And (ygcount <= 200) And (insend)
            frmYG.Caption = "Send Dept. -" + Str(ygcount) + "           Error -" + Str(failcount)
            success = False
            sendfail = False
            Text2.Text = "--> (10000,bmadd," + Trim(Str(ygcount)) + ",R&D Dept.)" + vbCrLf
            MSComm1.Output = "(10000,bmadd," + Trim(Str(ygcount)) + ",R&D Dept.)"
            overtime = 0
            Timer1.Enabled = True
            Do While ((Not success) And (Not sendfail))
                DoEvents
            Loop
            overtime = 48
            Do While (Timer1.Enabled)
                DoEvents
            Loop
            If sendfail Then ygcount = ygcount - 1
            ygcount = ygcount + 1
        Loop
        End If
       
        If Check1(1).Value = 1 Then
        ygcount = 1
        Command1.Caption = "Stop"
        Do While ygcount <= Val(Text1.Text) And (ygcount <= 2000) And (insend)
            frmYG.Caption = "Send Employee -" + Str(ygcount) + "           Error -" + Str(failcount)
            success = False
            sendfail = False
            Text2.Text = "--> (10000,ygadd," + Trim(Str(ygcount)) + ",mengwei,1,999999,3)" + vbCrLf
            MSComm1.Output = "(10000,ygadd," + Trim(Str(ygcount)) + ",mengwei,1,999999,3)"
            overtime = 0
            Timer1.Enabled = True
            Do While ((Not success) And (Not sendfail))
                DoEvents
            Loop
            overtime = 48
            Do While (Timer1.Enabled)
                DoEvents
            Loop
            If sendfail Then ygcount = ygcount - 1
            ygcount = ygcount + 1
        Loop
        End If
       
        If Check1(2).Value = 1 Then
        ygcount = 1
        Do While ygcount <= Val(Text1.Text) And (ygcount < 1750) And (insend)
            frmYG.Caption = "Send Fingerprints -" + Str(ygcount) + "   Error -" + Str(failcount)
            success = False
            answer = False
            sendfail = False
            Text2.Text = "--> (10000,sendtemplet," + Trim(Str(ygcount)) + ",0)" + vbCrLf
            MSComm1.Output = "(10000,sendtemplet," + Trim(Str(ygcount)) + ",0)"
            overtime = 0
            Timer1.Enabled = True
            DoEvents
            Do While ((Not answer) And (Not sendfail))
                DoEvents
            Loop
            MSComm1.Output = CodeData
            Do While ((Not success) And (Not sendfail))
                DoEvents
            Loop
            If success Then overtime = 95
            Do While (Timer1.Enabled)
                DoEvents
            Loop
            ygcount = ygcount + 1
            If sendfail Then ygcount = ygcount - 1
        Loop
        End If
       
       
        Text2.Text = Text2.Text + "--> (10000,saveinfo)" + vbCrLf
        MSComm1.Output = "(10000,saveinfo)"
        success = False
        Do While (Not success)
            DoEvents
        Loop
        Text2.Text = Text2.Text + "--> (10000,dbdata)" + vbCrLf
        MSComm1.Output = "(10000,dbdata)"
        frmYG.Caption = "Send Data - Success           Error -" + Str(failcount)
        insend = False
        Command1.Caption = "Send"
    End If
End Sub

Private Sub Initialize_Click()
    If Not insend Then
        Text2.Text = "--> (10000,sysinit)" + vbCrLf
        MSComm1.Output = "(10000,sysinit)"
        Command2.Enabled = False
        success = False
        Do While (Not success)
            DoEvents
        Loop
        Command2.Enabled = True
    End If
End Sub

Private Sub Search_Click()
    If Not insend Then
        Text2.Text = "--> (10000,dbdata)" + vbCrLf
        MSComm1.Output = "(10000,dbdata)"
        success = False
        Do While (Not success)
            DoEvents
        Loop
    End If
End Sub

Private Sub Form_Load()
    frmYG.Caption = "Send Data"
    Command1.Caption = "Send"
    Text1.Text = 50
    MSComm1.RThreshold = 1
    MSComm1.SThreshold = 1
    MSComm1.DTREnable = True
    MSComm1.RTSEnable = True
    MSComm1.CommPort = 1
    MSComm1.Settings = "57600,N,8,1"
    MSComm1.PortOpen = True
    MSComm1.Output = "(1,systime)"
    Sleep 800
    MSComm1.Output = "(1,systime)"
End Sub

Private Sub Form_Unload(Cancel As Integer)
    MSComm1.PortOpen = False
    End
End Sub

Private Sub MSComm1_OnComm()
Dim j As String
Dim i As Double
    If MSComm1.CommEvent = comEvReceive Then
        j = MSComm1.Input
        Com_Input = Com_Input + j
        Text2.Text = Text2.Text + j
        i = InStr(Com_Input, "(")
        If i > 0 Then
            Com_Input = Right(Com_Input, Len(Com_Input) - i)
        End If
        i = InStr(Com_Input, ")")
        If i > 0 Then
            Com_Input = Left(Com_Input, i - 1)
            If InStr(Com_Input, "ready") > 0 Then
                answer = True
            End If
            If InStr(Com_Input, "ok") > 0 Then
                success = True
            End If
            If InStr(Com_Input, "err") > 0 Then
                success = True
                sendfail = True
                failcount = failcount + 1
            End If
           
'            If InStr(Com_Input, "ok") > 0 Then
'                success = True
'            Else
'                sendfail = True
'                failcount = failcount + 1
'            End If
            Com_Input = ""
        End If
    End If
End Sub

Private Sub Timer1_Timer()
    overtime = overtime + 1
    If overtime >= 50 Then
        If Not success Then
            sendfail = True
            failcount = failcount + 1
        End If
        Timer1.Enabled = False
    End If
End Sub
0
 
LVL 3

Expert Comment

by:PierreBeukes
ID: 16532984
What exactly is it you want your application do to?
0
 
LVL 6

Author Comment

by:hatem72
ID: 16533044



connect and read data from the fingerprint device using IP not Com
0
 
LVL 3

Expert Comment

by:PierreBeukes
ID: 16533111
Well - check the cd again.

and if not ... (what i actually did) .. was use the vbcode that came with my cd (which listens for the events fired).. to write my own logging application .. saying who it was etc.  which is much beter.. - especially for reporting etc.

I used the following 2 machines
goto www.gwt.co.za

i used the left one and the right one

there is some documentation on that site aswell ..

0
 
LVL 6

Author Comment

by:hatem72
ID: 16533174

looks like i have cheap device i jsut got above vb6 code after many emails to the device company

any way thanx for the site i well check it out
0
 
LVL 3

Expert Comment

by:PierreBeukes
ID: 16533305
What ill do 4 u aswell is email the company where you got your fingerprint device ... and ask them for some code ... and post it back to you here

Let me know if you get anything worked out :)
0
 
LVL 6

Author Comment

by:hatem72
ID: 16541846

Hi PierreBeukes

thanx for the site

i did check the site ... most of files are password protected and the others are
not found "The requested URL /IDU3fw303.zip was not found on this server"

did u use ur device with vb.net ... ???
0
 
LVL 6

Author Comment

by:hatem72
ID: 16541875

and didu use the usb device [ SecuGen® Hamster  ]

0
 
LVL 3

Expert Comment

by:PierreBeukes
ID: 16543909
Hi,

I did use both ...
The one on the left was for our offices .. where employees pushes in/out and then puts in there finger .. it records it (that one is on the network ... but was initially setup via Com Port).

The Second one .. (the Hamster - the usb one) - i had to write an application for a bank. when a client wants to make a withdrawel ..  finger 1st :)

But im using my experience with the one we used in our own office to help you.
0
 
LVL 6

Author Comment

by:hatem72
ID: 16568709

Hi PierreBeukes

 if u used it ... then how can i connect the both devices useing vb.net ???
0
 
LVL 3

Accepted Solution

by:
PierreBeukes earned 1000 total points
ID: 16576841
Hi hatem72

I emailed the people from where you bought the device and this is their response

Regarding your first question, (Can you setup the device to fire events
accross the network ) the connection of AV100 to the network is depend on the
AV100 your friend Owen, cause the TCP/IP Feature in AV100 is Optional, if he
order the AV100 with the TCP/IP, that there is lan Card with the unit and he
will be available to log to the network after he perfumed the correct setting
up, that mean he should connect the unit to PC and change the setting of the
unit to be connected with lan card and the coming connection, and he should
mention the IP Address to be set or please follow to the bellow steps:-
1.      Connect the unit (AV100) with your PC via RS232 – to your serial Port,
and inter your code number.
2.      After the connection established click the setting and please change
the IP address that you want the machine to take for future.
3.      Please be sure that the IP you setup the unit with is not used with
other PC in the your network.
4.      When you click Ok at the setting the software automatically will ask
you to disconnect the unit in order to log in via the lan card.
5.      Now, change the connection type to be lan, and inter the IP address
you setup the Unit with.
6.      Click Ok to assure the changes.
7.      Now click connection.
8.      Inter your password – logging code – originally code is  09999, but if
you already change this code please inter your new code.
9.      And click connect.
10.     The unit will connect to the network, and you can view it even from
far via dial up network.
Regarding your second Question (Do you provide sample code to listen for these
events - so i can write my own logging system),
Kindly be informed that I cant understand your question, however if you mean
the logging code I already speck about it above with Question 1, also please
kindly be informed that I will appreciate if you write us with clear question
that we can help.
Please don’t hesitate to write us.
We are very proud to help you.

Thanks and best regards.
Also for our newsletters in energy saving items and home security kindly write
request to info@agestarsgroup.net,
 How ever for purchasing kindly write to sales@agestarsgroup.net,
 For the administrations if you have some defaults kindly don’t hesitate to
write to Habib@agestarsgroup.net
Age Stars Group Support team
Age Stars Group
Security and BMS
Almalaz Street 40, P.O Box 225785 Riyadh 11324
Tel:- +966-1-4792925 – 4792955
Fax:- +966-1-2912178
Mobail:- +966506200171


Hope this helps ... if not
let me know and we take it from there.

Ciao
Pierre
0
 
LVL 6

Author Comment

by:hatem72
ID: 16764158
Sorry for the delay I was busy with the last few days  
& I  still is busy  
Overall ... Thank you for ur Care   But I did not come to a solution yet
  If you have code that for this subject  
I Introduction of the new 1000 point ... if u was interested in    

Thank you again
0

Featured Post

VIDEO: THE CONCERTO CLOUD FOR HEALTHCARE

Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

If you're writing a .NET application to connect to an Access .mdb database and use pre-existing queries that require parameters, you've come to the right place! Let's say the pre-existing query(qryCust) in Access takes a Date as a parameter and l…
If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.
Is your data getting by on basic protection measures? In today’s climate of debilitating malware and ransomware—like WannaCry—that may not be enough. You need to establish more than basics, like a recovery plan that protects both data and endpoints.…
Despite its rising prevalence in the business world, "the cloud" is still misunderstood. Some companies still believe common misconceptions about lack of security in cloud solutions and many misuses of cloud storage options still occur every day. …
Suggested Courses

840 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question