Register Register Member Login Member Login Member Login Forgot Password ??
PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone
 

Registered : 108,415

HOME > .NET Framework > Forum > ติดปัญหา เครื่องแสกนลายนิ้วมือ zk4500 Event OnCapture ไม่ทำงานครับ ไม่แน่ใจว่าเซ็ตอะไรผิดหรือเปล่า เพราะที่เข้าใจคือ เหตุการณ์จะเกิดตอนแสกนนิ้วที่เครื่องแสกน



 

ติดปัญหา เครื่องแสกนลายนิ้วมือ zk4500 Event OnCapture ไม่ทำงานครับ ไม่แน่ใจว่าเซ็ตอะไรผิดหรือเปล่า เพราะที่เข้าใจคือ เหตุการณ์จะเกิดตอนแสกนนิ้วที่เครื่องแสกน

 



Topic : 117165



โพสกระทู้ ( 7 )
บทความ ( 0 )



สถานะออฟไลน์




ตรงนี้ ติดต่อ อุปกรณ์ ได้ปกติ

Code (VB.NET)
 Private Sub Button1_Click_1(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        axZKFPEngX1.FPEngineVersion = "9"
        izkfpver = axZKFPEngX1.FPEngineVersion
        axZKFPEngX1.SensorIndex = 0
        If axZKFPEngX1.InitEngine() = 0 Then
            statusBar1.Text = "Sensor Connected!"
            TextBox5.Text = axZKFPEngX1.SensorSN
            FMatchType = 0
            isConnected = True
            fpcHandle = axZKFPEngX1.CreateFPCacheDB()
            axZKFPEngX1.BeginEnroll()
            axZKFPEngX1.ForceSecondMatch = True
            axZKFPEngX1.GetTemplate()
        Else
            
            TextBox5.Text = ""
            isConnected = False
        End If
    End Sub



ที่ติดคือ ตรงนี้ ไม่ทำงานครับ ไม่แน่ใจว่าเซ็ตอะไรผิดหรือเปล่า เพราะที่เข้าใจคือ เหตุการณ์จะเกิดตอนแสกนนิ้วที่เครื่องแสกน

Code (VB.NET)
 Private Sub ZKFPEngX1_OnCapture(ByVal eventSender As System.Object, ByVal eventArgs As AxZKFPEngXControl.IZKFPEngXEvents_OnCaptureEvent)

    End Sub



รบกวนท่านผู้รู้ช่วยด้วยนะครับ



Tag : .NET, VB.NET, VS 2010 (.NET 4.x)







Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2015-06-15 13:16:11 By : bkkjeab View : 3008 Reply : 2
 

 

No. 1



โพสกระทู้ ( 74,058 )
บทความ ( 838 )

สมาชิกที่ใส่เสื้อไทยครีเอท

สถานะออฟไลน์
Twitter Facebook

ผมว่าน่าจะลืม Delegate ตัว Method หรือ Event นี้น่ะครับ มันเลยไม่เข้า Event

ลองดู Code นี้ครับ

Code (VB.NET)
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Drawing
Imports System.Data
Imports System.Linq
Imports System.Text
Imports System.Windows.Forms
Imports System.Data.SqlClient

Namespace Simple_Code
	Public Partial Class UserControl1
		Inherits UserControl

		Private dsl_select As DataSet
		Public Value As String() = New String(5) {}
		Private isConnected As Boolean
		Private FMatchType As Integer
		Private fpcHandle As Integer
		Private time As Integer = 0
		Private i As Integer = 3
		Private VerifyCheck As Boolean = False

		Private VerTemplate As Object
		Private RegTemplate As Object
		Private RegTemplateStr As String
		Private izkfpver As String

		Private test As String
		Public Event [property] As PropertyChangedEventHandler
		Public Delegate Sub PropertyChangedEventHandler(s As String)

		Public Sub New()
			InitializeComponent()
		End Sub

		Public Function Connection() As String()

			axZKFPEngX1.FPEngineVersion = "9"
			izkfpver = axZKFPEngX1.FPEngineVersion
			axZKFPEngX1.SensorIndex = 0
			If axZKFPEngX1.InitEngine() = 0 Then

				Try
					Value(0) = "Connect"
					Value(1) = "Finger Serial Number :" + axZKFPEngX1.SensorSN.ToString()
					Value(2) = "Finger Count :" + axZKFPEngX1.SensorCount.ToString()
					Value(3) = "Finger Index :" + axZKFPEngX1.SensorIndex.ToString()
					Value(4) = "ImageWidth Record :" + axZKFPEngX1.ImageWidth.ToString()
					Value(5) = "ImageHeight Record :" + axZKFPEngX1.ImageHeight.ToString()
					isConnected = True
					fpcHandle = axZKFPEngX1.CreateFPCacheDB()
				Catch
					axZKFPEngX1.EndEngine()
					Value(0) = "Disconnect"
					Value(1) = ""
					Value(2) = ""
					Value(3) = ""
					Value(4) = ""
					Value(5) = ""
					isConnected = False
				End Try
			End If
			Return Value
		End Function

		Public Sub Disconnect()
			axZKFPEngX1.EndEngine()
			'GlobalValue.FingerValue = null;
			isConnected = False

		End Sub

		Public Sub BeginEnroll()
			If isConnected = True Then
				If axZKFPEngX1.IsRegister Then
					axZKFPEngX1.CancelEnroll()
				End If
				axZKFPEngX1.EnrollCount = 3
				axZKFPEngX1.BeginEnroll()
				RaiseEvent [property]("Begin Enroll")
			Else
				RaiseEvent [property]("No Sensor Connected")
			End If
		End Sub

		Private Sub axZKFPEngX1_OnFingerTouching(sender As Object, e As EventArgs)
			RaiseEvent [property]("FingerTouching")
		End Sub

		Private Sub axZKFPEngX1_OnFingerLeaving(sender As Object, e As EventArgs)
			RaiseEvent [property]("OnFingerLeaving")
		End Sub

		Private Sub axZKFPEngX1_OnEnroll(sender As Object, e As AxZKFPEngXControl.IZKFPEngXEvents_OnEnrollEvent)
			Dim tmp As Byte() = New Byte(-1) {}
			If e.actionResult Then
				'MessageBox.Show(e.aTemplate.ToString());
					'GlobalValue.FingerValue = tmp;

				tmp = DirectCast(e.aTemplate, Byte())
			Else
					'GlobalValue.FingerValue = tmp;
				tmp = Nothing
			End If

			Dim con As System.Data.SqlClient.SqlConnection
			con = New System.Data.SqlClient.SqlConnection()
			con.ConnectionString = "Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|Database.mdf;Integrated Security=True;User Instance=True"
			Dim sql As String = "UPDATE Finger_Table SET [email protected]_Value WHERE User_ID= " + GlobalValue.Index + ""
			Dim cmd As New SqlCommand(sql, con)
			con.Open()
			Dim parafinger As New SqlParameter()
			parafinger.ParameterName = "@Finger_Value"
			parafinger.Value = tmp

			cmd.Parameters.Add(parafinger)
			cmd.ExecuteNonQuery()


			RaiseEvent [property]("OnEnroll")
		End Sub

		Public Sub BeginVerify()
			If Not isConnected Then
				MessageBox.Show("Please Initial sensor first!", "notice")
				Return
			End If
			If axZKFPEngX1.IsRegister Then

				axZKFPEngX1.CancelEnroll()
			End If
			VerifyCheck = True
			axZKFPEngX1.BeginCapture()
			RaiseEvent [property]("OnVerify")
		End Sub

		Private Sub axZKFPEngX1_OnCapture(sender As Object, e As AxZKFPEngXControl.IZKFPEngXEvents_OnCaptureEvent)

			'string tmpbyte;
			VerTemplate = e.aTemplate
			Dim vartemplat As Byte() = DirectCast(VerTemplate, Byte())
			'int score = 9;
			'int processedFPNumber = 1;
			'int ID;
			'string tempstr;
			Dim Template As String = axZKFPEngX1.GetTemplateAsString()
			If e.actionResult AndAlso VerifyCheck = True Then
				VerifyCheck = False
				Dim check As Boolean = False
				Dim temp As String
				axZKFPEngX1.OneToOneThreshold = 40
				axZKFPEngX1.Threshold = 40
				temp = axZKFPEngX1.GetTemplateAsString()

				Dim con As System.Data.SqlClient.SqlConnection
				con = New System.Data.SqlClient.SqlConnection()
				dsl_select = New DataSet()
				'try
				'{
				con.ConnectionString = "Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|Database.mdf;Integrated Security=True;User Instance=True"
				Dim sql As String = "SELECT Finger_Value FROM Finger_Table WHERE User_ID = '" + GlobalValue.Index + "'"
				Dim da As New SqlDataAdapter(sql, con)

				con.Open()

				da.Fill(dsl_select, "SELECT")
				Dim dRow As DataRow = dsl_select.Tables("SELECT").Rows(0)

				'tmpbyte = dRow.ItemArray.GetValue(0);
				Dim fingerTemp As Object = dRow.ItemArray.GetValue(0)
				If axZKFPEngX1.VerFinger(fingerTemp, VerTemplate, False, check) = True Then
					MessageBox.Show("Sucess!!")
				Else
					MessageBox.Show("Fail!!")

					'}
					'catch
					'{ 

					'}




				End If
			End If


		End Sub



	End Class
End Namespace







แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2015-06-16 09:23:55 By : mr.win
 


 

No. 2



โพสกระทู้ ( 52 )
บทความ ( 0 )



สถานะออฟไลน์


สวัสดีครับ พอดีตอนนี้ผมมีเครื่องแสกน zk4500 ต้องการที่จะเขียน Code เพื่อจัดเก็บลายนิ้วมือ แต่ไม่รู้จะเริ่มต้นอย่างไร รบกวนแนะนำด้วยครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2015-09-11 13:41:51 By : kornmonter
 

   

ค้นหาข้อมูล


   
 

แสดงความคิดเห็น
Re : ติดปัญหา เครื่องแสกนลายนิ้วมือ zk4500 Event OnCapture ไม่ทำงานครับ ไม่แน่ใจว่าเซ็ตอะไรผิดหรือเปล่า เพราะที่เข้าใจคือ เหตุการณ์จะเกิดตอนแสกนนิ้วที่เครื่องแสกน
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ FTP| ใส่แถวของตาราง ใส่คอลัมน์ตาราง| ตัวยก ตัวห้อย ตัวพิมพ์ดีด| ใส่โค้ด ใส่การอ้างถึงคำพูด| ใส่ลีสต์
smiley for :lol: smiley for :ken: smiley for :D smiley for :) smiley for ;) smiley for :eek: smiley for :geek: smiley for :roll: smiley for :erm: smiley for :cool: smiley for :blank: smiley for :idea: smiley for :ehh: smiley for :aargh: smiley for :evil:
Insert PHP Code
Insert ASP Code
Insert VB.NET Code Insert C#.NET Code Insert JavaScript Code Insert C#.NET Code
Insert Java Code
Insert Android Code
Insert Objective-C Code
Insert XML Code
Insert SQL Code
Insert Code
เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

   
  เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง
 
โดย
อีเมล์
บวกค่าให้ถูก
<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)







Exchange: Voake, Comcube, รับทำเว็บไซต์ รับเขียนโปรแกรม , รับทำบัญชี , โรงงานผลิตครีม , สำนักงานบัญชี , รับจดทะเบียนบริษัท , Pangpond , รถมือสอง

Load balance : Server 00
ThaiCreate.Com Logo
© www.ThaiCreate.Com. 2003-2020 All Rights Reserved.
ไทยครีเอทบริการ จัดทำดูแลแก้ไข Web Application ทุกรูปแบบ (PHP, .Net Application, VB.Net, C#)
[Conditions Privacy Statement] ติดต่อโฆษณา 081-987-6107 อัตราราคา คลิกที่นี่