Connect fingerprint device over IP


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
LVL 6
hatem72Asked:
Who is Participating?

[Product update] Infrastructure Analysis Tool is now available with Business Accounts.Learn More

x
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

PierreBeukesCommented:
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
hatem72Author Commented:

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 .
PierreBeukesCommented:
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



Exploring SharePoint 2016

Explore SharePoint 2016, the web-based, collaborative platform that integrates with Microsoft Office to provide intranets, secure document management, and collaboration so you can develop your online and offline capabilities.

hatem72Author Commented:

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 .
PierreBeukesCommented:
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
hatem72Author Commented:

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
PierreBeukesCommented:
What exactly is it you want your application do to?
hatem72Author Commented:



connect and read data from the fingerprint device using IP not Com
PierreBeukesCommented:
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 ..

hatem72Author Commented:

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
PierreBeukesCommented:
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 :)
hatem72Author Commented:

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 ... ???
hatem72Author Commented:

and didu use the usb device [ SecuGen® Hamster  ]

PierreBeukesCommented:
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.
hatem72Author Commented:

Hi PierreBeukes

 if u used it ... then how can i connect the both devices useing vb.net ???
PierreBeukesCommented:
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

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
hatem72Author Commented:
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
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Visual Basic.NET

From novice to tech pro — start learning today.