实例介绍
【实例简介】
利用电脑摄像头快速实时扫描读取二维码,简单,速度快,效率高,准确率高。可以快速的用在自已的软件中。
【实例截图】
【核心代码】
Imports Emgu.CV
Imports Emgu.CV.CvEnum
Imports Emgu.CV.Util
Imports Emgu.CV.Structure
Imports ZXing
Public Class Form1
Dim _capture As VideoCapture
Dim _frame As Mat
Dim _proc As Mat
Dim _oproc As New Mat
Private Sub Form1_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
RemoveHandler _capture.ImageGrabbed, AddressOf ProcessFrame
End
End Sub
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
_capture = New VideoCapture()
_capture.Start()
AddHandler _capture.ImageGrabbed, AddressOf ProcessFrame
End Sub
Private Sub ProcessFrame(ByVal sender As Object, ByVal e As System.EventArgs)
_frame = New Mat
_proc = New Mat
_oproc = New Mat
If _capture IsNot Nothing And _capture.Ptr <> IntPtr.Zero Then
_capture.Retrieve(_frame, 0)
REM 图形处理
_proc = FilterGraphicsB(_frame)
REM 发现二维码并截取
_oproc = FindCodeMat(_frame, _proc)
ImageBox1.Image = _frame
If _oproc IsNot Nothing AndAlso IsDBNull(_oproc) = False Then
REM 触发二维码识别程序
Dim reader As IBarcodeReader = New BarcodeReader()
Dim result = reader.Decode(_oproc.Bitmap)
If result IsNot Nothing Then
If TextBox1.InvokeRequired Then
TextBox1.BeginInvoke(New MethodInvoker(Sub() ProcessFrame(sender, e)))
Else
TextBox1.Text = String.Format("{0} {1}", result.BarcodeFormat.ToString(), " " & result.Text)
End If
End If
End If
End If
End Sub
Private Function FilterGraphicsB(ByVal um As Mat) As Mat
Dim nm As New Mat
CvInvoke.CvtColor(um, nm, ColorConversion.Bgr2Gray)
CvInvoke.EqualizeHist(nm, nm)
CvInvoke.GaussianBlur(nm, nm, New System.Drawing.Size(5, 5), 0, 0, BorderType.Default) '
CvInvoke.Sobel(nm, nm, nm.Depth, 1, 0, 3, 1, 0, BorderType.Default) '
CvInvoke.Threshold(nm, nm, 0, 255, ThresholdType.Binary ThresholdType.Otsu)
'膨胀
Dim StructingElement As Emgu.CV.Mat = CvInvoke.GetStructuringElement(Emgu.CV.CvEnum.ElementShape.Rectangle, New Size(12, 12), New Point(2, 2))
CvInvoke.Dilate(nm, nm, StructingElement, New Point(2, 2), 1, Emgu.CV.CvEnum.BorderType.Default, New Emgu.CV.Structure.MCvScalar(0))
Return nm
End Function
Private Function FindCodeMat(ByVal srcMat As Mat, ByVal grayMat As Mat) As Mat
Dim tmp As Mat = grayMat.Clone
Dim sMat As Mat = srcMat '.Clone
Dim mrcMat As Mat
mrcMat = srcMat.Clone
Dim plate As New Mat
Dim bkGrayWhite As New Gray(255)
Dim contours As Emgu.CV.Util.VectorOfVectorOfPoint = New Emgu.CV.Util.VectorOfVectorOfPoint()
Dim hierarchy As Emgu.CV.IOutputArray = New Image(Of Gray, Byte)(tmp.Width, tmp.Height, bkGrayWhite)
CvInvoke.FindContours(tmp,
contours,
hierarchy,
Emgu.CV.CvEnum.RetrType.External,
Emgu.CV.CvEnum.ChainApproxMethod.ChainApproxSimple
)
For idx As Integer = 0 To contours.Size - 1
Using contour As VectorOfPoint = contours(idx)
Dim c As Double = CvInvoke.ContourArea(contour)
If c < 18000 Or c > 25000 Then
Continue For
End If
Dim box As RotatedRect = CvInvoke.MinAreaRect(contour)
If box.Angle < -45.0 Then
Dim ws As Single = box.Size.Width
box.Size.Width = box.Size.Height
box.Size.Height = ws
'box.Offset(-5, -5)
box.Angle = 90.0F
ElseIf box.Angle > 45.0 Then
Dim ws As Single = box.Size.Width
box.Size.Width = box.Size.Height
box.Size.Height = ws
'box.Offset(-5, -5)
box.Angle -= 90.0F
End If
Dim ratio As Single = box.Size.Width / box.Size.Height
If ratio > 0.9 And ratio < 1.2 Then
Dim rect As Rectangle
rect = CvInvoke.BoundingRectangle(contour)
CvInvoke.Rectangle(sMat, rect, New Bgr(Color.Red).MCvScalar, 2)
Dim srcCorners As PointF() = box.GetVertices()
Dim destCorners As PointF() = New PointF() {New PointF(0, box.Size.Height - 1), New PointF(0, 0), New PointF(box.Size.Width - 1, 0), New PointF(box.Size.Width - 1, box.Size.Height - 1)}
Using tmp1 As New Mat()
Using rot As Mat = CvInvoke.GetAffineTransform(srcCorners, destCorners)
CvInvoke.WarpAffine(mrcMat, tmp1, rot, Size.Round(box.Size))
Return tmp1.Clone
End Using
End Using
End If
End Using
Next
'CvInvoke.Imshow(Now, sMat)
End Function
Private Sub Label1_Click(sender As System.Object, e As System.EventArgs) Handles Label1.Click
System.Diagnostics.Process.Start("http://www.btw360.com:88")
End Sub
End Class
网友评论
小贴士
感谢您为本站写下的评论,您的评论对其它用户来说具有重要的参考价值,所以请认真填写。
- 类似“顶”、“沙发”之类没有营养的文字,对勤劳贡献的楼主来说是令人沮丧的反馈信息。
- 相信您也不想看到一排文字/表情墙,所以请不要反馈意义不大的重复字符,也请尽量不要纯表情的回复。
- 提问之前请再仔细看一遍楼主的说明,或许是您遗漏了。
- 请勿到处挖坑绊人、招贴广告。既占空间让人厌烦,又没人会搭理,于人于己都无利。
关于好例子网
本站旨在为广大IT学习爱好者提供一个非营利性互相学习交流分享平台。本站所有资源都可以被免费获取学习研究。本站资源来自网友分享,对搜索内容的合法性不具有预见性、识别性、控制性,仅供学习研究,请务必在下载后24小时内给予删除,不得用于其他任何用途,否则后果自负。基于互联网的特殊性,平台无法对用户传输的作品、信息、内容的权属或合法性、安全性、合规性、真实性、科学性、完整权、有效性等进行实质审查;无论平台是否已进行审查,用户均应自行承担因其传输的作品、信息、内容而可能或已经产生的侵权或权属纠纷等法律责任。本站所有资源不代表本站的观点或立场,基于网友分享,根据中国法律《信息网络传播权保护条例》第二十二与二十三条之规定,若资源存在侵权或相关问题请联系本站客服人员,点此联系我们。关于更多版权及免责申明参见 版权及免责申明
支持(0) 盖楼(回复)